求教正则表达式：怎样匹配包含有某特定字符的一整句话？

doryan · 发表于 2012-4-10 16:40

引用Microsoft VBScript Regular Expressions 1.0 正则式

就是添加对正则式的引用这样才可以使用正则式.....

wdx223 · 发表于 2012-4-10 16:43

本帖最后由 wdx223 于 2012-4-10 16:44 编辑

weist123 发表于 2012-4-10 16:32
多谢楼上！

用户定义类型未定义？

在VBE工具-引用中勾选Microsoft VBScript试试

kevinchengcw · 发表于 2012-4-10 17:06

本帖最后由 kevinchengcw 于 2012-4-10 17:10 编辑

sub test()
dim Match,N&
with createobject("vbscript.regexp")
.global=true
.multiline=true
.pattern="[\da-zA-Z\u4e00-\u9f5a]*之[\da-zA-Z\u4e00-\u9f5a]*"
for each match in .execute([a1].value)
n=n+1
cells(n,2).value=match.value
next match
end with
end sub

复制代码

这样试下呢

weist123 · 发表于 2012-4-10 17:11

谢楼上，强啊！输出如下：

蔡女之德能
市井俗人喜看理治之书者甚少
亦如剧中之小丑然
且鬟婢开口即者也之乎
大不近情理之话
虽不敢说强似前代书中所有之人
徒为供人之目而反失其真传者
今之人
富者又怀不足之心
好货寻愁之事
那里去有工夫看那理治之书
只愿他们当那醉饱卧之时
或避世去愁之际
却也省了口舌是非之害
腿脚奔忙之苦
子建文君红娘小玉等通共熟套之旧稿

ex121 · 发表于 2012-4-11 14:51

楼主高人啊!!!
想借excel来研究典籍的用字规律啊.

ljchb · 发表于 2016-10-15 06:44

正则表达式可以简化为：\w*之\w*

13907933959 · 发表于 2016-10-15 07:20

本帖最后由 13907933959 于 2016-10-16 07:31 编辑

kevinchengcw 发表于 2012-4-10 17:06
这样试下呢

前辈好！
该代码、我在2003上则运行不了，提示：编译错误，外部名未定义。不知怎么会事？请前辈赐教！谢谢！

39660519 · 发表于 2016-10-15 08:54

Zamyi 发表于 2012-4-10 16:40
"[\d\w%u4e00-%u9fa5]*子[\d\w%u4e00-%u9fa5]*"
不清楚"([\d\w%u4e00-%u9fa5]*)子\1"为什么不行？

"([\d\w\u4e00-\u9fa5]*)子\1"中的\1代表第一个括号里的内容，表达的意思为子字前后内容相同的字符串，如
123字123，不能表示123子456

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

[求助] 求教正则表达式：怎样匹配包含有某特定字符的一整句话？