http://www.111cn.net/office/excel/52912.htm
函数ExStr功能,根据正规表达式,替换或判断或提取字符串
'参数 str 源字符串
'参数 Parttern 正则表达式字符串
'参数 ActionID 函数功能 1正则方法一,替换符合正规表达式的字符
?正则方法二 判断是否有符合正规表达式
?正则方法三,提取符合正规表达式的字符
'参数 Repstr 指定替换的字符,可选项,默认为空
代码如下 |
复制代码 |
Function ExStr(Str As String, Parttern As String, ActionID As Integer, Optional RepStr As String = "") Dim regex As Object Set regex = CreateObject("vbscript.regexp") With regex .Global = True .IgnoreCase = True .MultiLine = True .Pattern = Parttern End With Select Case ActionID Case 1: ExStr = regex.Replace(Str, RepStr) Case 2: ExStr = regex.test(Str) Case 3: Dim matches As Ob
|