仪器社区

如何用正则表达式把括号中的数据提出?

陶哥就是任性 2011-07-11
下面是一个PDF伪码,我用fso读出,要把像 (*) Tj 个括号中间的数据全部提出来,如(Paper Sampling Request Report) Tj中的"Paper Sampling Request Report",应该如何做呢~~~ 13.92 595.20 TD /F0 10.00 Tf (Run Date:) Tj ET q 65.80 594.04 111.96 9.76 re ... 下面是一个PDF伪码,我用fso读出,要把像 (*) Tj 个括号中间的数据全部提出来,如(Paper Sampling Request Report) Tj中的"Paper Sampling Request Report",应该如何做呢~~~ 13.92 595.20 TD /F0 10.00 Tf (Run Date:) Tj ET q 65.80 594.04 111.96 9.76 re W n BT 65.80 594.44 TD (05-JUL-11 04:07:21) Tj ET Q 0 g 0 G BT 32.92 585.44 TD /F0 10.00 Tf (Page:) Tj ET q 65.76 582.80 31.00 11.24 re W n BT 91.24 584.72 TD (1) Tj ET Q 0 g 0 G BT 265.00 594.80 TD /F0 10.00 Tf (Paper Sampling Request Report) Tj 308.76 1.20 TD (Report: PXINVR10813) Tj
评论
全部评论
Nan亚甜
''''''''''''''''''Set mhs = oReg.Execute(str)
''''''''''''''''''''''If mhs.Count Then
'''''''''''''''''''''Reg = mhs(0).SubMatches(0)
'''''''''''''''''''''''End If

.Pattern = "(?<=\()([^\)]+)(?=\) Tj)"

Set Matches = oReg.Execute(str)
For Each Match in Matches
s = Match.Value
Next
End Function
19 0 2011-07-13 0条评论 回复
happy徐樂樂
注释了\(\)
11 0 2011-07-12 0条评论 回复
变太玲
(?<=\()[\w\W]*?(?=\)\s*Tj)正则表达式工具测试里通过,代码中没有测试

在代码中,相关字符需要转义

你代码中:
Pattern="(?<=\\()[\\w\\W]*?(?=\\)\\s*Tj)"; //这样试试,转义后的,vba没有用过
4 0 2011-07-12 0条评论 回复
您可能感兴趣的社区主题
加载中...
发布 评论