Excel VBA質問箱 IV

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

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


8026 / 13644 ツリー ←次へ | 前へ→

【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 お礼[未読]

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

引用なし
パスワード
   VBA超初心者です。。

お尋ねしたいのですが、"XXX.txt."ファイルの中の

全ての"tdk-s1"の部分を、"pc.tdks1"と書き換えたいのですが
どのようなコードを組めばよろしいのでしょうか?

宜しくお願い致します。

【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

【35477】Re:テキストファイルの書換え
質問  超初心者 E-MAIL  - 06/3/6(月) 16:09 -

引用なし
パスワード
   だるまさん

ありがとうございます!!
なりました(゙^-^)

ところでこの方法でファイルを選択する方法はありますか??
PC内の任意のテキストファイルから選んで、先ほどの書換えをしたいと
考えております。

あと書換えを繰り返したい時はどのようにコードをつなげたらよいですか?
(書換え内容は前回の内容と違うので、下に繋ぎ合わせていきたいのです。)

Const Bfr As String = "tdk-s1"
Const Aft As String = "pc.tdks1"

この下に書いていけばいいですか???

Const Bfr As String = "tdk-s1"
Const Aft As String = "pc.tdks1"
Const Bfr As String = "abc-s1"
Const Aft As String = "pc.abcs1"
Const Bfr As String = "con-s2"
Const Aft As String = "pc.cons2"

宜しくお願い致します。


このような感じでいいですか?

【35481】Re:テキストファイルの書換え
発言  だるま WEB  - 06/3/6(月) 16:58 -

引用なし
パスワード
   >ところでこの方法でファイルを選択する方法はありますか??
勉強が目的でコードを知りたいということでしたら

GetOpenFileNameメソッド

をヘルプでお調べください。^d^

実行だけが目的ならこんなフリーソフトもあります。

文字置換えツール
http://www.vector.co.jp/soft/win95/business/se288947.html

【35485】Re:テキストファイルの書換え
質問  超初心者 E-MAIL  - 06/3/6(月) 17:37 -

引用なし
パスワード
   だるまさん

ありがとうございました。
とりあえず作成を先にしたいので、ダウンロードさせていただきました。
ファイル選択の部分は何とかできたのですが、2回以上、書換えをする方法が
わかりません。。。
今後のために勉強したいので宜しくお願い致します。

どうぞ宜しくお願い致します。

【35489】Re:テキストファイルの書換え
回答  だるま WEB  - 06/3/6(月) 18:45 -

引用なし
パスワード
   >2回以上、書換えをする方法

Const宣言は止めて

>V = Replace(V, Bfr, Aft)
ここを

V = Replace(V, "aaa", "bbb")
V = Replace(V, "あいう", "かきく")

のように必要なだけ繰り返せば良いです。^d^

【35492】Re:テキストファイルの書換え
お礼  超初心者 E-MAIL  - 06/3/6(月) 20:15 -

引用なし
パスワード
   だるまさん

ありがとうございました!
できました(*´∇`*)

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