Linum (VBScript)

Aus Thomas Wiki
Zur Navigation springen Zur Suche springen

linum.vbs

VBScript um Text Dateien mit Zeilennummern zu versehen.


' Thomas Arend
' (c) 2014
'
' Nummerieren der Zeilen einer Datei mit führenden "0"


TAB=Chr(9)


FUNCTION Leading0( iNumber , iWidth)
    
  Leading0 = Right(String(iWidth ,"0") & CStr(iNumber), iWidth)
  
END FUNCTION


Set fso = CreateObject("Scripting.FileSystemObject")


sFILE = InputBox ( "Dateiname:" , "Zeilen in text Datei nummerieren" )


Set f = fso.getFile(sFILE)
Set o = fso.CreateTextFile("numbered-" + f.Name + ".txt", True)


set s = f.OpenAsTextStream(1)


i=1
do while not s.AtEndOfStream
   sLine = s.readLine()
   o.WriteLine( Leading0(i,4) + TAB + sLine)
   i = i+1
loop
s.close


set f = Nothing
set fso = Nothing