C
cf83325
Unregistered / Unconfirmed
GUEST, unregistred user!
如何批量提取网页标题.我现在只能搞定提取单个的网页标题.我的意思是,把1000个html文件放在一个文件夹里面,全选中批量提取网页标题~~~~~.关键技术怎么批量提取的问题??
本人积分不多,好心的人给出提示~~~~~~~
我要的是把1000个html文件放在一个文件夹里面,全选中批量提取网页标题~~~~~.
以下是我写的,成功提取单个网也标题~~~~的原代码:
procedure TForm1.RzToolButton1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
StatusBar1.SimpleText :=OpenDialog1.FileName;
end;
RzToolButton2.Caption :='开始处理';
end;
procedure TForm1.RzToolButton2Click(Sender: TObject);
var
i,j :Integer;
s,m :WideString;
begin
s :=Memo1.Text;
if RzToolButton2.Caption ='开始处理' then
begin
i:=pos('<title>',s);
s:=copy(s,i+7,length(s)-i-7);//一定要给直s
j:=pos('</title>',s);
m:=copy(s,1,j-1);//一定要给直m,不给的话,memo1.text不能动态变化。
memo1.Text:= m;
with ADOTable1 do
begin
Append;
FieldByName('标题').AsString :=m;
Post;
end;
StatusBar1.SimpleText :='欢迎使用网页批处理器1.0试用版!';
RzToolButton2.Caption :='批处理';
end
else Exit; //MessageBox(0,'选择处理对象','处理',0);
end;
本人积分不多,好心的人给出提示~~~~~~~
我要的是把1000个html文件放在一个文件夹里面,全选中批量提取网页标题~~~~~.
以下是我写的,成功提取单个网也标题~~~~的原代码:
procedure TForm1.RzToolButton1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
StatusBar1.SimpleText :=OpenDialog1.FileName;
end;
RzToolButton2.Caption :='开始处理';
end;
procedure TForm1.RzToolButton2Click(Sender: TObject);
var
i,j :Integer;
s,m :WideString;
begin
s :=Memo1.Text;
if RzToolButton2.Caption ='开始处理' then
begin
i:=pos('<title>',s);
s:=copy(s,i+7,length(s)-i-7);//一定要给直s
j:=pos('</title>',s);
m:=copy(s,1,j-1);//一定要给直m,不给的话,memo1.text不能动态变化。
memo1.Text:= m;
with ADOTable1 do
begin
Append;
FieldByName('标题').AsString :=m;
Post;
end;
StatusBar1.SimpleText :='欢迎使用网页批处理器1.0试用版!';
RzToolButton2.Caption :='批处理';
end
else Exit; //MessageBox(0,'选择处理对象','处理',0);
end;