VBS创建正则表达式对象的两种方法

一直以来，我都是用 new regexp 来创建正则表达式对象的：
set regex = new regexp然而最新才发现 vbs 的正则表达式对象也可以这样创建：
set regex = createobject("vbscript.regexp")貌似我看过的 vbscript 书籍没有一本介绍过这种写法，当然，书上没写的东西还有很多。

既然提到了正则表达式，那么就顺便说一下，vbs 的正则表达式对象是支持 multiline 模式的，对象有一个 multiline 属性。运行 visual c++ 自带的 ole view，左边树展开 type libraries，找到 microsoft vbscript regular expressions 5.5，可以看到该 com 对象的属性和方法：

interface iregexp2 : idispatch {
[id(0x00002711), propget]
hresult pattern([out, retval] bstr* ppattern);
[id(0x00002711), propput]
hresult pattern([in] bstr ppattern);
[id(0x00002712), propget]
hresult ignorecase([out, retval] variant_bool* pignorecase);
[id(0x00002712), propput]
hresult ignorecase([in] variant_bool pignorecase);
[id(0x00002713), propget]
hresult global([out, retval] variant_bool* pglobal);
[id(0x00002713), propput]
hresult global([in] variant_bool pglobal);
[id(0x00002717), propget]
hresult multiline([out, retval] variant_bool* pmultiline);
[id(0x00002717), propput]
hresult multiline([in] variant_bool pmultiline);
[id(0x00002714)]
hresult execute(
[in] bstr sourcestring,
[out, retval] idispatch** ppmatches);
[id(0x00002715)]
hresult test(
[in] bstr sourcestring,
[out, retval] variant_bool* pmatch);
[id(0x00002716)]
hresult replace(
[in] bstr sourcestring,
[in] variant replacevar,
[out, retval] bstr* pdeststring);
};

但是很多书上并没有介绍，vbsedit 的自动完成功能中也没有提示 multiline 属性，甚至微软官方的参考手册上也没有。

最后举个简单的例子，假如你想把文本中的空行删除，可以用下面的代码：

'author: demon
'link: http://demon.tw/programming/vbs-regexp-object.html
'date: 2011/12/26
dim fso, regex, str
set fso = createobject("scripting.filesystemobject")
set regex = createobject("vbscript.regexp")
str = fso.opentextfile("demon.txt").readall
regex.global = true
regex.multiline = true
regex.pattern = "^\s*\n"
str = regex.replace(str, "")
'相当于javascript中的 str = str.replace(/^\s*\n/gm, "")
fso.opentextfile("demon.txt", 2).write str

原文来自：