Question

VBA中正则表达式匹配字符串的问题

目标字符串：第一条 第二条 ... 第N条

Answer 1

dim reg as object
set reg=createobject("vbscript.regexp")
with reg
    .pattern="第[一二三四五六七八九十百千万零〇]+条"'自己看文本情况选择增加^$限定
    .Global=true
end with
if reg.test("测试文本")=true then
    str=reg.replace("测试文本","替换结果表达式")'替换结果中，如果需要使用后向引用，\应写为$,如$1$2.
end if

Answer 2

以前在网上找到一个VBA编写的正则表达式函数,如果要的话可以联系我

Answer 3

第[零一二三四五六七八九十百]+条