'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 )