Dim regEx,Matches,Str,Match
Str="123456789abcd12345kmdasdl1234567abc12345678"
Set regEx = New RegExp
regEx.Pattern ="[\d]{5,}"
regEx.IgnoreCase = True
regEx.Global = True
Set Matches = regEx.Execute(Str)
For Each Match in Matches
Str = replace(Str,Match.Value,String(Len(Match.Value),"*"),1,1)
Response.Write Str & "
"
Set Matches = regEx.Execute(Str)
Next
内容全部来源于网络收集，如有侵权，请联系网站删除！
QQ：24596024