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, 1847 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
Ä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
Hardware
Laptop ins Salzwasser gefallen (18)

Frage von Marcel94 zum Thema Hardware ...

Switche und Hubs
LAG zwischen Cisco SG300 und Dlink DGS1100 herstellen - wie? (13)

Frage von White-Rabbit2 zum Thema Switche und Hubs ...

Hardware
Lenovo Yoga 500 über angeschlossene USB Tastatur booten (13)

Frage von thomasreischer zum Thema Hardware ...

CPU, RAM, Mainboards
Hardware Fragen (12)

Frage von xaver-2 zum Thema CPU, RAM, Mainboards ...