[正規表現を使って置換する]

正規表現を使用して、文字列を置換します。
メールアドレス（英語，数字＋＠＋英語，数字）を ***** に置換しています。

【ソースコード】

[tips0058.vbs]
Option Explicit

Dim objRegExp       ' 正規表現オブジェクト
Dim strRepBefore    ' 置換前の文字列
Dim strRepAfter     ' 置換後の文字列

Set objRegExp = New RegExp
objRegExp.Pattern = "[A-Za-z0-9]*@[A-Za-z0-9.]*"
strRepBefore = "E-Mail: tipstest@whitire.com !!"
strRepAfter = objRegExp.Replace(strRepBefore, "*****")

WScript.Echo "置換後の文字列は " & strRepAfter & " です。"

Set objRegExp = Nothing

【実行結果】

C:\> cscript //NoLogo tips0058.vbs
置換後の文字列は E-Mail: ***** !! です。