多个空格替换成一个及其扩展函数

<script language=vbs> '名称：多个空格替换成一个及其扩展函数 '作者：柳永法 '网址：http://www.yongfa365.com/item/too-space-to-one-space.html '日期：2007-6-18 Function delspace(Str) Set re = New RegExp re.IgnoreCase = True re.Global = True re.Pattern = " +" delspace = re.Replace(Str, " ") End Function Function reReplace(Str, restrS, restrD) Set re = New RegExp re.IgnoreCase = True re.Global = True re.Pattern = restrS reReplace = re.Replace(Str, restrD) End Function Str = "www.yongfa365.com 这个网站不错， 真的没人知道吗， 太可惜了 hohop" MsgBox delspace(Str), , "第一个函数delspace,只替换多个空格为一个" MsgBox reReplace(Str, " +", " "), , "第二个函数reReplace，自定义正则替换成，自定义的内容。" MsgBox reReplace(Str, " +", "@") </script>
可修改代码后再运行

'名称：多个空格替换成一个及其扩展函数
'作者：柳永法
'网址：http://www.yongfa365.com/item/too-space-to-one-space.html
'日期：2007-6-18



Function delspace(Str)
    Set re = New RegExp
    re.IgnoreCase = True
    re.Global = True
    re.Pattern = " +"
    delspace = re.Replace(Str, " ")
End Function


Function reReplace(Str, restrS, restrD)
    Set re = New RegExp
    re.IgnoreCase = True
    re.Global = True
    re.Pattern = restrS
    reReplace = re.Replace(Str, restrD)
End Function


Str = "www.yongfa365.com  这个网站不错，    真的没人知道吗，    太可惜了    hohop"

MsgBox delspace(Str), , "第一个函数delspace,只替换多个空格为一个"

MsgBox reReplace(Str, " +", " "), , "第二个函数reReplace，自定义正则替换成，自定义的内容。"
MsgBox reReplace(Str, " +", "@")