http://dieseyer.de • all rights reserved • © 2011 v11.4
'v7.8***************************************************
' File: zeilennummer.vbs
' Autor: W.Schmelz
' http://dieseyer.de
'
' Beliebige Datei auf dies Programm ziehen und los-
' lassen. Der Datei - Inhalt wird dann zeilenweise
' mit der Zeilen - Nummerierung angezeigt!
'*************************************************
'CopyRight W. Schmelz, 09.08.2007
Titel=" Dateizeilen nummerieren !"
'Objekte für das Programm bereit stellen:
Set Wss=WScript.CreateObject("WScript.Shell")
Set Fso=WScript.CreateObject("Scripting.FileSystemObject")
Set Arg=Wscript.Arguments
UV=VbCR&VbCR
'Aufgesetzte Datei ermitteln:
For i=0 to Arg.Count -1
Datei=Arg.Item(i)
Next
'Falls keine Datei aufgesetzt wurde:
If Datei="" then MsgBox UV&VbCR&_
" Bitte eine Datei aufsetzen, deren"&UV&_
" Zeilen nummeriert werden sollen ! "&_
UV&" Diese Datei wird nicht angetastet !!"&UV&_
VbCR,VbCritical,Titel:WScript.Quit ' Abbruch !!!
'Aufgesetzte Datei zeilenweise lesen:
Set File=Fso.OpenTextFile(Datei,1,true)
i=1
Do until File.AtEndOfStream
ReDim Preserve Zeile(i)
Zeile(i)=File.ReadLine
i=i+1
Loop
Ende=i-1
File.Close
Set File=Nothing
'Die Zeilen durchnummerieren:
i=1
Do until i=Ende+1
Zeile(i)=i&VbTab&Zeile(i) 'VbTab gibt bei i Längenausgleich, nicht " "!
i=i+1
Loop
'Datei für die nummerierten Zeilen festlegen:
Stamm=Fso.GetParentFolderName(Datei)
Datei=Fso.GetBaseName(Datei)&"-Nr.txt"
Datei=Stamm&"\"&Datei
'Datei für die nummerierten Zeilen schreiben:
Set File=Fso.OpenTextFile(Datei,2,true)
i=1
Do until i=Ende+1
File.WriteLine(Zeile(i))
i=i+1
Loop
File.Close
Set File=Nothing
'Die Datei mit den Zeilen-Nr. anzeigen und dann diese löschen?
Wss.Run "Notepad """&Datei&""" "
WScript.Sleep 1500
'Frage, ob die ausgegebene Datei gelöscht werden soll:
Ask=MsgBox(UV&UV&_
"Soll die Datei mit den Zeilen-Nr. gelöscht werden ? "&_
UV&"Sie befindet sich im Verzeichnis dieser Datei !"&UV&_
UV,VbYesNo+VbDefaultButton2+VbCritical,Titel)
If Ask="7" then WScript.Quit ' Bei "Nein" Abbruch !
'Sonst die Datei mit den Zeilen - Nr. löschen:
WScript.Sleep 1500
Fso.DeleteFile Datei
http://dieseyer.de • all rights reserved • © 2011 v11.4