Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Batch oder VBS - Am Dateiende Leerzeile anfügen

Frage Entwicklung Batch & Shell

Mitglied: baschdi

baschdi (Level 1) - Jetzt verbinden

30.10.2012, aktualisiert 16:41 Uhr, 1870 Aufrufe, 2 Kommentare

Guten Tag

folgendes Problem, ich hab aus einer MDB eine Abfrage abgegriffen und in eine CSV umgewandelt.
Code ist unten ersichtbar :

Wie füge ich via VBS oder Batchscript eine Leerzeile am ende der out.csv an?

01.
db = "C:\in.mdb" 
02.
TextExportFile = "C:\out.csv" 
03.
Set cn = CreateObject("ADODB.Connection") 
04.
Set rs = CreateObject("ADODB.Recordset") 
05.
cn.Open _ 
06.
   "Provider = Microsoft.Jet.OLEDB.4.0; " & _ 
07.
   "Data Source =" & db 
08.
strSQL = "SELECT View_Artikel_Abfrage_und_Artikel_extradaten.Artikel, View_Artikel_Abfrage_und_Artikel_extradaten.Hersteller, View_Artikel_Abfrage_und_Artikel_extradaten.[Bezeichnung 1], View_Artikel_Abfrage_und_Artikel_extradaten.[Bestand aktuell], View_Artikel_Abfrage_und_Artikel_extradaten.PROD_Kategorie, View_Artikel_Abfrage_und_Artikel_extradaten.Einkaeufer, IPR.[Vendor Name], View_Artikel_Auftrags_Bestand.[Summe von Menge Auftrag], View_Artikel_Bestellausstand.Bestellausstand, Vo1_Artikel_mit_Gesamt_Menge.[Gesamt VJ], [Menge Januar]+[Menge Februar]+[Menge März]+[Menge April]+[Menge Mai]+[Menge Juni]+[Menge Juli]+[Menge August]+[Menge September]+[Menge Oktober]+[Menge November]+[Menge Dezember] AS AJ_Menge_Gesamt, View_Artikel_Abfrage_und_Artikel_extradaten.Artikelgruppe, View_Artikel_Abfrage_und_Artikel_extradaten.Stellplatz, View_Artikel_Abfrage_und_Artikel_extradaten.[Lizenzkennzeichen neu], View_Artikel_Abfrage_und_Artikel_extradaten.[Mindest/Meldebestand], View_Artikel_Abfrage_und_Artikel_extradaten.[Fester Lieferant], View_Artikel_Abfrage_und_Artikel_extradaten.Prüflizenzgruppe, View_Artikel_Abfrage_und_Artikel_extradaten.[Verkaufspreis 7], View_Artikel_Abfrage_und_Artikel_extradaten.[Mittlerer Einkaufspreis], Vo1_Artikel_mit_Gesamt_Menge.[VJ Januar], Vo1_Artikel_mit_Gesamt_Menge.[VJ Feb], Vo1_Artikel_mit_Gesamt_Menge.[VJ März], Vo1_Artikel_mit_Gesamt_Menge.[VJ April], Vo1_Artikel_mit_Gesamt_Menge.[VI Mai], Vo1_Artikel_mit_Gesamt_Menge.[VJ Juni], Vo1_Artikel_mit_Gesamt_Menge.[VJ Juli], Vo1_Artikel_mit_Gesamt_Menge.[VJ August], Vo1_Artikel_mit_Gesamt_Menge.[VJ Sept], Vo1_Artikel_mit_Gesamt_Menge.[VJ Okt], Vo1_Artikel_mit_Gesamt_Menge.[VJ Nov], Vo1_Artikel_mit_Gesamt_Menge.[VJ Dez], V00_ArtikelUmsaetzePeriode.[Menge Januar], V00_ArtikelUmsaetzePeriode.[Menge Februar], V00_ArtikelUmsaetzePeriode.[Menge März], V00_ArtikelUmsaetzePeriode.[Menge April], V00_ArtikelUmsaetzePeriode.[Menge Mai], V00_ArtikelUmsaetzePeriode.[Menge Juni], V00_ArtikelUmsaetzePeriode.[ 
09.
Menge Juli], V00_ArtikelUmsaetzePeriode.[Menge August], V00_ArtikelUmsaetzePeriode.[Menge September], V00_ArtikelUmsaetzePeriode.[Menge Oktober], V00_ArtikelUmsaetzePeriode.[Menge November], V00_ArtikelUmsaetzePeriode.[Menge Dezember] FROM ((((View_Artikel_Abfrage_und_Artikel_extradaten LEFT JOIN View_Artikel_Auftrags_Bestand ON View_Artikel_Abfrage_und_Artikel_extradaten.Artikel = View_Artikel_Auftrags_Bestand.Artikelnummer) LEFT JOIN View_Artikel_Bestellausstand ON View_Artikel_Abfrage_und_Artikel_extradaten.Artikel = View_Artikel_Bestellausstand.Artikelnummer) LEFT JOIN Vo1_Artikel_mit_Gesamt_Menge ON (View_Artikel_Abfrage_und_Artikel_extradaten.Artikel = Vo1_Artikel_mit_Gesamt_Menge.[Artikel/Stücklistennummer]) AND (View_Artikel_Abfrage_und_Artikel_extradaten.Hersteller = Vo1_Artikel_mit_Gesamt_Menge.Hersteller)) LEFT JOIN V00_ArtikelUmsaetzePeriode ON (View_Artikel_Abfrage_und_Artikel_extradaten.Hersteller = V00_ArtikelUmsaetzePeriode.Hersteller) AND (View_Artikel_Abfrage_und_Artikel_extradaten.Artikel = V00_ArtikelUmsaetzePeriode.[Artikel/Stücklistennummer])) LEFT JOIN IPR ON View_Artikel_Abfrage_und_Artikel_extradaten.Artikel = IPR.Artikelnummer;"  
10.
rs.Open strSQL, cn, 3, 3 
11.
Set fs = CreateObject("Scripting.FileSystemObject") 
12.
Set f = fs.CreateTextFile(TextExportFile, True, True) 
13.
a = rs.GetString 
14.
f.WriteLine a 
15.
f.Close
Mitglied: Logan000
30.10.2012 um 14:20 Uhr
Moin Moin

