Загрузка содержимого из txt-файла в переменную

Question

Я сделал счетчик, который работает, когда вы нажимаете кнопку в качестве действия в VBScript.

мой код:

Licznik_ID = Licznik_ID + 1 

    Dim Stuff, myFSO, WriteStuff, dateStamp 

    Stuff = "Whatever you want written" 

    Set myFSO = CreateObject("Scripting.FileSystemObject") 
    Set WriteStuff = myFSO.OpenTextFile("c:\tmp\yourtextfile.txt", 2, True) 
    WriteStuff.WriteLine(Licznik_ID) 
    WriteStuff.Close 
    SET WriteStuff = NOTHING 
    SET myFSO = NOTHING 

счетчик переменная с именем "Licznik_ID" указано стрелкой.

Он записывается в файл "C: \ TMP \ yourtextfile.txt" И это хорошо работает. За каждый раз число увеличивается на единицу и заменяется и сохраняется в txt-файле.

Файл содержит число 1, и увеличение в текстовом файле появится номер 2 и так далее ...

Как теперь загрузить данные хранятся вместе с файлом «C: \ TMP \ yourtextfile.txt» вернитесь к переменной, чтобы использовать ее таким образом, чтобы при запуске NiceForm или кнопка была загружена содержимым txt-файла в переменную?

Answer 1

Set myFSO = CreateObject("Scripting.FileSystemObject") 
Licznik_ID = myFSO.OpenTextFile("C:\tmp\yourtextfile.txt").ReadAll 
Licznik_ID = Licznik_ID + 1 
myFSO.OpenTextFile("C:\tmp\yourtextfile.txt",2,True).Write(Licznik_ID) 

FSO является своего рода странным, как иногда бывает в его файловых режимах.

редактировать: Если вы хотите, чтобы это создать файл без ошибок, если он не существует, строка 2 заменить следующим образом:

If myFSO.FileExists("C:\tmp\yourtextfile.txt") Then 
    Licznik_ID = myFSO.OpenTextFile("C:\tmp\yourtextfile.txt").ReadAll 
End If 

Если файл не существует, Licznik_ID будет Empty , Empty + 1 = 1 в vbscript.