VB脚本更新现有文本文件中的现有编号

Question

我确信这很简单，但我的编程技巧几乎没有。

我有一个文本文件，其中包含一个数字，并且始终包含一个数字，例如1。我需要一个VBScript来始终将1添加到该文本文件中的该数字，更新，保存，然后关闭。新文件应包含2。

下次执行脚本时，文件应包含3，依此类推。

Answer 1

这是我拼凑的东西，假设你的意思是VBScript而不是VB.NET：

Option Explicit

Dim filename
filename = "C:\Path\To\Your\file.txt"

Dim fso, f, num

Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(filename, 1) ' for reading
num = CInt(f.ReadAll)
f.Close

Set f = fso.OpenTextFile(filename, 2) ' for writing
f.Write num + 1
f.Close

请记住，该代码中没有错误处理。