获取网页

[ni871]

获取网页<script>中的参数和链接，求助~！

网页源代码

<script>
STK && STK.pageletM && STK.pageletM.view({"pid":"pl_weibo_directright","js":["apps\/search\/js\/pl\/weibo\/directright.js?version=201409121150","apps

\/search\/js\/pl\/weibo\/weblist.js?version=201409121150"],"css":["appstyle\/searchV45\/css\/pl\/pl_relaperson.css?version=201409121150","appstyle

\/searchV45\/css\/pl\/pl_mediabox.css?version=201409121150","appstyle\/searchV45\/css\/pl\/pl_shortlink.css?version=201409121150","appstyle

\/searchV45\/css\/pl\/pl_directarea_right.css?version=201409121150","appstyle\/searchV45\/css\/pl\/pl_relchain.css?version=201409121150","appstyle

\/searchV45\/css\/action\/girlsday.css?version=201409121150","appstyle\/searchV45\/css\/pl\/pl_commercial_r.css?version=201409121150"],"html":"

……
<span class=\"relchain_btn\"><a href=\"javascript:void(0);\" class=\"W5_btn_a\" action-data=\"uid=1791715730&name=nihao\u6881\u5fc3\u9890\" node-type=

\"search_relchain\" action-type=\"searchRelchain\" suda-data=\"key=tblog_search_v4.1&value=direct_rel_search\">

<span>\u5173\u7cfb\u94fe\u67e5\u8be2<\/span><\/a><\/span>\n



<span class=\"relchain_to\"><a href=\"http:\/\/weibo.com\/nihao\" target=\"_blank\" suda-data=\"key=tblog_search_v4.1&value=direct_rel_to\">

<img src=\"http:\/\/tp3.sinaimg.cn\/1791715730\/50\/5646707354\/0\" title=\"nihao\u6881\u5fc3\u9890\" height=\"30\" width=\"30\"\/><\/a><\/span>\n <

\/div>\n<\/div>\n<!-- \/\u627e\u4eba\u5173\u7cfb\u94fe -->\n "})

</script>
代码结束


这是用WebBrowser1获取的网页代码。
现在需要获取a href=\"http:\/\/weibo.com\/nihao\"，a href的值http:\/\/weibo.com\/nihao\，请教各位，代码应该怎么写？

[ni871]

大哥，帮一下忙~！

[ROBINTTT]

tregularexpressions

[浮生若梦_平淡为真]

STR={网页源代码};
i:=1
while i>0 do
begin
  i:=pos("<a href=\"",STR);
  i:=i+9;
  STR:=delete(STR,1,i);
  j:=pos("\"",STR);
  result:=result + ","  + copy(STR,1,j-1);//获得连接地址,并用，分割
end;

[mingle lu]

推荐用PerlRegEx正则表达式来获取比较方便。

[dyhgoa]

用正则或者HtmlParser取之