VBSで文字列の置換

質問

ＶＢＳまったくの初心者で、「そんなもんＷｅｂで調べろ」とお叱りを受けるのを承知でお聞きします。

Ｃ：￥置換￥あああ.txt　のテキストファイル内にある文字列"ＡＢＣ"を"ＤＥＦ"に置換するＶＢＳはどのように記述すればよいでしょうか？。

よろしくお願いいたします。

回答No.1

pkh4989 · ベストアンサー

参考にしてください。

Dim MyFile
Dim myRec
Dim FS

Set FS = CreateObject("Scripting.FileSystemObject")
Set MyFile = FS.OpenTextFile("C:\置換\あああ.txt")
'テキストデータ読込
myRec = MyFile.ReadAll
'msgbox myRec
'テキスト変換
myRec = replace(myRec,"ABC","DEF")
'msgbox myRec
MyFile.Close

'書き込み
Set MyFile = FS.CreateTextFile("C:\置換\あああ.txt")
MyFile.WriteLine (myRec)
MyFile.Close

お礼

ありがとうございました。
やりたいことが完璧に出来ましたm(__)m。