ここから本文です

エクセルVBAで、テキストファイルの内容を置換したいのですが・・・

som********さん

2013/1/1611:22:00

エクセルVBAで、テキストファイルの内容を置換したいのですが・・・

例えば、C:\test.ini というテキストファイルがあるとします。

また、テキストファイル内の1か所に、「sumple=1」という記述があり、この文字列を「sumple=2」と変更して保存することは可能でしょうか?

テキストファイルを開くまではできたのですが、内容を変更するところで行き詰まっています。

有識者の皆様、ご回答よろしくお願いいたしますm(_ _)m

閲覧数:
35,180
回答数:
1
お礼:
100枚

違反報告

ベストアンサーに選ばれた回答

rio********さん

2013/1/1612:08:53

http://officetanaka.net/excel/vba/filesystemobject/textstream07.htm
http://officetanaka.net/excel/vba/filesystemobject/textstream11.htm
http://officetanaka.net/excel/vba/filesystemobject/file14.htm
http://officetanaka.net/excel/vba/filesystemobject/filesystemobject...

この辺から

Dim FSO As Object, buf As String
Set FSO = CreateObject("Scripting.FileSystemObject")

With FSO.GetFile("C:\test.ini").OpenAsTextStream
buf = .ReadAll
.Close
End With

FSO.GetFile("C:\test.ini").Delete
FSO.CreateTextFile "C:\test.ini"

buf = Replace(buf, "sumple=1", "sumple=2")

With FSO.GetFile("C:\test.ini").OpenAsTextStream(8)
.Write buf
.Close
End With

Set FSO = Nothing

こんな感じですかね?

質問した人からのコメント

2013/1/16 12:40:09

完璧です!ご快答ありがとうございました。

あわせて知りたい

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる