HTML문서에서 태그만 싸악. 제거하기..
급프를 하느라 소스가 정리되지 못했습니다. 고럼..
procedure TF_Get_Product_Info.BitBtn3Click(Sender: TObject);
var
buf : String;
buf1 : String;
Document : olevariant;
i, j : integer;
flag : boolean;
begin
Document := WebBrowser1.Document;
buf := Document.Body.innerHtml;
buf := StringReplace(buf,'<br>',#13#10,[rfReplaceAll, rfIgnoreCase]);
buf := StringReplace(buf,'</TR>',#13#10,[rfReplaceAll, rfIgnoreCase]);
buf := StringReplace(buf,'</TD>',#13#10,[rfReplaceAll, rfIgnoreCase]);
buf := StringReplace(buf,'</TABLE>',#13#10,[rfReplaceAll, rfIgnoreCase]);
i := 0;
j := 0;
flag := true;
while Length(buf) > i do
begin
if Copy(buf,i,1)='<' then
begin
flag := false;
inc(i);
end
else if Copy(buf,i,1)='>' then
begin
flag := true;
inc(i);
while true do
begin
if Copy(buf,i,1) = '<' then
begin
flag := false;
inc(i);
Continue;
end;
if Copy(buf,i,1) = #13 then
begin
inc(i);
Continue;
end;
if Copy(buf,i,1) = #10 then
begin
inc(i);
Continue;
end;
break;
end;
end;
if flag then
begin
buf1 := buf1+Copy(buf,i,1);
end;
inc(i);
end;
Memo5.Lines.Text:=buf1;
end; |
|
목록보기