vbscript正则直接得到$1的内容 谢谢,可是出现了错误:无效字符 /test/linehttp.asp,行 132 str=RegExp.$1 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Function Regexpget(patrn,strng)Dim Regex,Match,MatchesDim strstr=""Set Regex = New RegExpRegex.Pattern = patrnRegex.Ignorecase = TrueRegex.Global= Trueif Regex.test(strng) thenstr=RegExp.$1end ifRegexpget=strEnd Function $1这样的属性是RegExp对象的全局属性JavaScript支持直接访问VBScript因为自身语言特性决定,无法访问它的$1属性 你可以用 Execute 方法,来取得匹配的每个部分===============================Microsoft(R) Visual Basic(R) Scripting Edition Execute 方法 语言参考 版本 5 请参阅 应用于 --------------------------------------------------------------------------------描述对指定的字符串执行正则表达式搜索。语法对象.Execute(string)Execute 方法的语法包括以下几个部分:部分 描述 对象 必选项。总是一个 RegExp 对象的名称。 string 必选项。要在其上执行正则表达式的文本字符串。 说明正则表达式搜索的设计模式是通过 RegExp 对象的 Pattern 来设置的。Execute 方法返回一个 Matches 集合,其中包含了在 string 中找到的每一个匹配的 Match 对象。如果未找到匹配,Execute 将返回空的 Matches 集合。下面的代码说明了 Execute 方法的用法:Function RegExpTest(patrn, strng) Dim regEx ,Match,Matches ' 建立变量。 Set regEx = New RegExp ' 建立正则表达式。 regEx.Pattern = patrn ' 设置模式。 regEx.IgnoreCase = True ' 设置不区分大小写。 regEx.Global = True ' 搜索全部匹配。 RegExpTest = regEx.Execute(strng) ' 执行搜索。End FunctionMsgBox(RegExpTest("is.", "IS1 is2 IS3 is4"))-------------------------------------------------------------------------------- 如何实现层的等比例缩放、移动?? 点击单选按钮弹出登录框问题 如何在层中加滚动条!没分了,不过我会记住你的!谢谢 这段简单的代码到底哪里错了?? 如何将下载时更改输出文件名? 初用請教﹐在線等待﹐請幫忙﹐謝謝 关于页面生成树形菜单的问题,达人帮忙啊,困扰了几天了!!! 网页代码中的下面一句话,什么意思? 连接和弹出窗口问题? 急!!下拉列表框产生文本框的方法 谁有DOM中文参考手册(CHM)?50分感谢!加急! js怎么写一个对table的选择记录行的操作?
Dim Regex,Match,Matches
Dim str
str=""
Set Regex = New RegExp
Regex.Pattern = patrn
Regex.Ignorecase = True
Regex.Global= True
if Regex.test(strng) then
str=RegExp.$1
end if
Regexpget=str
End Function
===============================
Microsoft(R) Visual Basic(R) Scripting Edition
Execute 方法 语言参考
版本 5
请参阅 应用于
--------------------------------------------------------------------------------描述
对指定的字符串执行正则表达式搜索。
语法
对象.Execute(string)
Execute 方法的语法包括以下几个部分:部分 描述
对象 必选项。总是一个 RegExp 对象的名称。
string 必选项。要在其上执行正则表达式的文本字符串。
说明
正则表达式搜索的设计模式是通过 RegExp 对象的 Pattern 来设置的。
Execute 方法返回一个 Matches 集合,其中包含了在 string 中找到的每一个匹配的 Match 对象。如果未找到匹配,Execute 将返回空的 Matches 集合。下面的代码说明了 Execute 方法的用法:
Function RegExpTest(patrn, strng)
Dim regEx ,Match,Matches ' 建立变量。
Set regEx = New RegExp ' 建立正则表达式。
regEx.Pattern = patrn ' 设置模式。
regEx.IgnoreCase = True ' 设置不区分大小写。
regEx.Global = True ' 搜索全部匹配。
RegExpTest = regEx.Execute(strng) ' 执行搜索。
End FunctionMsgBox(RegExpTest("is.", "IS1 is2 IS3 is4"))
--------------------------------------------------------------------------------