用于更新现有文本文件中现有编号的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 

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