请教如何用正则表达式提取txt那两个关键字

Mr_Ying

liu-aguang 发表于 2015-3-18 18:23
发信人:\s*([^(\s]+)\s*[\s\S]+?\(([\w\s]+\d+:\d+:\d+\s\d+)(?:(?!^--)[\s\S])+^--[\s\S]+?(?:\[FROM:\s ...

现在C列返回值有以下这三种情况，二三情况目前正则都包括了，一图这种情况能否整合进去呢？
1图有结束标志“索引页面”，但没有--也没有from，这种情况能不能也返回为空值呢

1图


2图

3图

liu-aguang

Mr_Ying 发表于 2015-3-18 19:28
现在C列返回值有以下这三种情况，二三情况目前正则都包括了，一图这种情况能否整合进去呢？
1图有结束标 ...

1. Sub test()
   
2.     Open ThisWorkbook.Path & "\合并源结果.txt" For Input As #1
   
3.     ar = Split(StrConv(InputB(LOF(1), #1), vbUnicode), "索引页面")
   
4.     Close #1
   
5.     ReDim br(1 To UBound(ar), 1 To 3)
   
6.     Set regx = CreateObject("vbscript.regexp")
   
7.     regx.Pattern = "(?:下一篇|^\s*)(?:(?!发信人)[\s\S])+发信人:\s*([^(\s]+)\s*[\s\S]+?\(([\w\s]+\d+:\d+:\d+\s\d+)|\r\n--[\s\S]+FROM:\s*(\d+(?:\.[\d*]+){3})\]\s*$"
   
8.     regx.Global = True
   
9.     For Each k In ar
   
10.         Set mh = regx.Execute(k)
    
11.         If mh.Count <> 0 Then
    
12.             n = n + 1
    
13.             br(n, 1) = mh(0).submatches(0)
    
14.             br(n, 2) = mh(0).submatches(1)
    
15.             If mh.Count >= 2 Then _
    
16.                 br(n, 3) = mh(1).submatches(2)
    
17.         End If
    
18.     Next
    
19.     Range("a1").Resize(UBound(br), 3) = br
    
20. End Sub
    

复制代码

mzb203

liu-aguang 发表于 2015-3-16 17:13

club.excelhome.net/thread-1436194-1-1.html
有个忙麻烦您帮帮，正则表达式的，VBA小白，感谢！