Hi. Ich habe gerade damit begonnen Scripting zu lernen und bin noch bei den Grundlagen. Als eine meiner ersten Handlungen habe ich mir ein kleines Programm geschrieben, wo man einen Anfangwert und einen Endwert eingibt und das Programm den Anfangswert solange erhöht, bis er genau so groß wie der Endwert ist. Dann schreibt das Prog noch alles in eine Textdatei. Also eigentlich eine ganz einfache Sache, möchte man meinen. Aber Wenn ich beide Werte eingegeben habe, dann bleibt das Programm in einer Endlosschleife hängen. Das Resultat ist eine Textdatei, die immer größer wird. Bis ich beim ersten mal rausgefunden hatte, was falsch läuft, war die Datei schon fast 400MB groß!
Ich hoffe mir kann jemand helfen dieses Problem zu lösen.
(Gegen Verbesserungsvorschläge hätte ich auch nichts einzuwenden)
Der Code:
----------------
Anfw = InputBox("Geben Sie den Anfangswert ein!",,"")
Endw = InputBox("Geben Sie den Endwert ein!",,"")
Set wshshell = CreateObject("WScript.Shell")
ordner = wshshell.SpecialFolders("MyDocuments")
Set fs = CreateObject("Scripting.FileSystemObject")
dateiname = ordner & "\Liste.txt"
Set file = fs.CreateTextFile(dateiname, True)
Dim Bwert
Bwert = Anfw
do until Bwert = Endw
file.WriteLine Bwert
Bwert = Bwert + 1
loop
file.Close
wshshell.Run """" & dateiname & """"
-------- Ende ----------
UselessUser
