28,391
社区成员
发帖
与我相关
我的任务
分享
spaces = " "
for i=10 to 2 step -1
space = left(spaces, i)
a = replace(a, space, " ")
next
<%
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 bbbbcccc"
b = RegReplace(a,"([ ]{1,})","0")
response.write b
%>