質問

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

C:¥置換¥あああ.txt のテキストファイル内にある文字列"ABC"を"DEF"に置換するVBSはどのように記述すればよいでしょうか?。

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

通報する

回答 (1件)

参考にしてください。

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。

このQ&Aは役に立ちましたか?1 件

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

新しく質問する

注目の記事

おしトピ 夏のプレゼントキャンペーン

「暑~い夏に食べたくなるものと言えば何?」
「東京ディズニーリゾートで好きなアトラクションやショーは何?」
オーダーに答えて、夏が楽しくなるプレゼントをゲットしよう!


新しく質問する

このカテゴリの人気Q&Aランキング

毎日見よう!教えて!gooトゥディ

べんりQ&A特集