file-io - 既存のテキスト ファイル内の既存の番号を更新する VB スクリプト

Question

これは簡単だと思いますが、私のプログラミングスキルは誰にも負けません。

数字と常に数字を含むテキストファイルがあります1。1そのテキスト ファイルのその番号に常に追加し、更新し、保存してから閉じるには、VBScript が必要です。新しいファイルには、2.

次回スクリプトを実行するとき、ファイルには次のものが含まれ3ている必要があります。

Answer 1

VB.NETではなくVBScriptを意味していると仮定して、私がまとめたものを次に示します。

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

そのコードにはエラー処理がないことに注意してください。