5,388
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
专制的网站 2012-07-23
- 打赏
- 举报
可参考 "万一" 的博客内容，google之就能找到
jiajiajing6 2012-07-23
- 打赏
- 举报
如果用新的正则的话.
var
reg: tperlregex;
获取结果
while reg.matchagain do begin
strReg1:= reg.Groups[1];
strReg2:= reg.Groups[2];
end;
用Groups属性可以得到匹配结果列表... 其它Groups[0]表示表达式匹配到的结果
从1开始对应每个子表达式的值..
var
reg: tperlregex;
获取结果
while reg.matchagain do begin
strReg1:= reg.Groups[1];
strReg2:= reg.Groups[2];
end;
用Groups属性可以得到匹配结果列表... 其它Groups[0]表示表达式匹配到的结果
从1开始对应每个子表达式的值..
anyqu 2012-07-23
- 打赏
- 举报
求指教！
