下面这个正则如何匹配？

chenlifeng123

已知字符A和B，都在行首，但中间相隔若干行内容。
我想：
1、匹配A到B之间的内容，不包括A和B;
2、匹配A到文档末尾的内容，不包括A。
下面是我分别写的正则，怎么也匹配不上：
.Pattern = A & "([^\r]*[\r][\s\S]+?)(?=" & B & ")"
.Pattern = A & "([\r][\s\S]+)"
请问哪位方便指点一下呀，谢谢！
上述提问仅是举例，实际情况中A和B是一段时间和文字的综合内容，且A和B要事先经过其它VBA代码的运算才能得出。
我F8逐一得出了A和B的正确答案，就卡在上面那儿，搞了一晚上了……
   由于我问题的情况复杂，没有上传附件，抱歉！

wj2368

包含A和B的正则表达式，.Pattern = "A.*?B"，要除去用替换

chenlifeng123

首先感谢 您的关注和指点。
我经过多次尝试，按您的意思走，结果一样不能匹配哈。

wj2368

chenlifeng123 发表于 2013-3-2 10:35
首先感谢 您的关注和指点。
我经过多次尝试，按您的意思走，结果一样不能匹配哈。

1. Sub yy()
   
2. B = "匹配A到B之间的内容"
   
3.     Set regex1 = CreateObject("VBSCRIPT.REGEXP")    'RegEx为建立正则表达式
   
4.     With regex1
   
5.         .Global = True    '设置全局可用
   
6.         .Pattern = "A.*?B"
   
7.     End With
   
8.         Set c = regex1.Execute(B)
   
9.         A = c.Item(0)
   
10.         A = Replace(Replace(A, "A", ""), "B", "")
    
11. MsgBox A
    
12. End Sub

复制代码

wj2368

chenlifeng123 发表于 2013-3-2 10:35
首先感谢 您的关注和指点。
我经过多次尝试，按您的意思走，结果一样不能匹配哈。

1. Sub yy()
   
2. B = "匹配A到B之间的内容"
   
3.     Set regex1 = CreateObject("VBSCRIPT.REGEXP")    'RegEx为建立正则表达式
   
4.     With regex1
   
5.         .Global = True    '设置全局可用
   
6.         .Pattern = "A.*?B"
   
7.     End With
   
8.         Set c = regex1.Execute(B)
   
9.         A = c.Item(0)
   
10.         A = Replace(Replace(A, "A", ""), "B", "")
    
11. MsgBox A
    
12. End Sub

复制代码

chenlifeng123

我用其它的文档举例内容来尝试，发现非常正确。
我晚点再用我现在的复杂内容尝试。谢谢大量的指点！灰常感谢！

chenlifeng123

wj2368 发表于 2013-3-2 11:03

发现问题，仍然匹配不了，我的数据内容如下，我放在WORD中：
广东公司 (1998.8-2005.8)
定额站
历任办事员，标准管理科副科长、科长，信息中心主任
汇报线：
工作地点：潍坊
下属：
职责：
? 负责潍坊市建设工程标准规范的管理、监督、检查
? 潍坊市工程造价专业人员的培训、考试
? 潍坊市建设工程材料价格信息的调查、编制
? 山东省工程造价定额的解释，地方一次性补充定额的编制
? 潍坊市建设工程信息中心的筹备、组建及运营管理

北京公司 （民企） (2005.8-2008.9)


您的代码运行出错，下面是我的代码，一样不行：

1. Sub yy()
   
2. b = ActiveDocument.Range.Text
   
3. cc = "广东公司 (1998.8-2005.8)"
   
4. dd = "北京公司 （民企） (2005.9-2008.1)"
   
5.     Set regex1 = CreateObject("VBSCRIPT.REGEXP")    'RegEx为建立正则表达式
   
6.     With regex1
   
7.         .Global = True    '设置全局可用
   
8.         .Pattern = cc & ".*?" & dd
   
9.         If .test(b) Then
   
10.             A = .Execute(b)(0)
    
11.             A = Replace(Replace(A, cc, ""), dd, "")
    
12.         Else
    
13.             A = "111"
    
14.        End If
    
15. End With
    
16.        MsgBox A
    
17. End Sub

复制代码

hopeson2010

1. Sub ek_sky()
   
2.     b = ActiveDocument.Range.Text
   
3.     cc = "广东公司 (1998.8-2005.8)"
   
4.     dd = "北京公司 （民企） (2005.8-2008.9)"
   
5.     If InStr(b, cc) Then
   
6.         If InStr(b, dd) Then
   
7.             MsgBox Mid(b, Len(cc) + 1, Len(b) - Len(cc) - Len(dd) - 1)
   
8.         Else
   
9.             MsgBox "111"
   
10.         End If
    
11.     End If
    
12. End Sub

复制代码

chenlifeng123

我在纳闷的是，正则问题出在哪儿哈。
倒是用替换法或是其它办法，我也想到了一个方子，分享大家：

1. Sub ek_sky()
   
2.     b = ActiveDocument.Range.Text
   
3.     CC = "广东公司 (1998.8-2005.8)"
   
4.     dd = "北京公司 （民企） (2005.8-2008.9)"
   
5.     MsgBox Split(Split(b, CC)(1), dd)(0)
   
6. End Sub

复制代码

wj2368

chenlifeng123 发表于 2013-3-3 03:44
发现问题，仍然匹配不了，我的数据内容如下，我放在WORD中：
广东公司 (1998.8-2005.8)
定额站

1. Sub yy()
   
2. B = ActiveDocument.Range.Text
   
3. h = Len("广东公司(1998.8 - 2005.8)")
   
4. With CreateObject("VBSCRIPT.REGEXP")
   
5.   .Global = True
   
6.   .Pattern = "(广东公司)(.*?)(?=(北京公司))"
   
7.   If .test(B) Then A = Replace(Trim(Mid(.Execute(B)(0), h)), """", "")
   
8. End With
   
9.        MsgBox A
   
10. End Sub
    

复制代码