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

Mr_Ying

基本解决，已经删帖！

Mr_Ying

请@chxw68 众大神指教！

liu-aguang

1. Sub test()
   
2.     Open ThisWorkbook.Path & "\示例文件0316.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]+?FROM:\s*([^]]*)"
   
7.     regx.Global = True
   
8.     Set mh = regx.Execute(s)
   
9.     [a1] = mh(0).submatches(0)
   
10.     [b1] = mh(1).submatches(1)
    
11. End Sub
    

复制代码

Mr_Ying

基本已解决

liu-aguang

Mr_Ying 发表于 2015-3-16 18:35
谢谢您的回复，但是遇到这样的文本还是会有问题，请帮忙修改！

要以这个特殊”--“来设置条件，它的属 ...

1. Sub test()
   
2.     Open ThisWorkbook.Path & "\示例文件0316.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]+?(\d+(\.[\d*]+){3})"
   
7.     regx.Global = True
   
8.     regx.MultiLine = True
   
9.     Set mh = regx.Execute(s)
   
10.     [a1] = mh(0).submatches(0)
    
11.     [b1] = mh(1).submatches(1)
    
12. End Sub
    

复制代码

Mr_Ying

已经解决！

liu-aguang

Mr_Ying 发表于 2015-3-16 20:16
示例文件3：
求搞一个批量动作，我自己试着for each in ....next调了半天没成功。

自己再仔细观察文本,并非符合所给规律.如:以下情形提取哪个IP?

● 【推荐】 AirmanAtSMTH 桑普多利亚VS那不勒斯、 发信人: AirmanAtSMTH (Airmansmth), 信区: Bet
标  题: 【推荐】 AirmanAtSMTH 桑普多利亚VS那不勒斯、 ,赢盘方:桑普多
发信站: 水木社区 (Mon Dec  1 20:03:11 2014), 站内  [累计积分奖励: 20/0]

竞猜场次:
桑普多利亚VS那不勒斯、

推荐选项:
桑普多利亚

初始赔率:
3.35

推荐理由:
桑普本赛季状态相当不错，尤其主场战绩4胜2平保持不败。那不勒斯虽然客场战绩不错3胜
2平1负，且两队相互战绩占优有心里优势，按正常应该可不输，但问题是3天前那不勒斯刚
刚打完欧联杯客场远征捷克，仅仅收获平局，身心皆不在很好的状态，对于双线作战那不勒
斯这种队伍难以有足够的板凳深度轮换兼顾两边，加之桑普已经休息一周，状态又正佳，看
好桑普以逸待劳不败，推荐胜。可分注防平。

本人下注积分:
1500


--
水木股板微群http://new.q.weibo.com/891132/invitation=11Dcyos-16abf
飞人看盘http://blog.sina.com.cn/airmanstock
飞人微博http://weibo.com/i/airmanstock
水木文集http://airmansmth.mysmth.net
Airman个人资金流向与看盘分析贴汇总，仅供记录个人观点看法之用，没有对任何人推荐
指导作用。网友提问个股与资金研判仅供1-3天内参考。过期作废勿刻舟求剑。特此声明。


※ 修改:·AirmanAtSMTH 于 Dec  1 20:04:29 2014 修改本文·[FROM: 111.206.20.*]
※ 来源:·水木社区 newsmth.net·[FROM: 111.206.20.*]

liu-aguang

再如下列情形该如何对应:
Re: 【推荐】 Illarramendi 桑普多利亚VS那不勒斯 发信人: AirmanAtSMTH (Airmansmth), 信区: Bet
标  题: Re: 【推荐】 Illarramendi 桑普多利亚VS那不勒斯 ,赢盘方:平局
发信站: 水木社区 (Mon Dec  1 20:14:49 2014), 站内

太好了，我桑获胜有望了
【 在 Illarramendi (标题一定要长长长) 的大作中提到: 】
: 标  题: 【推荐】 Illarramendi 桑普多利亚VS那不勒斯 ,赢盘方:平局
: 发信站: 水木社区 (Mon Dec  1 20:10:53 2014), 站内
:
: 竞猜场次:
: 桑普多利亚 vs 那不勒斯
:
: 推荐选项:
: 平局
:
: 初始赔率:
: 3.35
:
: 推荐理由:
: 桑普多利亚跟那不勒斯历史交锋3连败了，有止跌反弹可能。8月25日后，桑普多利亚只输
给国米一场球；那不勒斯4月13日以来，只输了乌鸡和飞驴。考虑那不勒斯本赛季客场进球
数一般，相信不会给桑普造成太大威胁，兼顾历史战绩，推荐平局。比分预计2:2或3:3。
:
: 本人下注积分:
: 308
:
:
: --
: 发信人: wyattearp (wyattearp), 信区: FamilyLife
: 标  题: Re: 有的女人真tm sb
: 发信站: 水木社区 (Thu Nov  6 07:49:16 2014), 站内
: 你哪看出来我没做的？烤箱高压锅蒸锅面包机料理机 都我买的 西餐中餐蛋糕吐司面包馒
头烤羊腿牛尾蹄膀红虾乳猪 一顿3、4个菜 8～10个荤素 粗粮果汁 晚8点到12点都做过饭
你也这么搞？
:
:
: ※ 修改:·Illarramendi 于 Dec  1 20:11:13 2014 修改本文·[FROM: 218.240.5.*]
: ※ 来源:·水木社区 newsmth.net·[FROM: 218.240.5.*]


--
水木股板微群http://new.q.weibo.com/891132/invitation=11Dcyos-16abf
飞人看盘http://blog.sina.com.cn/airmanstock
飞人微博http://weibo.com/i/airmanstock
水木文集http://airmansmth.mysmth.net
Airman个人资金流向与看盘分析贴汇总，仅供记录个人观点看法之用，没有对任何人推荐
指导作用。网友提问个股与资金研判仅供1-3天内参考。过期作废勿刻舟求剑。特此声明。


※ 来源:·水木社区 newsmth.net·[FROM: 111.206.20.*]

Mr_Ying

liu-aguang 发表于 2015-3-16 20:47
自己再仔细观察文本,并非符合所给规律.如:以下情形提取哪个IP?

● 【推荐】 AirmanAtSMTH 桑普多利亚 ...

对应111.206.20.*
就是单独--后面是任意一个吧，目前只能这样。

Mr_Ying

问题已经解决！