ASP删除多余的空格替换中间多个空格为一个空格 - asp.net 教程-

function removeSuperfluousSpace(str)
     dim re     
     Set re=new RegExp
     re.IgnoreCase =true
     re.Global=True
     re.Pattern="(\s{1,})"
     str=re.replace(str," ")
     removeSuperfluousSpace=str
     set re=nothing
end function

去除中间多于空格
Function RegExpTest(strng)
Dim regEx ' 建立变量。
Set regEx = New RegExp ' 建立正则表达式。
regEx.Pattern = " +" ' 设置模式。
regEx.IgnoreCase = True ' 设置是否区分字符大小写。
regEx.Global = True ' 设置全局可用性。
regexptest = regEx.Replace(strng," ")
End Function
MsgBox (regexptest("dfrg refrfe eee"))

for i = 1 to len(aaa)
aaa=replace(aaa," "," ") 'aaa,后面这个双引是双空格,后面这个双引是单空格，这样就会一直替换下去，直到中间只有一个空格
next