请帮忙写一个正则

[tatty_bad]

<div onmouseover="foot('第一个');pl_show('这里的内容是任意的，可能是数字，或者中文或者英文',this)" onmouseout="pl_hide()" style="float: left; cursor: default">

我想要pl_show('')这个中间的内容，其他的不要请问这个正则怎么写？？？

[tatty_bad]

我顶

[neo_yoho]

Function SubMatchTest(inpStr)
Dim reg, oMatches
Set reg = New RegExp
reg.Pattern = "pl_show\(\'(.*)?\'"
Set oMatches = reg.Execute(inpStr)
For Each Match in oMatches
response.write Match.SubMatches(0)
next
End Function

[一把编程的菜刀]

Set reg = New RegExp 
  reg.Global = True
   reg.IgnoreCase = True
  reg.Pattern = "(.*?)pl_show\((.*?)\)""\s\S(.*)?" 
str="<div onmouseover=""foot('第一个');pl_show('这里的内容是任意的，可能是数字，或者中文或者英文',this)"" onmouseout=""pl_hide()"" style=""float: left; cursor: default"">"
 str=reg.Replace(str,"$2")

response.Write str&"<br>"

[一把编程的菜刀]

Set reg = New RegExp 
  reg.Global = True
   reg.IgnoreCase = True
  reg.Pattern = "(.*?)pl_show\((.*?)\)(.*)?" 
str="<div onmouseover=""foot('第一个');pl_show('这里的内容是任意的，可能是数字，或者中文或者英文',this)"" onmouseout=""pl_hide()"" style=""float: left; cursor: default"">"
 str=reg.Replace(str,"$2")

response.Write str&"<br>"

[一把编程的菜刀]

不知道你是要上面2种正则写的效果还是：

Set reg = New RegExp 
  reg.Global = True
   reg.IgnoreCase = True
  reg.Pattern = "(.*?)pl_show\(\'(.*?)\'(.*)?" 
str="<div onmouseover=""foot('第一个');pl_show('这里的内容是任意的，可能是数字，或者中文或者英文',this)"" onmouseout=""pl_hide()"" style=""float: left; cursor: default"">"
 str=reg.Replace(str,"$2")

response.Write str&"<br>"

这个正则的效果