正则表达式怎么用？

Question

我在http://www.playicq.com/上下载了一个RegExpr.pas文件，可我不会用！
我得不到指定html文件中的联接地址？？？
有谁用过，可以教一下吗？ 谢谢我采用下面这个函数，只能得不到页面上一些url,有很多<td>中的不带http://的url地址就得不到。我应该怎样设置UrlRE格式呢？？还是这个类控件只能如些呢？function ExtractUrls (const AInputString : string) : string;
const
   UrlRE = '([Ff][Tt][Pp]|[Hh][Tt][Tt][Pp])://([_a-zA-Z\d\-]+(\.[_a-zA-Z\d\-]+))((/[ _a-zA-Z\d\-\\\.]+)+)*';
var
r : TRegExpr;
begin
Result := '';
r := TRegExpr.Create; // Create object
try // ensure memory release
   r.Expression := EmailRE;
   if r.Exec (AInputString) then
   REPEAT
Result := Result + r.Match [0] + ', ';
UNTIL not r.ExecNext;
finally 
           r.Free;
        end;
end;

Answer 1

IHTMLDocument2(WebBrowser1.Document).url

Answer 2

UrlRE = '(([Ff][Tt][Pp]|[Hh][Tt][Tt][Pp])://){0,1}([_a-zA-Z\d\-]+(\.[_a-zA-Z\d\-]+))((/[ _a-zA-Z\d\-\\\.]+)+)*';

Answer 3

不好意思，没有看清你的具体意思，一分也不能给。Sorry

Answer 4

([Hh][Tt][Tt][Pp]://|[Ff][Tt][Pp]://|[Ww][Ww][Ww][0-9]*.)([_0-9a-zA-Z\d\-]+(\.[_0-9a-zA-Z\d\-]+))([._0-9a-zA-Z\d\-])*//try

Answer 5

//参考
http://www.unionbyte.com/net/homepage/tech_html/tech_13.htm
http://www.unionbyte.com/net/homepage/tech_html/tech_14.htm

Answer 6

to all:问题是：  只能得到页面上一些带http://的url,有很多<td>中的不带http://的url地址就得不到。比如：src="..\abc.htm", href="abc.html"等。应该怎么搞？

Answer 7

那你是不是应该从 src= 和 href=
这里入手呀注意这个引号可能没有。

Answer 8

回 pazee(耙子) ，是的，我现在就是这样做的，我分析了不少的页面，src="",href=""一般都带有引号，我没有见过没带的！（把我头搞大了！:(，哦，离题了！是不是这个类只能到达这份上，还是我没有掌握它的用法，以至于只能自己分析html格式呢？ 烦。