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, 1858 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 ...

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 ...

Neue Wissensbeiträge
RedHat, CentOS, Fedora

Fedora, RedHat, Centos: DNS-Search Domain setzen

(13)

Tipp von Frank zum Thema RedHat, CentOS, Fedora ...

Drucker und Scanner

Samsung SL-M4025ND, firmware update und (kompatible) Tonerkassetten

(1)

Erfahrungsbericht von markus-1969 zum Thema Drucker und Scanner ...

Heiß diskutierte Inhalte
CMS
Lokales Wordpress im LAN - wie aufsetzen? (16)

Frage von Static zum Thema CMS ...

LAN, WAN, Wireless
gelöst Komplett neues Netzwerk, Ubiquiti WLAN, Router, Switch (16)

Frage von Freak-On-Silicon zum Thema LAN, WAN, Wireless ...

LAN, WAN, Wireless
IP im privaten Netz nicht erreichbar (14)

Frage von guntis zum Thema LAN, WAN, Wireless ...

LAN, WAN, Wireless
Devolo DLAN 500 pro Wireless+ (13)

Frage von IceAge zum Thema LAN, WAN, Wireless ...