VBS创建正则表达式对象的两种方法
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
| 一直以来，我都是用 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 |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
上一篇: VBS字符串的内部实现下一篇: VBS脚本和BAT批处理删除自身的方法
关于VBS创建正则表达式对象的两种方法的所有评论
