Question

asp 求一个正则表达式函数

示例1:
dim a
a="书(本)"
如果正则表达式取出里面的“书”和“本”的字符串
示例2:
dim a
a="书(本)/笔(根)"
跟上面的区别是我用/字符进行了分组，如何正确分离出下面的类似格式
<table>
<tr>
<td>书</td><td>本</td>

</tr>
<tr>
<td>笔</td><td>根</td>

</tr>
</table>

Answer 1

Function RegExpTest(str)
	Dim regEx, Match, Matches, RetStr
	Set regEx = New RegExp
	regEx.Pattern = "([^\/\(]+)\(([^\)]+)\)"
	regEx.IgnoreCase = True
	regEx.Global = True
	Set Matches = regEx.Execute(str)
	RetStr = "<table>"
	For Each Match in Matches
		RetStr = RetStr & "<tr>"
		RetStr = RetStr & "<td>" & Match.SubMatches(0) & "</td>"
		RetStr = RetStr & "<td>" & Match.SubMatches(1) & "</td>"
		RetStr = RetStr & "</tr>"
	Next
	RegExpTest = RetStr & "</table>"
End Function

'以下是测试代码
Dim a, b
a = "书(本)"
b = "书(本)/笔(根)"

Response.Write( RegExpTest( a ) )

Response.Write( RegExpTest( b ) )

结果显示如下：

Answer 2

直接使用split和mid两个函数就可以实现这个功能。