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 

原文来自：http://demon.tw/programming/vbs-regexp-object.html

VBS实现将字符串写入剪切板的实现代码
函数代码:SubCopyString(s)Setforms=WScript.CreateObject("forms.form.1")Settextbox=forms.Controls.Add("forms.textbox.1").ObjectWithtextbox.multiline=True.text=s.selstart=0.sellength=Len(.text).copyE

用VBScript实现压缩目录中的所有文件(Zip)
OnErrorResumeNextDimobjFSO,sourcepath,targetpath,targetfileFunctionGetSourceFile(path)Dimfile,folder,sfolder,subfolder,filesIfNotobjFSO.FolderExists(path)ThenMsgbox"目标文件夹不存在！"Elseobj

用VBScript实现解压缩目录中的所有文件(Zip)
OnErrorResumeNextDimobjFSO,sourcepath,targetpathFunctionGetZipFile(path)Dimfile,folder,sfolder,subfolder,filesIfNotobjFSO.FolderExists(path)ThenMsgbox"目标文件夹不存在！"ElseobjFSO.CreateFold