VBA版太沉闷了 出个小题考考大家 正则取不重复

小花鹿

这两天VBA版太沉闷了，出个小题给大家玩玩：
题目：
有一字符串：s = "今天是2015年10月21日，农历9月初9，是老人节。"   ，从中取出包含的数字，重复的取一个。
模拟结果：50219
要求只准用正则。

袁振涛

1. Dim reg, s
   
2. s = "今天是2015年10月21日，农历9月初9，是老人节。Excel 2003/07/10/13技术交流与问答 ? ExcelVBA程序开发 ? VBA版太沉闷了 出个小题考考大家 正则取不重有事找我，请用邮箱联系（513723192@qq.com），不加好友"
   
3. Set reg = CreateObject("vbscript.regexp")
   
4. reg.Pattern = "\D"
   
5. reg.Global = True
   
6. s = reg.Replace(s, "")
   
7. reg.Pattern = "(?=(\d)(.*?)\1)\d"
   
8. s = reg.Replace(s, "")
   
9. 
   
10. MsgBox s
    

复制代码

小花鹿

袁振涛 发表于 2015-10-21 14:32

试试只用一次正则。

袁振涛

只用一次是用exec还是replace？

袁振涛

1. Dim reg, s
   
2. 
   
3. s = "今天是2015年10月21日，农历9月初9，是老人节。Excel 2003/07/10/13技术交流与问答 ? ExcelVBA程序开发 ? VBA版太沉闷了 出个小题考考大家 正则取不重有事找我，请用邮箱联系（513723192@qq.com），不加好友"
   
4. 
   
5. Set reg = CreateObject("vbscript.regexp")
   
6. 
   
7. reg.Global = True
   
8. 
   
9. reg.Pattern = "(?:(?=(\d)(.*?)\1)\d)|\D"
   
10. 
    
11. s = reg.Replace(s, "")
    
12. 
    
13. MsgBox s

复制代码

小花鹿

袁振涛 发表于 2015-10-21 20:06

学习了，麻烦解释一下正则表达式的意思。

袁振涛

我是这么想的，要得到答案，我可以先把非数字给替换掉，非数字即\D,
另外我再把那些数字中重复的数字替换掉就行了。
(?=(\d)(.*?)\1)\d          这个正则匹配的值为一个数字，而这个数字必须满足的条件就是其为重复的数字  。例如匹配121,11，但是不匹配单个的数字1
然后我把前面一个字符给替换掉，就是前面例子中的121替换为21,11替换为1，从而达到保留一个数字的目的
(?:(?=(\d).*?\1)\d)|\D+，上面的还可以稍作修改

小花鹿

袁振涛 发表于 2015-10-21 21:20
我是这么想的，要得到答案，我可以先把非数字给替换掉，非数字即\D,
另外我再把那些数字中重复的数字替换 ...

佩服，你要么是正则高手，要么很聪明，或者二者皆是。
我在理解Pattern = "(?:(?=(\d)(.*?)\1)\d)|\D" 的时候 ?: 对我造成了干扰，去掉 ?: 以后就比较容易理解了，谢谢你。

小花鹿

袁振涛 发表于 2015-10-21 21:20
我是这么想的，要得到答案，我可以先把非数字给替换掉，非数字即\D,
另外我再把那些数字中重复的数字替换 ...

试试按出现的先后顺序提取，结果是：20159
只用正则。

t13564865256

小花鹿 发表于 2015-10-22 10:09
试试按出现的先后顺序提取，结果是：20159
只用正则。

提取并不难，题目应该改成，用正则标颜色
答案如下
"今天是2015年10月21日，农历9月初9，是老人节。"