VB.NET 正则表达式替换

Result = Regex.Replace(Content, "[0-9]{1,100}", "0")

Function CheckRepnum(strng,num,words,n) '以数组返回,屏蔽
If n=0 Then CheckRepnum=strng:Exit Function
i = 0
Set regEx = New RegExp
regEx.Pattern = "(\d+)" '"[0-9]"
regEx.IgnoreCase = True
regEx.Global = True
Set Matches = regEx.Execute(strng)
For Each Match in Matches
'RetStr = RetStr &"
"& Match.Value
If Len(Match.Value)>=num and InStr(Match.Value,"201")=0 Then
strng = Replace(strng, Right(Match.Value,4),words)
End If
i = i + 1
Next
CheckRepnum = strng
End Function
你参考一下就明白了