Entwickler-Ecke

Sonstiges (Delphi) - Titel aus html file lesen


gerry - Sa 07.09.02 15:42
Titel: Titel aus html file lesen
wie kann ich den <TITEL> hallo </TITEL>
aus einem Html file auslesen und im edit.text feld anzeigen.

das lesen klappt... aber das Titel auslesen nicht;-)
wer kann mir helfen...?

.../
AssignFile(fileHTML, filelistbox1.filename);
Reset(fileHTML);
fname := Filelistbox1.filename;
AssignFile(filetext, fname);
Rewrite(filetext);
while not Eof(fileHTML) do
begin
Read(fileHTML, Ch);
if Ch = 'Titel' then
edit.text:=ch
.....

..... ????
end;
end;


Delete - Sa 07.09.02 18:17
Titel: Re: Titel aus html file lesen
Zum einen würde ich "ReadLn" anstelle von "Read" nehmen. Dann müsste dir doch klar sein, dass die HTML-Syntax so aussieht

Quelltext
1:
<title>Ein Titel</title>                    

Wenn du aber so rangehst:

Quelltext
1:
2:
3:
Read(fileHTML, Ch);
if Ch = 'Titel' then
  ...

dann setzt du voraus, dass die gelesene Zeile exakt so aussieht:

Quelltext
1:
Titel                    

Du müsstest also prüfen, ob in der gelesenen Zeile die korrekte HTML-Syntax vorkommt, beispielsweise

Quelltext
1:
2:
if(pos('<title>',lowercase(Ch)) > 0) then
  ...

Wenn das der Fall ist, dann suchst du das Gegenstück "</title>" und kopierst den Text, der sich dazwischen befindet. - Das wäre eine Variante.

Dann gäbe es noch den zweiten Weg über den TWebBrowser, bzw. nur über das "IWebBrowser"-Interface. Dort hast du Zugriff auf das Dokument und könntest den Titel ebenfalls auslesen.
Aber ehrlicherweise muss ich zugeben, dass ich mich damit noch nicht beschäftigt habe. Wie das genau geht, sollte dir dann wohl besser ein anderer erklären.