検索文字の後の文字を"*"に置換するには？

解決

---

--- 元.txt ------------------------------------------
・○×▼×・・・×▼・・・・・・・・
・・・・電話：09012341234・・・・
・・○・・・電話：0312378912・・・・
・・・・・・・・・・・・・・・・・・・
・・電話：070456123■・・・
--- 先.txt -------------------------------------
・○×▼×・・・×▼・・・・・・・・
・・・・電話：*****341234・・・・
・・○・・・電話：*****78912・・・・
・・・・・・・・・・・・・・・・・・・
・・電話：*****6123■・・・
------------------------------------------------
例えば、元.txtのようなテキストファイルデータがあります。
「電話：」で検索し、その後の文字5バイトを「*」に置換し、
元.txtとしてファイルを新たに作成したいのですが、
どのように行えばいいのでしょうか？
どなたか教えてくださいませ。

編集 削除

---

>元.txtとしてファイルを新たに作成したいのですが、
元.txtじゃなく先.txtですね。ごめんなさい。

編集 削除

---

思いつきですが。
"電話："の後に必ず電話番号が来るという前提で。

Dim fs As Object
Dim ts As Object
Dim sBuf As String
Dim sTmp() As String
Dim i As Long

Set fs = CreateObject("Scripting.FileSystemObject")
Set ts = fs.OpenTextFile("C:\元.txt")
sBuf = ts.ReadAll
ts.Close
sTmp = Split(sBuf, "電話：")
For i = 1 To UBound(sTmp)
    sTmp(i) = "電話：*****" & Mid(sTmp(i), 6)
Next i
sBuf = Join(sTmp)

Set ts = fs.OpenTextFile("C:\先.txt", 2, True)
ts.Write sBuf
ts.Close

Set ts = Nothing
Set fs = Nothing

編集 削除

---

KPCさんありがとうございます。(^o^)丿
なるほどうまく行えました。
返答が遅くなりすみませんでした。

編集 削除

---

解決です。

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。