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属性
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"))
首页 1 2 3 末页