2013/2/6 17:35:401643 閱讀
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 sdsdfs aaaaaaaaaa () bbbbcccc" b = RegReplace(a,"([ ]{1,})"," ") response.write b &"<br>" response.write a &"<br>" 數(shù)字正則:
"[\d+\$]+"
微信小程序
掃描手機(jī)瀏覽