急!请教如何抽取网页中的的文本内容(100分)

  • 主题发起人 主题发起人 honeyhui
  • 开始时间 开始时间
H

honeyhui

Unregistered / Unconfirmed
GUEST, unregistred user!
小妹是新手,哪位高手可以指点下迷津,小妹这厢有礼了!
 
为什么没人回答我啊 好伤心啊 各位大侠帮帮忙撒
 
小妹 二字要写到标题里,很多人回答的
 
這個裏面就有
http://www.delphibbs.com/keylife/iblog_show.asp?xid=512
http://www.delphibbs.com/delphibbs/dispq.asp?lid=3527529
 
同意楼上的。
 
正则表达式
 
应该是四川或重庆的眉眉吧
 
呵呵 我可是如假包换的扬州MM
第一次在这里提问题,不太懂规矩拉,下次一定把小妹写在标题里.忽忽!
谢谢回答的各位![:)]
 
現在修改一下鐵子,寫在標題裡也不晚
 
楼主是扬州银?看在老乡份上给你一段代码:
冰力不足 给的是直接从HTML源码取文本
我给个用TWebBrowser取文本方法
text:=(WebBrowser1.Document as IHtmlDocument2).Body.outerText;
 
procedure TForm1.Web1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
var
x : Variant;
begin
try
x := Web1.Document;
Memo1.Text := x.Body.InnerText;
if Pos(Edit1.Text,Memo1.Text) = 0 then
begin
//已经找到需要查找的内容
end;
except end;
end;

---------------------
呵呵,记得结贴给分
 
或者把HTML导入到xmldocument,不过不一定可行,因为经常会少点标记的
 
谢谢大家 
 
anick的代码不错 学习
 

Similar threads

D
回复
0
查看
2K
DelphiTeacher的专栏
D
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
2K
DelphiTeacher的专栏
D
后退
顶部