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

homepeople · 发表于 2018-5-31 22:31

谢谢楼主的整理与分享，还有各位的经典回复

竹林间 · 发表于 2018-6-9 14:43

学习下.....................

snch1990 · 发表于 2018-7-3 17:25

非常有用，学了半天才学会

snch1990 · 发表于 2018-7-11 17:13

再看又帮我解决了问题

jc847860351 · 发表于 2018-7-12 10:02

很重要的知识点，谢谢分享

cam333 · 发表于 2018-7-17 10:36

本帖最后由 cam333 于 2018-7-17 10:38 编辑

很好，要收藏，有没有汇总在一起

mythqiu · 发表于 2018-7-19 10:48

请教您一个问题:
-----------------------------------------------

我在网上找了资料:用了这么一段表达式我的目的是从一段有说明的计算式中提取出计算式,去掉下面的文字,字母和[内的字符]
去掉的内容出现的位置可以在任何位置.
比如文本为:17.5[长A1@#%!]÷5长[任何字符]宽A高×7[M1221]ABCD＋1－1ABCD
最后结果:17.5÷5×7＋1－1
要匹配一段文字中所有的中文英文字母和[]内的内容
这些匹配的内容可以是连续的或者互相交错的
其中[里面的内容可以为任何字符]
下面这个表达式可以正确执行,是否是最优?
在此请教各路大神指点.

.Pattern = "[A-Za-z一-龥]+|\[.*?\]"

tcdatongye · 发表于 2018-7-19 14:20

本帖最后由 tcdatongye 于 2018-7-19 16:03 编辑

.Pattern = "\[.*?]|[^\[\d＋.÷×－]+"

duquancai · 发表于 2018-7-21 23:47

本帖最后由 duquancai 于 2018-7-22 13:10 编辑

mythqiu 发表于 2018-7-19 10:48
请教您一个问题:
-----------------------------------------------

详见下面代码》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》

Sub main()
Dim js As Object, s$
Set js = CreateObject("MSScriptControl.ScriptControl")
js.Language = "JavaScript"
s = "17.5[长A1@#%!]÷5长[任何字符]宽A高×7[M1221]ABCD＋1－1ABCD"
MsgBox js.eval("'" & s & "'.replace(/\[[^\]]+\]/g,'').replace(/[^－＋.×*\/÷\d]+/g,'');")
End Sub

复制代码

tombear · 发表于 2018-7-25 20:39

终于看好一遍，受益匪浅，好文章，感谢分享

		自动登录	找回密码
密码			免费注册

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