‘——————————只保留数字—————————————-
Function TrimCH(key)
Dim objRegExp, Match, Matches
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = “[^~*xX0-9]”
TrimCH =objRegExp.Replace(key,””)
Set objRegExp = Nothing
End Function
..