分享时间:2021-03-10 23:06:07会员:bekda目录:电脑网络 - 编程开发浏览:1125 次
RegExp对象的用法:
Function RegExpTest(patrn, strng)
Dim regEx, Match, Matches ’ 建立变量。
Set regEx = New RegExp ’ 建立正则表达式。
regEx.Pattern = patrn ’ 设置模式。
regEx.IgnoreCase = True ’ 设置是否区分字符大小写。
regEx.Global = True ’ 设置全局可用性。
Set Matches = regEx.Execute(strng) ’ 执行搜索。
For Each Match in Matches ’ 遍历匹配集合。
RetStr = RetStr & Match found at position
RetStr = RetStr & Match.FirstIndex & . Match Value is ’
RetStr = RetStr & Match.Value & ’. & vbCRLF
Next
RegExpTest = RetStr
End Function
MsgBox(RegExpTest(is., IS1 is2 IS3 is4))
RegExp 对象的属性
Global属性
Global属性设置或返回一个 Boolean 值,该值指明在整个搜索字符串时模式是全部匹配还是只匹配第一个。
语法:object.Global [= True | False ]
object 参数总是 RegExp 对象。如果搜索应用于整个字符串,Global 属性的值为 True,否则其值为 False。默认的设置为 True。
Global 属性的用法(改变赋予 Global 属性的值并观察其效果):
Function RegExpTest(patrn, strng)
Dim regEx ’ 建立变量。
Set regEx = New RegExp ’ 建立规范表达式。
regEx.Pattern = patrn ’ 设置模式。
regEx.IgnoreCase = True ’ 设置是否区分字母的大小写。
regEx.Global = True ’ 设置全程性质。
RegExpTest = regEx.Execute(strng) ’ 执行搜索。
End Function
MsgBox(RegExpTest(is., IS1 is2 IS3 is4))
IgnoreCase属性设置或返回一个Boolean值,指明模式搜索是否区分大小写。
语法:object.IgnoreCase [= True | False ]
object 参数总是一个 RegExp 对象。如果搜索是区分大小写的,则 IgnoreCase 属性为 False;否则为 True。缺省值为 True。
IgnoreCase 属性的用法(改变赋予 IgnoreCase 属性的值以观察其效果):
Function RegExpTest(patrn, strng)
Dim regEx ’ 建立变量。
Set regEx = New RegExp ’ 建立正则表达式。
regEx.Pattern = patrn ’ 设置模式。
regEx.IgnoreCase = True ’ 设置是否区分大小写。
RegExpTest = regEx.Execute(strng) ’ 执行搜索。
End Function
MsgBox(RegExpTest(is., IS1 is2 IS3 is4))
Pattern属性设置或返回被搜索的正则表达式模式。
语法:object.Pattern [= searchstring]
Pattern 属性的语法包含以下几个部分:
语法说明:
object 必需的。总是一个 RegExp 对象变量。
searchstring 可选的。被搜索的正则字符串表达式。它可能包含设置部分表格中的各种正则表达式字符。
设置
在书写正则表达式的模式时使用了特殊的字符和序列。
下面描述了可以使用的字符和序列,并给出了实例。
\ 将下一个字符标记为特殊字符或字面值。例如n与字符n匹配。\n与换行符匹配。序列\\与\匹配对面,\(与(匹配。
^ 匹配输入的开始位置。
$ 匹配输入的结尾。
* 匹配前一个字符零次或几次。例如,zo*可以匹配z、zoo。
+ 匹配前一个字符一次或多次。例如,zo+可以匹配zoo,但不匹配z。
? 匹配前一个字符零次或一次。例如,n?ve?可以匹配never中的ve。
. 匹配换行符以外的任何字符。
(pattern) 与模式匹配并记住匹配。匹配的子字符串可以从作为结果的 Matches 集合中使用 Item [0]...[n]取得。如果要匹配括号字符(和 ),可使用\( 或 \)。
x|y 匹配 x 或 y。例如 z|food 可匹配 z 或 food。(z|f)ood 匹配 zoo 或 food。
{n} n 为非负的整数。匹配恰好n次。例如,o{2} 不能与 Bob 中的 o 匹配,但是可以与foooood中的前两个o匹配。
{n,} n 为非负的整数。匹配至少n次。例如,o{2,}不匹配Bob中的o,但是匹配foooood中所有的o。o{1,}等价于o+。o{0,}等价于o*。
{n,m} m 和 n 为非负的整数。匹配至少 n 次,至多 m 次。例如,o{1,3} 匹配 fooooood中前三个o。o{0,1}等价于o?。
[xyz] 一个字符集。与括号中字符的其中之一匹配。例如,[abc] 匹配plain中的a。
[^xyz] 一个否定的字符集。匹配不在此括号中的任何字符。例如,[^abc] 可以匹配plain中的p.
[a-z] 表示某个范围内的字符。与指定区间内的任何字符匹配。例如,[a-z]匹配a与z之间的任何一个小写字母字符。
[^m-z] 否定的字符区间。与不在指定区间内的字符匹配。例如,[m-z]与不在m到z之间的任何字符匹配。
\b 与单词的边界匹配,即单词与空格之间的位置。例如,er\b 与never中的er匹配,但是不匹配verb中的er。
\B 与非单词边界匹配。ea*r\B与never early中的ear匹配。
\d 与一个数字字符匹配。等价于[0-9]。
\D 与非数字的字符匹配。等价于[^0-9]。
\f 与分页符匹配。
\n 与换行符字符匹配。
\r 与回车字符匹配。
\s 与任何白字符匹配,包括空格、制表符、分页符等。等价于[ \f\n\r\t\v]。
\S 与任何非空白的字符匹配。等价于[^ \f\n\r\t\v]。
\t 与制表符匹配。
\v 与垂直制表符匹配。
\w 与任何单词字符匹配,包括下划线。等价于[A-Za-z0-9_]。
\W 与任何非单词字符匹配。等价于[^A-Za-z0-9_]。
\num 匹配 num个,其中 num 为一个正整数。引用回到记住的匹配。例如,(.)\1匹配两个连续的相同的字符。
\n 匹配 n,其中n 是一个八进制换码值。八进制换码值必须是 1, 2 或 3 个数字长。
例如,\11 和 \011 都与一个制表符匹配。
\0011等价于\001 与 1。八进制换码值不得超过 256。否则,只有前两个字符被视为表达式的一部分。允许在正则表达式中使用ASCII码。
\xn 匹配n,其中n是一个十六进制的换码值。十六进制换码值必须恰好为两个数字长。例如,\x41匹配A。\x041等价于\x04 和 1。允许在正则表达式中使用 ASCII 码。
Pattern 属性的用法:
Function RegExpTest(patrn, strng)
Dim regEx ’ 建立变量。
Set regEx = New RegExp ’ 建立正则表达式。
regEx.Pattern = patrn ’ 设置模式。
regEx.IgnoreCase = True ’ 设置是否区分大小写。
RegExpTest = regEx.Execute(strng) ’ 执行搜索。
End Function
MsgBox(RegExpTest(is., IS1 is2 IS3 is4))
RegExp对象的方法
Execute方法
Execute方法对指定的字符串执行正则表达式搜索。
语法:object.Execute(string)
语法部分描述:
object 必需的。总是一个 RegExp 对象的名称。
string 必需的。要在其上执行正则表达式的文本字符串。
说明
正则表达式搜索的设计模式是通过 RegExp 对象的 Pattern 来设置的。
Execute 方法返回一个 Matches 集合,其中包含了在 string 中找到的每一个匹配的 Match 对象。如果未找到匹配,Execute 将返回空的 Matches 集合。
Execute 方法的用法:
Function RegExpTest(patrn, strng)
Dim regEx ’ 建立变量。
Set regEx = New RegExp ’ 建立正则表达式。
regEx.Pattern = patrn ’ 设置模式。
regEx.IgnoreCase = False ’ 设置区分大小写。
regEx.Global = True ’ 搜索全部匹配。
RegExpTest = regEx.Execute(strng) ’ 执行搜索。
End Function
MsgBox(RegExpTest(is., IS1 is2 IS3 is4))
Replace方法替换在正则表达式查找中找到的文本。
语法:object.Replace(string1, string2)
语法部分描述:
object 必需的。总是一个 RegExp 对象的名称。
string1 必需的。string1 是将要进行文本替换的字符串。
string2 必需的。 string2 是替换文本字符串。
说明
被替换的文本的实际模式是通过 RegExp 对象的 Pattern 属性设置的。
Replace 方法返回 string1 的副本,其中的 RegExp.Pattern 文本已经被替换为 string2。如果没有找到匹配的文本,将返回原来的 string1 的副本。
replace 方法的用法:
Function ReplaceTest(patrn, replStr)
Dim regEx, str1 ’ 建立变量。
str1 = The quick brown fox jumped over the lazy dog.
Set regEx = New RegExp ’ 建立正则表达式。
regEx.Pattern = patrn ’ 设置模式。
regEx.IgnoreCase = True ’ 设置是否区分大小写。
ReplaceTest = regEx.Replace(str1, replStr) ’ 作替换。
End Function
MsgBox(ReplaceTest(fox, cat))
’ 将 ’fox’ 替换为 ’cat’。
另外,Replace 方法在模式中替换 subexpressions 。
下面对以前示例中函数的调用,替换了原字符串中的所有字对:
MsgBox(ReplaceText((\S+)(\s+)(\S+), $3$2$1)) ’ Swap pairs of words.
Test方法
Test方法对指定的字符串执行一个正则表达式搜索,并返回一个 Boolean 值指示是否找到匹配的模式。
语法:object.Test(string)
语法部分描述:
object 必需的。总是一个 RegExp 对象的名称。
string 必需的。要执行正则表达式搜索的文本字符串。
说明
正则表达式搜索的实际模式是通过RegExp对象的Pattern属性来设置的。 RegExp.Global属性对Test方法没有影响。
如果找到了匹配的模式,Test方法返回True;否则返回False。
Test 方法的用法:
Function RegExpTest(patrn, strng)
Dim regEx, retVal ’ 建立变量。
Set regEx = New RegExp ’ 建立正则表达式。
regEx.Pattern = patrn ’ 设置模式。
regEx.IgnoreCase = False ’ 设置是否区分大小写。
retVal = regEx.Test(strng) ’ 执行搜索测试。
If retVal Then
RegExpTest = 找到一个或多个匹配。
Else
RegExpTest = 未找到匹配。
End If
End Function
MsgBox(RegExpTest(is., IS1 is2 IS3 is4))
发布日期:2020/01/15
发布日期:2019/07/22
发布日期:2019/03/17
苏公网安备 32011102010041号
320111201705278429
苏ICP备12027725号