asp中如何调用vbscript方法 20
<scriptlanguage=vbscript>FunctionRegExpTest(patrn,strng)DimregEx,match,Matches'创建变量。S...
<script language=vbscript>
Function RegExpTest(patrn, strng)
Dim regEx, match, Matches ' 创建变量。
Set regEx = New RegExp ' 创建正则表达式。
regEx.Pattern = patrn ' 设置模式。
regEx.IgnoreCase = false ' 设置为不区分大小写。
regEx.Global = True ' 设置全局适用。
Set Matches = regEx.Execute(strng) ' 执行搜索。
For Each Match in Matches ' 对 Matches 集合进行迭代。
RetStr = RetStr & "Match found at position "
RetStr_1 = RetStr & Match.FirstIndex & ". Match Value is '"
RetStr_2 = RetStr & Match.Value & "'." & vbCRLF
Next
RegExpTest = RetStr
End Function
MsgBox(RegExpTest("is.", "Is1 iS2 is3 "))
</script>
<%
我在这里如何调用RegExpTest()方法
%> 展开
Function RegExpTest(patrn, strng)
Dim regEx, match, Matches ' 创建变量。
Set regEx = New RegExp ' 创建正则表达式。
regEx.Pattern = patrn ' 设置模式。
regEx.IgnoreCase = false ' 设置为不区分大小写。
regEx.Global = True ' 设置全局适用。
Set Matches = regEx.Execute(strng) ' 执行搜索。
For Each Match in Matches ' 对 Matches 集合进行迭代。
RetStr = RetStr & "Match found at position "
RetStr_1 = RetStr & Match.FirstIndex & ". Match Value is '"
RetStr_2 = RetStr & Match.Value & "'." & vbCRLF
Next
RegExpTest = RetStr
End Function
MsgBox(RegExpTest("is.", "Is1 iS2 is3 "))
</script>
<%
我在这里如何调用RegExpTest()方法
%> 展开
3个回答
展开全部
这样就可以了。
<%
Function RegExpTest(patrn, strng)
Dim regEx, match, Matches ' 创建变量。
Set regEx = New RegExp ' 创建正则表达式。
regEx.Pattern = patrn ' 设置模式。
regEx.IgnoreCase = false ' 设置为不区分大小写。
regEx.Global = True ' 设置全局适用。
Set Matches = regEx.Execute(strng) ' 执行搜索。
For Each Match in Matches ' 对 Matches 集合进行迭代。
RetStr = RetStr & "Match found at position "
RetStr_1 = RetStr & Match.FirstIndex & ". Match Value is '"
RetStr_2 = RetStr & Match.Value & "'." & vbCRLF
Next
RegExpTest = RetStr
End Function
%>
<%
Function RegExpTest(patrn, strng)
Dim regEx, match, Matches ' 创建变量。
Set regEx = New RegExp ' 创建正则表达式。
regEx.Pattern = patrn ' 设置模式。
regEx.IgnoreCase = false ' 设置为不区分大小写。
regEx.Global = True ' 设置全局适用。
Set Matches = regEx.Execute(strng) ' 执行搜索。
For Each Match in Matches ' 对 Matches 集合进行迭代。
RetStr = RetStr & "Match found at position "
RetStr_1 = RetStr & Match.FirstIndex & ". Match Value is '"
RetStr_2 = RetStr & Match.Value & "'." & vbCRLF
Next
RegExpTest = RetStr
End Function
%>
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
call RegExpTest("is.", "Is1 iS2 is3 ")
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
call RegExpTest
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询