Excel VBA質問箱 IV

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

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


46230 / 76732 ←次へ | 前へ→

【35476】Re:テキストファイルの書換え
回答  だるま WEB  - 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 質問
【35476】Re:テキストファイルの書換え だるま 06/3/6(月) 13:42 回答
【35477】Re:テキストファイルの書換え 超初心者 06/3/6(月) 16:09 質問
【35481】Re:テキストファイルの書換え だるま 06/3/6(月) 16:58 発言
【35485】Re:テキストファイルの書換え 超初心者 06/3/6(月) 17:37 質問
【35489】Re:テキストファイルの書換え だるま 06/3/6(月) 18:45 回答
【35492】Re:テキストファイルの書換え 超初心者 06/3/6(月) 20:15 お礼

46230 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free