28,390
社区成员
发帖
与我相关
我的任务
分享
Function section(ByVal s)
With New RegExp
.Pattern = "\d{4}(?=\d)"
.Global = True
section = .Replace(s, "$& ")
End With
End Function
s="4587854465105464"
s2=""
for i=1 to len(s) step 4
if s2="" then
s2 = mid(s,i,4)
else
s2 = s2 & " " & mid(s,i,4)
end if
next
response.write s2
s = "4587854465105464"
With New RegExp
.Pattern = "\d{4}"
.Global = True
s = .Replace(s, "$& ")
End With
Response.Write s