怎么样把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

Ray
[转]终于可以发布Delphi下收点OSGI精髓皮毛而设计的插件框架WisdomPluginFramework
回复
4
查看
4K
chlkuei
C
S
请问哪里有可以把dbgrid里面的内容以mdb或是其它多种格式输出的控件下载？(100分)
回复
4
查看
139
sunson168
S
C
*.dat是什么格式的数据文件，如何把其中的数据导入db库或interbase? (50分)
回复
11
查看
139
cjj2
C
啊
请问如何把memo里的内容输入到access里？(100分)
回复
6
查看
164
啊啊啊啊啊
啊
P
在delphi中如何把记事本中的内容导进SQL中(100分)
回复
4
查看
94
pacific66
P
后退
顶部