• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    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
    您可能感兴趣的文章:
    • 编写高质量的js之正确理解正则表达式回溯
    • js编写trim()函数及正则表达式的运用
    • 使用Ruby re模块创建复杂的正则表达式
    • 用正则表达式 动态创建/增加css style script 兼容IE firefox
    • 正则表达式创建方式的区别及编写简单的正则方式(js学习总结)
    上一篇:VBS正则表达式对象的MultiLine属性
    下一篇:VBS实现将字符串写入剪切板的实现代码
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

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