1. Bitte verwende Code Formatierungen.
2. Zu deinem Problem...
01.
... 
02.
a = rs.GetString 
03.
f.Writeline a 
04.
' Du hängst einfach noch ein Writeline hinten ran ? 
05.
f Writeline  
06.
f.close
Gruß L.
Bitte warten ..
Mitglied: 106543
31.10.2012 um 08:53 Uhr
Hiho

einfach aber effektiv und in jeder Progrmmier- bzw. Scriptsprache so zu verwenden Leerzeile am Ende anhängen durch einen leeren Zeilenschreibbefehl

Grüße
Dominik
Bitte warten ..
Ähnliche Inhalte
Batch & Shell
gelöst Base64 Decode (Batch,VBS) (26)

Frage von clragon zum Thema Batch & Shell ...

VB for Applications
gelöst Tool zur scriptbasierten PDF-Bearbeitung gesucht (VBS oder Batch) (6)

Frage von SarekHL zum Thema VB for Applications ...

Batch & Shell
gelöst Cpl Dateien per Batch oder VBS öffnen (1)

Frage von Angelo131095 zum Thema Batch & Shell ...

Windows 10
gelöst Vbs oder batch zum Ändern von Dateinamen ab Zeichenkette (13)

Frage von vbaGast zum Thema Windows 10 ...

Neue Wissensbeiträge
Sicherheits-Tools

Trendmicro OSCE und das Fall Creators Update Win10 RS3

(3)

Information von Henere zum Thema Sicherheits-Tools ...

Microsoft Office

Text in Zahlen umwandeln

Tipp von logische zum Thema Microsoft Office ...

Erkennung und -Abwehr

Infineon TPMs unsicher! Bitlocker ggf. angreifbar

(4)

Information von Lochkartenstanzer zum Thema Erkennung und -Abwehr ...

Firewall

PfSense Repository für Version 2.3.x

(7)

Information von Dobby zum Thema Firewall ...

Heiß diskutierte Inhalte
Microsoft Office
ICH BIN AM ENDE MEINES IT-WISSENS ANGELANGT!!!! (38)

Frage von 134537 zum Thema Microsoft Office ...

Windows Server
Gruppenrichtlinie greift nicht zu! (24)

Frage von Syosse zum Thema Windows Server ...

Hosting & Housing
Mailserver Software Empfehlungen (21)

Frage von sunics zum Thema Hosting & Housing ...