{Autor: Stanislav Chromcak
Kontakt: ANCHOR@POST.CZ
WWW: http://freeweb.coco.cz/ANCHOR/pascal/
Tento soubor je soucasti projektu PASCAL V PRIKLADECH }
Procedure RemoveHTMLTags(FileNameIn,FileNameOut:string);
{Procedura prekopiruje soubor FileNameIn do souboru FileNameOut, pricemz
odstrani vsechny HTML tagy, tj. retezce tvaru , kde X je libovolny
neprazdny retezec nezacinajici mezerou.}
var Status:byte;
FIn,FOut:text;
p:char;
begin {RemoveHTMLTags}
Status:=0;
Assign(FIn,FileNameIn);
Assign(FOut,FileNameOut);
reset(FIn);
rewrite(FOut);
while not eof(FIn) do begin
while not eoln(FIn) do begin
read(FIn,p);
case Status of
0: if p='<' then Status:=1 else write(FOut,p);
1: if p=' ' then begin
Status:=0;
write(FOut,'< ');
end {if} else if p='>' then begin
Status:=0;
write(FOut,'<>');
end {if} else Status:=2;
2: if p=' ' then Status:=3
else if p='>' then Status:=0;
3: if p<>' ' then Status:=2;
end; {case}
end; {while not eoln}
readln(FIn);
if Status=0 then writeln(FOut,'');
end; {while not eof}
close(FIn);
close(FOut);
end; {RemoveHTMLTags}
Procedure KeepBody(FileNameIn,FileNameOut:string);
{Procedura otevre soubor FileNameIn a opise jej do souboru FileNameOut,
pricemz je splneno nasledujici:
- opisuje se jen text, ktery lezi mezi prvnim vyskytem znacky
ci a prvnim vyskytem znacky
- je-li znacka umisteno v komentari, napr.