zoukankan      html  css  js  c++  java
  • excel VBA一个fuction同时执行多个正则表达式,实现方法

    代码:

    Function zhengze3(ze1 As String, ze2 As String, Rng1 As Range, Rng2 As Range)
        Set regx1 = CreateObject("vbscript.regexp")  '需要执行多个正则表达式时,只需要创建多个regx对象,然后分别执行正则即可
        Set regx2 = CreateObject("vbscript.regexp")
      With regx1
        .Global = False
        .Pattern = ze1 '写正则表达式
      Set m1 = .Execute(Rng1)
      End With
      With regx2
        .Global = False
        .Pattern = ze2 '写正则表达式
      Set m2 = .Execute(Rng2)
      End With
      zhengze3 = m2(0) & m1(0) 'm1和m2为列表,即使只有一个值,也需要以数组格式复制,如果省略括号的0,则报错

    End Function

    红尘往事,一切随风!
  • 相关阅读:
    人月神话读书笔记
    读人月神话有感
    Codeforces 137D
    Codeforces 1138B
    <WFU暑假训练一> 解题报告
    Codeforces 1250B
    Codeforces 1038D
    Codeforces 1202D
    Codeforces 87B
    Codeforces 208C
  • 原文地址:https://www.cnblogs.com/xwenwu/p/13696790.html
Copyright © 2011-2022 走看看