正则表达式入门与提高---VBA平台的正则学习参考资料

ggmmlol

表示浮点数，我通常用以下表达式，可以匹配正或负的整数、小数以及无整数字符的小数：

-?\d*\.?\d+

这个式子的处理效率也不高，优点是比较简短好记。

如果待处理的目标字符中并不会出现无整数位的小数，那还是以 -?\d+(\.\d+)? 为宜

excel海

好东西啊，可以好好学习下，感谢楼主

ayin277974609

liu-aguang 发表于 2019-12-31 08:45
原文本是用“|“分隔的，导入excel时选择自定义用”|“作分隔线，自然就分到了不同单元格。

主要是这个是经常性的操作所以我想着简化一下直接录制宏然后点击文件自动分列出来，在通过公式自动计算 ，然后那个分列的还需要手工纠正，而且只针对本次操作的文件，如果下一次有新的文件（文件格式都是这样的）还要用手工去操作分列

gbgbxgb

liu-aguang 发表于 2014-6-14 11:03
二、匹配总原则
  说到原理,总让人觉得它该是若干条高度概括的结论.不幸的是对正则原理来说貌似任何概括都 ...

正则表达式：
Pattern="cat"
目标文本：
He captured a catfish for his cat

   结论:正则表达式”cat”,并不是匹配”单词cat”.它的本质意义是首先匹配一个字符”c”,紧接着一个字符”a”,再接着一个字符”t”的这样一个字符串.(你能用前面所学知识,只匹配目标文本的最后单词”cat”吗?)
+++++++++分界线+++++++++++++++++++++++

上述文字基本上引用自您51楼的描述。其中，您设置了一个题让阅读者自行完成（如后文所述）。我的疑问是您的本意是让阅读者写出如下的正则式1、正则式2或正则式3，还是再难点的类似正则式4的正则式：

你能用前面所学知识,只匹配目标文本的最后单词”cat”吗?
正则式1：
Pattern="\bcat$"
正则式2：
Pattern="\bcat\b"
正则式3（较土）：
Pattern="\bcat\b$"
正则式4（紧扣您的“只匹配目标文本的最后单词‘cat’”的文字描述，譬如目标文本：He captured a catfish for his cat and the cat which is others.）：
Pattern="\b(cat)\b(?!.*?\b\1\b)"
或
Pattern="\b(cat)\b(?!.*\b\1\b)"

顺带再写个只匹配倒数第2个“cat”的正则式，若存在不足，请您指正：
Pattern="\b(cat)\b(?!(.*?\b\1\b){2,})(?=.*?\b\1\b)"
或
Pattern="\b(cat)\b(?!(.*\b\1\b){2,})(?=.*\b\1\b)"

关于引用，即\1，经实践，发现其引用时不包括\b定界符，故把前述的正则式4写成如下形式是错误的，您能否给些见解：
Pattern="(\bcat\b)(?!.*?\1)"
所以，正确的写法必须写成前文那样或者写成无多大意义（极易产生误导）的这样：
Pattern="(\bcat\b)(?!.*?\b\1\b)"
结论：使用引用时必须注意该引用所引用的真正内容范围，而非想当然误写的正则式的表面形式内容，形如本跟帖所说的误写形式：(\bcat\b)。

phoenix5b

留下我的足迹，寻觅沿路的芬芳。

shenjianrong163

liu-aguang 发表于 2014-6-11 09:00
6.应用对象的方法代码段
      VBScirpt正则对象的方法共有三个：你可以根据任务要求选择使用一个或 ...

9楼提到正则“匹配字符串之前的文本”和“匹配字符串之后的文本”中的符号是什么?图片不知道怎样输入呢?

dingboy_VBA

我对正则表达式的理解与掌握，就是从此贴开始的，我打印整理出来自己学习了很久，非常感谢作者的精心写作。

pattonzhai

非常感谢楼主的分享，认真学习中

丫丫呸

VBA万岁 发表于 2015-5-20 12:14
疑惑：
31楼的最末一个示例中，如果将s改为：
s = "正则ABC非正则ABC不正则ABC"

1. Sub test()
   
2. Dim re, mh, s$
   
3. s = "正则ABC非正则ABC不正则ABC"
   
4. Set reg = CreateObject("vbscript.regexp")
   
5. With reg
   
6. .Pattern = "(?=\W+).{2}"
   
7. .Global = True
   
8. Set mh = .Execute(s)
   
9. End With
   
10. i = 10
    
11. For Each k In mh
    
12. Cells(i, 1) = k
    
13. i = i + 1
    
14. Next
    
15. End Sub

复制代码

想请教一下：
1、按照你给的字符串 正则ABC非正则ABC不正则ABC ，我测试出来的结果 是
正则
非正
则A
不正
则A
这是为什么？

za0701010839

谢谢楼主分享，学些了