Question

VBS中字符串查找替换

有一个字符串比如 str="a12:12b2:23c:45d6:56e1:78f:89"
我想replace成a12b2cde1f,就是把中间的冒号加冒号后面的数字“:XX“去掉，数字不一定是两位的，也可能多位
我用Replace (str,":\d+","")貌似不行

Answer 1

Function ReplaceTest(str,patrn, replStr)
Dim regEx, str1 ' 建立变量。
'str1 = "dog 123."
Set regEx = New RegExp ' 建立正则表达式。
regEx.Pattern = patrn ' 设置模式。
regEx.IgnoreCase = True ' 设置是否区分大小写。
ReplaceTest = regEx.Replace(str, replStr) ' 作替换。
End Function
str="a12:12b2:23c:45d6:56e1:78f:89"
for i = 1 to 6
str =ReplaceTest(str,":\d+","")
next
MsgBox str

Answer 2

-18