Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

46230 / 76732

←次へ　｜　前へ→


	【35476】Re:テキストファイルの書換え

だるま

- 06/3/6(月) 13:42 -


	引用なし

	パスワード

▼超初心者さん：
>VBA超初心者です。。
>
>お尋ねしたいのですが、"XXX.txt."ファイルの中の
>
>全ての"tdk-s1"の部分を、"pc.tdks1"と書き換えたいのですが
>どのようなコードを組めばよろしいのでしょうか？
>
>宜しくお願い致します。

こんな感じでしょうか。^d^

Sub test()
　　Dim Fso As Object
　　Dim Ts As Object
　　Dim myPath As String
　　Dim V As String
　　
　　Const Bfr As String = "tdk-s1"
　　Const Aft As String = "pc.tdks1"
　　
　　myPath = ThisWorkbook.Path & "\test.txt"
　　
　　Set Fso = CreateObject("Scripting.FileSystemObject")
　　
　　Set Ts = Fso.OpenTextFile(myPath, 1)
　　V = Ts.ReadAll
　　Ts.Close
　　
　　V = Replace(V, Bfr, Aft)
　　
　　Set Ts = Fso.OpenTextFile(myPath, 2, True)
　　Ts.Write V
　　Ts.Close
　　
　　Set Ts = Nothing
　　Set Fso = Nothing
End Sub

9 hits

▼

【35474】テキストファイルの書換え 超初心者 06/3/6(月) 12:49