Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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, 1844 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 ..
Neuester Wissensbeitrag
CPU, RAM, Mainboards

Angetestet: PC Engines APU 3a2 im Rack-Gehäuse

(1)

Erfahrungsbericht von ashnod zum Thema CPU, RAM, Mainboards ...

Ähnliche Inhalte
Entwicklung
gelöst Mit Batch,VBS,Powershell Windows einrichten (1)

Frage von Justin98 zum Thema Entwicklung ...

Windows 7
gelöst Batch-Skript oder VBS Skript zum Sichern von Office Vorlagen (2)

Frage von Ceejaay zum Thema Windows 7 ...

Batch & Shell
gelöst VBS Script in eine Textdatei ausgeben (VBS mit Batch zusammenführen) (5)

Frage von Luuke257 zum Thema Batch & Shell ...

VB for Applications
VBS oder Batch um eine Datei in Unterordner zu verschieben (1)

Frage von MrRoyal zum Thema VB for Applications ...

Heiß diskutierte Inhalte
Grafikkarten & Monitore
Win 10 Grafikkarte Crash von Software? (13)

Frage von Marabunta zum Thema Grafikkarten & Monitore ...

DSL, VDSL
DSL-Signal bewerten (13)

Frage von SarekHL zum Thema DSL, VDSL ...

Switche und Hubs
Trunk für 2xCisco Switch. Wo liegt der Fehler? (9)

Frage von JayyyH zum Thema Switche und Hubs ...

Backup
Clients als Server missbrauchen? (8)

Frage von 1410640014 zum Thema Backup ...