求一段asp的正则表达式,要求取出"[ ]"中的内容
例:假设网页源代码中有内容为"[喜剧片][恐怖片][爱情片][电视剧]"等等要求只取方括号中含有"片"字的内容,并且只匹配第一个。想要得到的结果为:喜剧片...
例:假设网页源代码中有内容为"[喜剧片][恐怖片][爱情片][电视剧]"等等
要求只取方括号中含有"片"字的内容,并且只匹配第一个。
想要得到的结果为:喜剧片 展开
要求只取方括号中含有"片"字的内容,并且只匹配第一个。
想要得到的结果为:喜剧片 展开
2个回答
展开全部
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"))
详细出处参考:http://www.jb51.net/article/26692.htm
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"))
详细出处参考:http://www.jb51.net/article/26692.htm
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询