Windows Script Host（wsh）を用いてテキストファイルを書き換える方法を教えてください。

JavaScript

var FSO = new ActiveXObject("Scripting.FileSystemObject");
var tmpNm = FSO.GetTempName();

var IPF = FSO.OpenTextFile("aaa.txt", 1, false);
var OPF = FSO.OpenTextFile(tmpNm , 2, true);

while(!IPF.AtEndOfStream)
{
  var str = IPF.ReadLine();
  var mch = str.match(/^(\d+),a,b$/);
  if(mch)
  {
    OPF.WriteLine((parseInt(mch[1]) + 1) + ",a,b");
  }
  else
  {
    OPF.WriteLine(str);
  }
}

IPF.Close();
OPF.Close();
IPF = null;
OPF = null;

var tmpFl = FSO.GetFile(tmpNm);
tmpFl.Copy("aaa.txt", true);
tmpFl.Delete(true);
tmpFl = null;

VBScript

Set FSO = CreateObject("Scripting.FileSystemObject")
tmpNm = FSO.GetTempName
Set RegTrgt = New RegExp
With RegTrgt
  .Pattern = "^(\d+),a,b$"
  .IgnoreCase = False
  .Global = False
End With

Set IPF = FSO.OpenTextFile("aaa.txt", 1, false)
Set OPF = FSO.OpenTextFile(tmpNm    , 2, true )

Do Until IPF.AtEndOfStream
  str = IPF.ReadLine
  If regTrgt.Test(str) Then
    OPF.WriteLine (RegTrgt.Execute(str)(0).SubMatches(0) + 1) & ",a,b"
  Else
    OPF.WriteLine str
  End If
Loop

IPF.Close
OPF.Close
Set IPF = Nothing
Set OPF = Nothing

Set tmpFl = FSO.GetFile(tmpNm)
tmpFl.Copy "aaa.txt", true
tmpFl.Delete true
Set tmpFl = Nothing

書き換えには、正規検索を使っています。

JavaScriptの方が正規検索の使い勝手が良いです。