検索文字の後の文字を"*"に置換するには？ (ID:115041)

名前

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

本文 思いつきですが。 "電話："の後に必ず電話番号が来るという前提で。 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