文字置き換え（テキストファイル行単位）

Option Explicit

Dim objFileSys
Dim strScriptPath
Dim strReadFile
Dim strWriteFile
Dim objReadStream
Dim objWriteStream
Dim strText

Set objFileSys = CreateObject("Scripting.FileSystemObject")

strScriptPath = Replace(WScript.ScriptFullName,WScript.ScriptName,"")
strReadFile = objFileSys.BuildPath(strScriptPath,"TestData.txt")
strWriteFile = objFileSys.BuildPath(strScriptPath,"WriteData.txt")

WScript.echo WScript.ScriptFullName
WScript.echo WScript.ScriptName


Set objReadStream = objFileSys.OpenTextFile(strReadFile, 1)
Set objWriteStream = objFileSys.OpenTextFile(strWriteFile, 2, True)

Do Until objReadStream.AtEndOfStream = True

strText = objReadStream.ReadLine
Dim strString

'WScript.echo strText
'文字列の最初から、バイナリ モードで比較を行います。"YXXYXXPXXY"を返します。
strString = Replace(strText, "失敗", "FAILD")

'objWriteStream.WriteLine strText
objWriteStream.WriteLine strString
Loop

objReadStream.Close
objWriteStream.Close

Set objReadStream = Nothing
Set objWriteStream = Nothing
Set objFileSys = Nothing