怎么样把htm格式的文件中的内容读到TXT中(200分)

  • 主题发起人 主题发起人 halei
  • 开始时间 开始时间
//wbbrowser1还没有load入网页，当然会出错了，分开在不同的事件中做。
procedure TForm1.Button1Click(Sender: TObject);
begin
webbrowser1.Navigate('d:/200/a.htm');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Memo1.Lines.Add(IHtmlDocument2(WebBrowser1.Document).Body.OuterText);
end;
 
Memo1.Lines.Add(IHtmlDocument2(WebBrowser1.Document).Body.OuterText);
要放在WebBrowser1NavigateComplete2中，否则网页没加载完毕，是要出错的。
 
隨便找個支持HTML的空間打開不就行了嗎.例如PageProducer
 
谢谢zw84611和影子

但只能输出40几条记录,还有一大半没有输出是怎么回事?
 
两种方法都是这样吗？
 
Memo1.Lines.Add(IHtmlDocument2(WebBrowser1.Document).Body.OuterText);
要放在WebBrowser1NavigateComplete2中，否则网页没加载完毕，是要出错的。
是没输出完,是什么原因?
procedure TForm1.Button1Click(Sender: TObject);
begin
webbrowser1.Navigate('d:/200/a.htm');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Memo1.Lines.Add(IHtmlDocument2(WebBrowser1.Document).Body.OuterText);
end;
可以全部输出.
 
但是我需要做成第一种.不然和手工COPY到TXT中就没分别了.
我有多个要处理的网页.需要做一个循环必须要自动的输出.不能老是去点按钮
 
放在
DocumentComplete
（无2）中呢？
 
多人接受答案了。
 
怎么把20个HTM文件用循环输出?
 
您必须登录或注册才可回复。

Similar threads

不
Python从内存中使用编译后的模块 - 不得闲
回复
0
查看
706
不得闲
不
不
关于在Delphi中链接VC的obj文件（XE2以上版本） - 不得闲
回复
0
查看
926
不得闲
不
不
Delphi中实现变长函数笔记 - 不得闲
回复
0
查看
978
不得闲
不
不
B编码以及BT种子文件分析 - 不得闲
回复
0
查看
1K
不得闲
不
不
Delphi中设置条件断点 - 不得闲
回复
0
查看
804
不得闲
不
后退
顶部