正则的使用,帮忙写段代码
这是我写好的正则,可以正常分析,但我不懂在VB里调用
<tr\s> \n.*\n\s.* (? <isever> .*) </td> \n\s.*￥(? <iprice> .*)/G.*\n\s.*r "> (? <iquantity> .*) </td> \n.*\n.*\n.*
目的是可以分析下面的HTML,帮忙写段代码,点击后可以提取到 <iserver> <iprice> <iquantity> 的内容,谢谢,分不够可以再加
---------------------------
<table width= "420 " height= "400 " border= "0 " align= "center " cellpadding= "0 " cellspacing= "0 " bgcolor= "#ECE8DD ">
<tr>
<td align= "left " valign= "top "> <table width= "420 " border= "0 " align= "center " cellpadding= "0 " cellspacing= "0 " bgcolor= "#ECE8DD ">
<tr bgcolor= "#64748B ">
<td colspan= "6 "> </td>
</tr>
<tr bgcolor= "F9FDF2 " class= "px12-b-417508 ">
<td width= "20% " class= "r_blue_dot_border " align= "center "> <strong> 游戏名称 </strong> </td>
<td width= "35% " height= "25 " class= "r_blue_dot_border " align= "center "> <strong> 游戏服务器 </strong> </td>
<td width= "15% " class= "r_blue_dot_border " align= "center "> <strong> 报价 </strong> </td>
<td width= "14% " class= "r_blue_dot_border " align= "center "> <strong> 收购量 </strong> </td>
<td width= "9% " class= "r_blue_dot_border " align= "center "> <strong> 状态 </strong> </td>
<td width= "7% " class= "r_blue_dot_border " align= "center "> <strong> 下单 </strong> </td>
</tr>
<tr bgcolor= "64748B ">
<td colspan= "6 "> </td>
</tr>
<tr >
<td height= "25 " align= "left "> ·美服魔兽 </td>
<td height= "25 " align= "left "> Korgath US-Alliance </td>
<td align= "center "> ￥0.90/G </td>
<td align= "center "> 800 </td>
<td align= "center "> <font color=red> 紧急 </font> </td>
<td align= "center "> <a href= "post-order.php?goods_id=349&goods_state=0 " target= "menu "> <img src= "images/text.gif " width= "16 " height= "15 " border= "0 " /> </a> </td>
</tr>
<tr >
<td height= "25 " align= "left "> ·美服魔兽 </td>
<td height= "25 " align= "left "> Stonemaul US-A </td>
<td align= "center "> ￥1.10/G </td>
<td align= "center "> 800 </td>
<td align= "center "> <font color=red> 紧急 </font> </td>
<td align= "center "> <a href= "post-order.php?goods_id=442&goods_state=0 " target= "menu "> <img src= "images/text.gif " width= "16 " height= "15 " border= "0 " /> </a> </td>
</tr>
<tr >
<td height= "25 " align= "left "> ·欧服魔兽 </td>
<td height= "25 " align= "left "> Kor‘gall-GB-H </td>
<td align= "center "> ￥0.29/G </td>
<td align= "center "> 1000 </td>
<td align= "center "> <font color=red> 紧急 </font> </td>
<td align= "center "> <a href= "post-order.php?goods_id=725&goods_state=0 " target= "menu "> <img src= "images/text.gif " width= "16 " height= "15 " border= "0 " /> </a> </td>
</tr>
<tr >
<td height= "25 " align= "left "> ·美服魔兽 </td>
<td height= "25 " align= "left "> Thaurissan US-H </td>
<td align= "center "> ￥0.90/G </td>
<td align= "center "> 100 </td>
<td align= "center "> <font color=red> 紧急 </font> </td>
<td align= "center "> <a href= "post-order.php?goods_id=941&goods_state=0 " target= "menu "> <img src= "images/text.gif " width= "16 " height= "15 " border= "0 " /> </a> </td>
</tr>
<tr >
<td height= "25 " align= "left "> ·美服魔兽 </td>
<td height= "25 " align= "left "> Azjol-Nerub - H </td>
<td align= "center "> ￥0.95/G </td>
<td align= "center "> 891 </td>
<td align= "center "> <font color=red> 紧急 </font> </td>
<td align= "center "> <a href= "post-order.php?goods_id=943&goods_state=0 " target= "menu "> <img src= "images/text.gif " width= "16 " height= "15 " border= "0 " /> </a> </td>
</tr>
<tr >
<td height= "25 " align= "left "> ·美服英雄 </td>
<td height= "25 " align= "left "> Dragon </td>
<td align= "center "> ￥2.40/M </td>
<td align= "center "> 10 </td>
<td align= "center "> <font color=blue> 正常 </font> </td>
<td align= "center "> <a href= "post-order.php?goods_id=944&goods_state=1 " target= "menu "> <img src= "images/text.gif " width= "16 " height= "15 " border= "0 " /> </a> </td>
</tr>
<tr >
<td height= "25 " align= "left "> ·美服魔兽 </td>
<td height= "25 " align= "left "> Maelstrom - Horde </td>
<td align= "center "> ￥0.86/G </td>
<td align= "center "> 200 </td>
<td align= "center "> <font color=red> 紧急 </font> </td>
<td align= "center "> <a href= "post-order.php?goods_id=946&goods_state=0 " target= "menu "> <img src= "images/text.gif " width= "16 " height= "15 " border= "0 " /> </a> </td>
</tr>
<tr >
<td height= "25 " align= "left "> ·美服魔兽 </td>
<td height= "25 " align= "left "> Darkspear - H </td>
<td align= "center "> ￥0.9/G </td>
<td align= "center "> 800 </td>
<td align= "center "> <font color=red> 紧急 </font> </td>
<td align= "center "> <a href= "post-order.php?goods_id=947&goods_state=0 " target= "menu "> <img src= "images/text.gif " width= "16 " height= "15 " border= "0 " /> </a> </td>
</tr>
</table> </td>
</tr>
</table>
[解决办法]
vb 里面调用，很难。在 HTML 里面使用 vbscript 还方便很多。
[解决办法]
或者 vb.net 也很方便的
[解决办法]
试试安装ocx:
Microsoft ScriptControl
(c:\windows\system32\msscript.ocx)
Delphi下测试通过：
ShowMessage(ScriptControl1.Eval( 's= "aaabbca ";s=s.replace(/a/g, "z ") '));
显示结果：zzzbbcz
