用正则讲字符串中非数字替换为空
时间:2011-04-10 来源:moretop
function replacestr(str)
dim re
set re=new regexp
re.ignorecase=true
re.global=true
re.pattern="\D"
str=re.replace(str,"")
replacestr=str
set re=nothing
end function
相关阅读 更多 +