'v3.6***************************************************** ' File: DateiZeilenweiseLesenBearbeitenSchreiben.vbs ' Autor: dieseyer@gmx.de ' dieseyer.de ' ' Eine (ASCII_) Datei wird zeilenweise in ein Array gelesen, ' das Array bearbeitet und in eine Datei ausggegeben. '********************************************************* Option Explicit Dim FileIn, FileOut Dim Datei, Text, Txt, i, arrSort, arrTest(), oArgs Dim fso : Set fso = WScript.CreateObject("Scripting.FileSystemObject") Dim WSHShell : Set WSHShell = WScript.CreateObject("WScript.Shell") Dim oArgs : set oArgs = Wscript.Arguments ' Fals ein Argument übergeben wurde, sollte es einen Dateinamen ' enthalten ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ For i = 0 to oArgs.Count - 1 ' hole alle Argumente Datei = oArgs.item(i) If not fso.FileExists( Datei ) then MsgBox UCase( Datei ) & " existiert nicht!" & vbCRLF & vbCRLF & " . . . das ist das Ende.", , WScript.ScriptName WScript.Quit End If Exit For ' nur das erste Argument reicht Next ' Gibt's keinen Dateinamen, wird halt das Skript gelesen ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ if Datei = "" then Datei = WScript.ScriptName ' alle Zeilen lesen und an Array übergeben ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Set FileIn = FSO.OpenTextFile(Datei, 1 ) ' Datei zum Lesen öffnen i = 0 : ReDim Preserve Zeile(i) Do While Not (FileIn.atEndOfStream) ' wenn Datei nicht zu ende ist, weiter machen i = UBound( Zeile ) + 1 : ReDim Preserve Zeile(i) : Zeile(i) = FileIn.Readline Loop If UBound( Zeile ) < 1 Then i = UBound( Zeile ) : ReDim Preserve Zeile(i) : Zeile(i) = "Leerdatei" End If FileIn.Close Set FileIn = nothing ' Array bearbeiten; hier: Zeilennummer einfügen ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ for i = LBound( Zeile ) to UBound( Zeile ) Zeile(i) = i+1 & vbTab & Zeile(i) next ' Array in (Ziel-) Datei schreiben ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Datei = fso.GetBaseName( Datei ) & "-.txt" Set FileOut = FSO.OpenTextFile( Datei , 2, true) ' Datei zum Screiben öffnen; 2: immer neu anlegen ' FileOut.WriteLine( vbCRLF & now() & vbCRLF ) ' nur Für Testzwecke for i = LBound( Zeile ) to UBound( Zeile ) FileOut.WriteLine( Zeile(i) ) next FileOut.Close Set FileOut = nothing ' (Ziel-) Datei anzeigen ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ WSHShell.run "notepad """ & Datei & """" , , True ' True: Skriptabarbeitung wartet bis Programm (notepade) beendet ist ' (Ziel-) Datei löschen ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ fso.DeleteFile( Datei )