关于字符串文字匹配的问题

lbpp

美味海鲜派 发表于 2018-1-24 15:28
看到了，正则不是很懂，研究一下，谢谢！

正则是处理文本匹配非常有用的工具，因为你现在提出的匹配要求相当简单，因此用字典可以来实现，但字典不是解决匹配问题的好的方法，如果匹配规则复杂一点，需匹配的文本不是单个字符，而是更长，或者带有一定特征的匹配，这时候字典应该就无能为力了，因此字典解决此类问题通用性不强。
正则说难挺难的，我知道正则估计有十年了，当时只知道这东西很牛，就买了本《精通正则表达式》来学，结果看不懂，书就放在角落里了。最近因为碰到一个比较复杂的匹配问题，于是又拿起了这本书来看，肯了两章，再结合网上的一些短文，不是太复杂的匹配已经可以写出来了，在不了解正则前对于这样的匹配是绝对不敢想的。因此，如果你经常会遇到匹配问题，那么学正则一定给你带来成百上千的速度提升。

美味海鲜派

lbpp 发表于 2018-1-24 22:20
正则是处理文本匹配非常有用的工具，因为你现在提出的匹配要求相当简单，因此用字典可以来实现，但字典不 ...

谢谢，正则我也是很早就知道了，就是工作中涉及的不多，一直没研究，最近碰到的问题多了，要好好恶补一下了。

duquancai

liulang0808 发表于 2018-1-24 13:04
代码供参考，

要读写单元格，速度想快也是行有余力二不足！

duquancai

duquancai 发表于 2018-1-25 09:05
要读写单元格，速度想快也是行有余力二不足！

我回复错了，抱歉！我想对楼主说：想要速度快点，但是有大量的读写单元格，想达到预期，有难度。

tcdatongye

1. Set reg = CreateObject("vbscript.regexp")
   
2. reg.Global = True
   
3. reg.Pattern = "[子孓”是哪种动物的幼虫?]+"
   
4. For Each ma In Sheets(1).Cells(7, 1).CurrentRegion
   
5.   Set myreg = reg.Execute(ma)
   
6.   For Each mm In myreg
   
7.     ma.Characters(mm.firstindex + 1, mm.Length).Font.Color = vbRed
   
8.   Next
   
9. Next
   
10. Set reg = Nothing

复制代码

aman1516

tcdatongye 发表于 2018-1-27 09:41

"[子孓”是哪种动物的幼虫?]+"，非常好，前面居然走了弯路

美味海鲜派

tcdatongye 发表于 2018-1-27 09:41

用了+，速度就提升了3倍，谢谢！

ggmmlol

美味海鲜派 发表于 2018-1-29 09:40
为什么用了+，速度就提升了3倍呢，求解惑，谢谢！

有“+”是“批发”；没有，则是“零售”