上一篇
下一篇
Alexa网站排名查询工具
作者:webfly 日期:2005-04-15
Alexa网站排名查询工具,这个工具老兵已经写过了! 今天实在没事干,也写了一个,没什么含金量,这个程序代码就2句,为了让程序代码达到最精简的程度,其中改动了好几次,,写了近半个钟头!以下是我写的最精简代码,如果你有什么使这个程序代码更精简的方法请赐教!
编译:Win Xp + Delphi7.0 程序及源程序下载: http://www.hackdiy.com/code/alexa.rar
procedure TForm1.Button1Click(Sender: TObject);
var
S: string; //最精简代码! 只提供喜欢delphi编程的朋友学习!
begin
S := idHTTP1.Get('http://data.alexa.com/data?cli=10&dat=snba&url=' + Edit1.Text); //获取网页代码
Edit2.Text := Copy( Copy( S, Pos('" TEXT="',S) + 8, 50 ), 1, Pos('"/>', Copy(S, Pos('" TEXT="',S) + 8, 50) ) - 1 ); //一句分解
end;
编译:Win Xp + Delphi7.0 程序及源程序下载: http://www.hackdiy.com/code/alexa.rar
procedure TForm1.Button1Click(Sender: TObject);
var
S: string; //最精简代码! 只提供喜欢delphi编程的朋友学习!
begin
S := idHTTP1.Get('http://data.alexa.com/data?cli=10&dat=snba&url=' + Edit1.Text); //获取网页代码
Edit2.Text := Copy( Copy( S, Pos('" TEXT="',S) + 8, 50 ), 1, Pos('"/>', Copy(S, Pos('" TEXT="',S) + 8, 50) ) - 1 ); //一句分解
end;
文章来自: 
引用通告: 
Tags: 
相关日志:
评论: 0 | 引用: 1 | 查看次数: -
发表评论
