Autor Beitrag
gerry
Hält's aus hier
Beiträge: 5



BeitragVerfasst: Sa 07.09.02 15:42 
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;
MathiasSimmack
Ehemaliges Mitglied
Erhaltene Danke: 1



BeitragVerfasst: Sa 07.09.02 18:17 
Zum einen würde ich "ReadLn" anstelle von "Read" nehmen. Dann müsste dir doch klar sein, dass die HTML-Syntax so aussieht
ausblenden Quelltext
1:
<title>Ein Titel</title>					

Wenn du aber so rangehst:
ausblenden Quelltext
1:
2:
3:
Read(fileHTML, Ch);
if Ch = 'Titel' then
  ...

dann setzt du voraus, dass die gelesene Zeile exakt so aussieht:
ausblenden Quelltext
1:
Titel					

Du müsstest also prüfen, ob in der gelesenen Zeile die korrekte HTML-Syntax vorkommt, beispielsweise
ausblenden 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.