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

解決

成美 2004-07-27 03:17:59 No: 115039

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

成美 2004-07-27 03:19:13 No: 115040

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

KPC 2004-07-27 05:45:20 No: 115041

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

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

成美 2004-08-03 03:21:54 No: 115042

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

成美 2004-08-03 03:22:23 No: 115043

解決です。