https://wiki.byggvir.de/index.php?action=history&feed=atom&title=Linum_%28VBScript%29 2026-05-29T19:44:29Z Versionsgeschichte dieser Seite in Thomas Wiki MediaWiki 1.41.0 https://wiki.byggvir.de/index.php?title=Linum_(VBScript)&diff=121&oldid=prev 2014-01-25T17:56:20Z

<p>Die Seite wurde neu angelegt: „== linum.vbs == VBScript um Text Dateien mit Zeilennummern zu versehen. &lt;pre&gt; &#039; Thomas Arend &#039; (c) 2014 &#039; &#039; Nummerieren der Zeilen einer Datei mit führende…“</p> <p><b>Neue Seite</b></p><div>== linum.vbs ==<br /> <br /> VBScript um Text Dateien mit Zeilennummern zu versehen.<br /> <br /> <br /> &lt;pre&gt;<br /> &#039; Thomas Arend<br /> &#039; (c) 2014<br /> &#039;<br /> &#039; Nummerieren der Zeilen einer Datei mit führenden &quot;0&quot;<br /> <br /> <br /> TAB=Chr(9)<br /> <br /> <br /> FUNCTION Leading0( iNumber , iWidth)<br /> <br /> Leading0 = Right(String(iWidth ,&quot;0&quot;) &amp; CStr(iNumber), iWidth)<br /> <br /> END FUNCTION<br /> <br /> <br /> Set fso = CreateObject(&quot;Scripting.FileSystemObject&quot;)<br /> <br /> <br /> sFILE = InputBox ( &quot;Dateiname:&quot; , &quot;Zeilen in text Datei nummerieren&quot; )<br /> <br /> <br /> Set f = fso.getFile(sFILE)<br /> Set o = fso.CreateTextFile(&quot;numbered-&quot; + f.Name + &quot;.txt&quot;, True)<br /> <br /> <br /> set s = f.OpenAsTextStream(1)<br /> <br /> <br /> i=1<br /> do while not s.AtEndOfStream<br /> sLine = s.readLine()<br /> o.WriteLine( Leading0(i,4) + TAB + sLine)<br /> i = i+1<br /> loop<br /> s.close<br /> <br /> <br /> set f = Nothing<br /> set fso = Nothing<br /> &lt;/pre&gt;</div>

Thomas