Vbscript 将内容从txt文件下载到变量

我制作了一个计数器，在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，增加的txt文件中出现数字2，依此类推

现在如何将存储在文件“c:\tmp\yourtextfile.txt”中的数据下载回变量，以便在启动NiceForm或button时将txt文件的内容加载到变量中

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+1=1

。

您的文本文件是否只包含一个您希望每次递增一的数字？没错。该文件包含数字1，txt文件中增加的数字2等等…这有什么奇怪的？主要是，打开它进行写入（2）会每次创建一个新文件，并使其无法读取。这是一个内存流，您希望它在什么时候表现出任何不同？另外，

forwrite

不会每次都强制创建新文件，您可以使用

create

布尔参数

object.OpenTextFile（filename[，iomode[，create[，format]]]）

。我不是说它没有意义或无法理解，只是它会让初学者感到困惑。好吧，这只是一种概括。对于初学者来说，编程中的大多数任务可能会令人困惑，但我明白这一点。