Pascal: karakteres olvasással szeretném HTML fájlból kinyerni az összes linket. Miként lehet a legegyszerűbben ezt megvalósítani?

Miként lehetne legegyszerűbben HTML fájlokból hivatkozásokat kiolvasni Free Pascal segítségével?

Találtam egy projektet, ami tud ilyet is sokminden más mellett, de az elég komplikált volt nekem, valamint nekem csak hivatkozások kiolvasására lenne szükségem.

Szeretném, ha akkor is működne, ha <A href, <A HREF formában van megadva a fájlban a hivatkozás.

Nem tudom, szabályos -e, hogy a halmaznevet nagybetűvel írtam, bár semmir nem mentem vele, mert a "not in" utasítást sehol nem volt hajlandó elfogadni a Pascal.

Nem AnsiString és ehhez hasonlókkal szeretném megoldani a beolvasást, hanem így, karakterenként.

Miként oldható az meg, hogy ki is lépjen szabályosan, ha az olvasás a fájl végére ért/nem várható több adott karakter és így a feltétel soha nem teljesülhet?

Elegánsabb, frappánsabb megoldása is van ennek annál, hogy pl. folyamatosan pakolnám a stringbe a karaktereket, és meghívnám a pos függvényt a konstansként definiált stringgel, majd ha >0 akor kilép?

program link_kiir;

{$MODE OBJFPC} {$H+}

const

link_eleje : string = ('<a href=' );

link_hatarolok: set of char=(['"',chr(39)]);

CRLf:set of char = ([#10,#13]);

var

f : file of char;

ch : char;

link, link_belseje : string;

karakter : byte;

begin

Assign (f, ParamStr (1) );

Reset (f);

repeat

link := '';

karakter := 1;

repeat

Read (f, ch);

if (ch <> '"') and (ch <> Chr (39)) then begin

if (ch = link_eleje[karakter]) then

begin

link := link+ch;

inc(karakter);

end

else

if (ch <> link_eleje [karakter]) and (karakter > 1) then dec(karakter)

end;

until (karakter = Length ( link_eleje ) );

WriteLn(link);

link_belseje := '';

while (ch <> '"') and (ch <> Chr (39)) do

begin

Read(f, ch);

if (ch <> '"') and (ch <> Chr (39)) then

link_belseje := link_belseje+ch;

end;

WriteLn(link_belseje);}

until Eof (f);

Close(f);

end.