asp替換空格正則表達式

2013/2/6 17:35:401645 閱讀

Function RegReplace(vStr,vReg,vCode)
Dim Re,sStr
sStr = vStr
Set Re = New RegExp
Re.Pattern = vReg
Re.IgnoreCase = True
Re.Global = True
If Re.Test(sStr) Then
sStr = Re.Replace(sStr,vCode)
End If

RegReplace = sStr
End Function

a = "aaaa 　　　　　　　　　　　　 ,,,,1111111  ｓｄｓｄｆｓ  　　　　  aaaaaaaaaa ()   bbbbcccc"
b = RegReplace(a,"([  　]{1,})"," ")
response.write b &"<br>"
response.write a &"<br>"

數(shù)字正則：

"[\d+\$]+"

下一條：SQL Server 2000常用命令,語法使用方法

上一條：win2003內(nèi)置系統(tǒng)管理員賬號名稱修改方法