批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程
[批处理文件精品]批处理版照片整理器[批处理文件精品]纯批处理备份&还原驱动在线第三方下载
返回列表 发帖

[转贴] VBScript脚本中正则表达式对象的MultiLine属性

昨天在《VBS创建正则表达式对象的两种方法》中提到了 VBScript 正则表达式对象的 MultiLine 属性,在 shirne 的提醒下,我才想起参考手册中是出现过 MultiLine 属性的

在 Introduction to Regular Expressions(正则表达式简介) 一章中的 Backreferences(向后引用)一节:


  1. '使用上面所示的正则表达式,下面的 JScript 代码可以使用子匹配信息,在一个文字字符串中将连续出现两次的相同单词替换为一个相同的单词:
  2. var ss = "Is is the cost of of gasoline going up up?.\n";
  3. var re = /\b([a-z]+) \1\b/gim; //创建正则表达式样式。
  4. var rv = ss.replace(re,"$1"); //用一个单词替代两个单词。最接近的等价 VBScript 代码如下:
  5. Dim ss, re, rv
  6. ss = "Is is the cost of of gasoline going up up?." & vbNewLine
  7. Set re = New RegExp
  8. re.Pattern = "\b([a-z]+) \1\b"
  9. re.Global = True
  10. re.IgnoreCase = True
  11. re.MultiLine = True
  12. rv = re.Replace(ss,"$1")
复制代码

请注意在 VBScript 代码中,全局、大小写敏感性以及多行标记都是使用 RegExp 对象的适当属性来设置的。


需要注意的是 VBScript 中多行标记和 Perl 兼容的正则表达式中的多行标记并不完全一样:

如果 multiline 为 false,那么 "^" 匹配字符串的开始位置,而 "$" 匹配字符串的结束位置。如果 multline 为 true,那么 "^" 匹配字符串开始位置以及 "\n" 或 "\r" 之后的位置,而 "$" 匹配字符串结束位置以及 "\n" 或 "\r" 之前的位置。

而在 Perl 中,如果设置了多行标记,"^" 匹配字符串开始位置以及 "\n" 之后的位置,而 "$" 匹配字符串结束位置以及 "\n" 之前的位置。也就是 Perl 兼容的正则表达式并不匹配 "\r",这跟 Linux 系统中文本的换行符与 Windows 系统中不一样有关。Linux 系统中文本的换行符为 "\n",而 Windows 系统中为 "\r\n",这就导致了正则表达式的不同。

VBS 正则表达式 MultiLine 属性的这个特性可能会导致某些问题,所以在用 VBS 正则表达式处理文本时我一般会先把 "\r\n" 替换成 "\n":


  1. Dim fso, str
  2. Set fso = CreateObject("scripting.filesystemobject")
  3. str = fso.OpenTextFile("demon.txt")
  4. str = Replace(str, vbCrLf, vbLf)
复制代码


http://demon.tw/programming/vbs-regexp-multiline.html

原来又发了一帖,我说我之前的回复怎么不见了。。。

TOP

返回列表