file-io - 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

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