Batch oder VBS - Am Dateiende Leerzeile anfügen
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?
Code ist unten ersichtbar :
Wie füge ich via VBS oder Batchscript eine Leerzeile am ende der out.csv an?
db = "C:\in.mdb"
TextExportFile = "C:\out.csv"
Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
cn.Open _
"Provider = Microsoft.Jet.OLEDB.4.0; " & _
"Data Source =" & db
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.[
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;"
rs.Open strSQL, cn, 3, 3
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.CreateTextFile(TextExportFile, True, True)
a = rs.GetString
f.WriteLine a
f.Close
Please also mark the comments that contributed to the solution of the article
Content-Key: 193503
Url: https://administrator.de/contentid/193503
Printed on: April 18, 2024 at 23:04 o'clock
2 Comments
Latest comment
Moin Moin
1. Bitte verwende Code Formatierungen.
2. Zu deinem Problem...
Gruß L.
1. Bitte verwende Code Formatierungen.
2. Zu deinem Problem...
...
a = rs.GetString
f.Writeline a
' Du hängst einfach noch ein Writeline hinten ran ?
f Writeline
f.close
Gruß L.
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
einfach aber effektiv und in jeder Progrmmier- bzw. Scriptsprache so zu verwenden Leerzeile am Ende anhängen durch einen leeren Zeilenschreibbefehl
Grüße
Dominik