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

Mr_Ying

liu-aguang 发表于 2015-3-16 21:43

非常感谢你！

Mr_Ying

liu-aguang 发表于 2015-3-16 20:50
再如下列情形该如何对应:
Re: 【推荐】 Illarramendi 桑普多利亚VS那不勒斯 发信人: AirmanAtSMTH (Airman ...

第一行的发信人，实际上第一行都是标题。
Re: 【推荐】 westlake 托特纳姆热刺 VS 埃弗顿 , 发信人: AirmanAtSMTH (Airmansmth), 信区: Bet

Re: aguero10设置竞猜结果:[英超]第13轮 南安普敦 发信人: AirmanAtSMTH (Airmansmth), 信区: Bet

Re: aguero10设置竞猜结果:[英超]第13轮 南安普敦 发信人: AirmanAtSMTH (Airmansmth), 信区: Bet

liu-aguang

Mr_Ying 发表于 2015-3-16 21:30
第一行的发信人，实际上第一行都是标题。
Re: 【推荐】 westlake 托特纳姆热刺 VS 埃弗顿 , 发信人: Ai ...

1. Sub test()
   
2.     Open ThisWorkbook.Path & "\合并源结果.txt" For Input As #1
   
3.     s = StrConv(InputB(LOF(1), #1), vbUnicode)
   
4.     Close #1
   
5.     Set regx = CreateObject("vbscript.regexp")
   
6.     regx.Pattern = "发信人:\s*([\w-]+)(?:(?!^--)[\s\S])+^--[\s\S]+?\[FROM:\s*([\d.*]+)"
   
7.     regx.Global = True
   
8.     regx.MultiLine = True
   
9.     Set mh = regx.Execute(s)
   
10.     ReDim arr(1 To mh.Count, 1 To 2)
    
11.     For Each k In mh
    
12.         n = n + 1
    
13.         arr(n, 1) = k.submatches(0)
    
14.         arr(n, 2) = k.submatches(1)
    
15.     Next
    
16.     Range("a1").Resize(n, 2) = arr
    
17. End Sub
    

复制代码

Mr_Ying

liu-aguang 发表于 2015-3-16 21:43

非常感谢您上次的解答，能不能把如图所示的时间返回到B列
即最后的效果：
A列是上面红框的文本
B列是中间红框的文本
C列是下面红框的文本

因前面讨论过了几个例外，所以建议能不能只动一下红色字体部分。
regx.Pattern = "发信人:\s*([\w-]+)(?:(?!^--)[\s\S])+^--[\s\S]+?\[FROM:\s*([\d.*]+)"

文本文下载： 示例文件0318.rar (384.74 KB, 下载次数: 17)

2015-3-18 14:27 上传

点击文件名下载附件

liu-aguang

Mr_Ying 发表于 2015-3-18 14:27
非常感谢您上次的解答，能不能把如图所示的时间返回到B列
即最后的效果：
A列是上面红框的文本

1. Sub test()
   
2.     Open ThisWorkbook.Path & "\合并源结果.txt" For Input As #1
   
3.     s = StrConv(InputB(LOF(1), #1), vbUnicode)
   
4.     Close #1
   
5.     Set regx = CreateObject("vbscript.regexp")
   
6.     regx.Pattern = "发信人:\s*([^(\s]+)\s*[\s\S]+?\(([\w\s]+\d+:\d+:\d+\s\d+)(?:(?!^--)[\s\S])+^--[\s\S]+?\[FROM:\s*([\d.*]+)"
   
7.     regx.Global = True
   
8.     regx.MultiLine = True
   
9.     Set mh = regx.Execute(s)
   
10.     ReDim arr(1 To mh.Count, 1 To 3)
    
11.     For Each k In mh
    
12.         n = n + 1
    
13.         arr(n, 1) = k.submatches(0)
    
14.         arr(n, 2) = k.submatches(1)
    
15.         arr(n, 3) = k.submatches(2)
    
16.     Next
    
17.     Range("a1").Resize(n, 3) = arr
    
18. End Sub
    

复制代码

Mr_Ying

liu-aguang 发表于 2015-3-18 16:53

下面有一种例外看是否能添加进去？
当没有ip显示匹配的时候，显示空
如图所示

Mr_Ying

liu-aguang 发表于 2015-3-18 16:53

实际上示例文件是由N个文本组成的，现在就是在N个里面提取信息。
如果那个文本里没有ip出现就返回为空
每一篇的文本的结束都是“索引页面”，可以以这个为参照！

liu-aguang

Mr_Ying 发表于 2015-3-18 17:53
下面有一种例外看是否能添加进去？
当没有ip显示匹配的时候，显示空
如图所示

可以,但必须有统一的结束标志.

Mr_Ying

liu-aguang 发表于 2015-3-18 18:05
可以,但必须有统一的结束标志.

就把那个“索引页面”作为结束标志

liu-aguang

Mr_Ying 发表于 2015-3-18 18:03
实际上示例文件是由N个文本组成的，现在就是在N个里面提取信息。
如果那个文本里没有ip出现就返回为空
...

发信人:\s*([^(\s]+)\s*[\s\S]+?\(([\w\s]+\d+:\d+:\d+\s\d+)(?:(?!^--)[\s\S])+^--[\s\S]+?(?:\[FROM:\s*([\d.*]+)\])?\s*索引页面