多个空格替换成一个及其扩展函数代码,ASP代码库,德仔网

代码语言

代码分类

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

作者:Dezai.CN / 发布于2011/8/22/ 1296

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

</div>

试试其它关键字

同语言下

可能有用的

Dezai.CN贡献的其它代码(4037)