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

Question

当你按下按钮作为VBScript中的动作时，我创建了一个计数器。

我的代码：

var counts = (from fc in (
                 from f in ctx.Foo
                 group f by 1 into fgrp
                 select fgrp.Count())
             from bc in (
                 from b in ctx.Bar
                 group b by 1 into bgrp
                 select bgrp.Count())
             select new { FooCount = fc, BarCount = bc }).Single();

名为“Licznik_ID”的计数器变量 由箭头指示。

将其写入文件“c：\ tmp \ yourtextfile.txt” 它运作良好。 每次数字增加1并被替换并存储在txt文件中。

该文件包含数字1，txt文件中的增加显示数字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。 vbscript中的Empty + 1 = 1。