利用正则怎么把这几个参数取出来

1226852858

http://www.bxktv.com/MP3/search.aspx?key=Mc%e5%b0%8f%e5%8f%af%e7%88%b1
上面是网页
ID=4355&Gs=Mc小可爱&Gq=奢香夫人&MG=Mc小可爱-奢香夫人
匹配出来弄成以上格式


color=#FFCC00><font color='red'>Mc小可爱</font>-奢香夫人  <span>Mc小可爱-奢香夫人</span></font></a></td>
     <td width="8%" align=center><script type="text/javascript">
                                     document.write(parseInt(20 * Math.random() + 1));
                      </script>998</td>
     <td width="7%">
         
         <a href='4355.html'><img class="style4" src="../images/mp3/earphone.gif" border="0"/></a>
         </td>
     <td width="5%">


     <a href="javascript:down(4355)"<a><img class="style5" src="../images/mp3/gif-018.gif" border="0"/></a>

浅黑

<font color='red'>(.*)</font>(.*)<span>(.*)</span>[\s\S]*?<a href="javascript:down\((\d*)\)"<a>

千年

编辑框1.内容=原始网页内容
编辑框2.内容=匹配到的结果

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

编辑框2.内容 ＝ _匹配 (编辑框1.内容)

子程序名	返回值类型	公开	备 注
_匹配	文本型
参数名	类 型	参考	可空	数组	备 注
源文本	文本型				欲被匹配的文本

变量名	类 型	静态	数组	备 注
局_正则	正则表达式类
局_匹配数	整数型
局_计次	整数型
局_子匹配数	整数型
ss	文本型

如果真 (局_正则.创建 (“(\d+)[\s\S]*?(.*?)(.*?)(.*?)”, 源文本, 假, 假, 真, 真) ＝ 假)
返回 (“创建正则失败”)

局_匹配数 ＝ 局_正则.取匹配数量 ()
如果真 (局_匹配数 ＝ 0)
返回 (“匹配失败，请检检查正则语句是否有误，数量：0”)
局_子匹配数 ＝ 局_正则.取子匹配数量 ()
计次循环首 (局_匹配数, 局_计次)
ss ＝ ss ＋ “ID=” ＋ 局_正则.取子匹配文本 (局_计次, 1, ) ＋ “&Gs=” ＋ 局_正则.取子匹配文本 (局_计次, 2, ) ＋ “&Gq=” ＋ 局_正则.取子匹配文本 (局_计次, 3, ) ＋ “&MG=” ＋ 局_正则.取子匹配文本 (局_计次, 4, ) ＋ #换行符
计次循环尾 ()
返回 (ss)

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 编辑框2.内容 ＝ _匹配 (编辑框1.内容)<br /> <br /> .子程序 _匹配, 文本型<br /> .参数 源文本, 文本型, , 欲被匹配的文本<br /> .局部变量 局_正则, 正则表达式类<br /> .局部变量 局_匹配数, 整数型<br /> .局部变量 局_计次, 整数型<br /> .局部变量 局_子匹配数, 整数型<br /> .局部变量 ss, 文本型<br /> <br /> .如果真 (局_正则.创建 (“(\d+)[\s\S]*?<font color="red">(.*?)</font>(.*?)(.*?)”, 源文本, 假, 假, 真, 真) ＝ 假)<br />     返回 (“创建正则失败”)<br /> .如果真结束<br /> <br /> 局_匹配数 ＝ 局_正则.取匹配数量 ()<br /> .如果真 (局_匹配数 ＝ 0)<br />     返回 (“匹配失败，请检检查正则语句是否有误，数量：0”)<br /> .如果真结束<br /> 局_子匹配数 ＝ 局_正则.取子匹配数量 ()<br /> .计次循环首 (局_匹配数, 局_计次)<br />     ss ＝ ss ＋ “ID=” ＋ 局_正则.取子匹配文本 (局_计次, 1, ) ＋ “&Gs=” ＋ 局_正则.取子匹配文本 (局_计次, 2, ) ＋ “&Gq=” ＋ 局_正则.取子匹配文本 (局_计次, 3, ) ＋ “&MG=” ＋ 局_正则.取子匹配文本 (局_计次, 4, ) ＋ #换行符<br /> .计次循环尾 ()<br /> 返回 (ss)