VBScript正则表达式用于搜索替换的若干练习

gues1688

有时，要进行某些特殊的查找替换，用word实现比较麻烦，用正则表达式进行会比较方便 '建立一个通用的替换函数 '参数sourceStr为源文本，partrn为欲查找的文本，replStr为欲替换的文本 Function ReplaceStr(sourStr, patrn, replStr) Dim regEx As Object ' 建立变量 Set regEx = CreateObject("vbScript.RegExp") ' 建立正则表达式 regEx.Pattern = patrn ' 要找的字符串 regEx.Global = True '全程查找(若非全程查找则只进行一次匹配) regEx.IgnoreCase = True ' 设置是否区分大小写 ReplaceStr = regEx.Replace(sourStr, replStr) ' 替换 End Function ' 替换的示例代码 Sub Example() Dim sourceText As String '删除重复的字(连续出现) sourceText = "我我们学习，他们们工作" MsgBox ReplaceStr(sourceText, "(.)\1", "$1"), Title:=sourceText '删除2个字以上的重复词 sourceText = "文坛文坛新人认真认真学习，勤勤恳恳勤勤恳恳努力工作" MsgBox ReplaceStr(sourceText, "(.{2,})\1", "$1"), Title:=sourceText End Sub

[此贴子已经被作者于2005-12-18 15:31:31编辑过]

gues1688

稍微解释一下：

1、要查找的内容："(.)\1"
含义：
“.”表示任何非打印单个字符(不包括换行符\n)
“(.)”加括号表示一个表达式，对匹配的表达式(文本)保存到临时缓冲区，供后面使用
“(.)\1”这里的\1类似Word，对前面的第1个表达式进行引用，意思是说前面的表达式所匹配的文本重复出现
在后面的替换表达式中，$1表示引用第1个匹配的文本

2、要查找的内容："(.{2,})\1"
含义：跟前面相仿，在括号表达式中增加了{2,}，表示匹配2次以上。

gues1688

练习的内容在Word中也可以实现，这里只是作为对正则表达式的一个练习而已。 不过，我发现，在Word的查找框中，有些字符好像是查找不到的，比如在表格中的单元格如果只有一行内容，则它后面的换行符，并不是chr(10) & chr(13)，而是chr(7) & chr(13)，在查找框中如果欲查找chr(7)却查找不到。用vbScript的正则表达式却可以查找到。真是好奇怪？象这个贴子http://club.excelhome.net/dispbbs.asp?boardID=23&ID=140441&page=1，如果可以查找chr(7)的话，问题的解决就会简单一些。 刚才又反复看了Word的查找帮助，发现在查找框中，也可以使用\1这样的引用，从整个使用通配符的情况来看，Word已经把vbScript的正则表达式融入其中，毕竟vbScript和Word同是微软的产品。

[此贴子已经被作者于2005-12-18 15:58:51编辑过]

yangh71

好

BobPan

多谢，终于找到了

ssq1109

据守柔版主测试，用正则查找是非常快的，但通常不只是进行查找，而是要进行查找并替换。如果将LZ的

sourceText = "……"  改为下面一句（即为打开的活动文档的文本内容）：

sourceText = ActiveDocument.Content.Text

如将下面文本中的“狐狸”均替换为“Fox”，那又该怎么办？

那只敏捷的棕毛狐狸跃过那只懒狗。  那只敏捷的棕毛狐狸跃过那只懒狗。  那只敏捷的棕毛狐狸跃过那只懒狗。  那只敏捷的棕毛狐狸跃过那只懒狗。  那只敏捷的棕毛狐狸跃过那只懒狗。

不是要求弹出信息框，而是在Word文档中进行替换，即让上面的文本变成：

那只敏捷的棕毛Fox跃过那只懒狗。  那只敏捷的棕毛Fox跃过那只懒狗。  那只敏捷的棕毛Fox跃过那只懒狗。  那只敏捷的棕毛Fox跃过那只懒狗。  那只敏捷的棕毛Fox跃过那只懒狗。

因为正则替换能进行极为复杂的替换，如果Word中能简单快速运行，将是非常好的。

ssq1109

初步知道怎么办了。

tangqingfu

收藏，以后试着学习一下正则表达式。

yourcells

不错啊，终于知道Word中使用正则式的方法了。

lhw78535

做个记号！！