Entwickler-Ecke :: Thema anzeigen - HTML Tabelle auslesen

Sithlord - Mo 27.04.09 13:30
Titel: HTML Tabelle auslesen - wie geht denn das?

Hallo Mitglieder,

habe ein Problem:
Ich möchte eine HTML Tabelle auslesen, deren Links sowie sonstige Textteile in Delphi anzeigen lassen.

Wie gehe ich sowas an, ich habe mich damit noch nie beschäftigt und wüsste jetzt auch durch suchen nicht, wie.
Es muss ja kein Komplett fertiger Code sein ;=)

Danke euch,

mfg Kalle

P.S. Die Delphi titelsuche gab mir schon folgendes:
http://www.delphi-forum.de/viewtopic.php?t=88689&highlight=html+tabelle+auslesen
Aus dem werde ich auch schlau, habe aber zum bsp:
-Spalte1--Spalte2--Spalte3
-myname?--myhouse--mylink?

und dann nicht nur ein Datensatzt, sondern mehrere, also fast beliebig viele ;)
Ein neues Problem wirft sich mir auf:
ein Link muss auch mit übernommen werden.
Wäre nett, wenn ihr mir da beistehen könntet!

jaenicke - Mo 27.04.09 13:39

Ich habe das vor kurzem für mein Periodensystem gebraucht um Daten aus Wikipedia auszulesen. Da ich keinen kompletten Parser integrieren wollte, habe ich das schnell selbst gebastelt. Hier der entsprechende (nicht besonders optimale, aber einfache) Quelltext:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

  // Entfernt alle Tags aus AText
  function CleanData(AText: String): String;
  begin
    Result := AText;
    while Pos('<', Result) > 0 do
      Delete(Result, Pos('<', Result), Pos('>', Result) - Pos('<', Result) + 1);
  end;

  // Sucht das nächste Tabellenzellen-Tag und extrahiert dessen Inhalt
  function GetNextData(var AText, AName, AValue: String): Boolean;
  begin
    Result := False;
    if Pos('<td', AText) = 0 then
      Exit;
    Delete(AText, 1, Pos('<td', AText) + 2);
    Delete(AText, 1, Pos('>', AText));
    if Pos('<td', AText) = 0 then
      Exit;
    AName := CleanData(Copy(AText, 1, Pos('</td>', AText) - 1));
    Delete(AText, 1, Pos('<td', AText) + 2);
    Delete(AText, 1, Pos('>', AText));
    AValue := CleanData(Copy(AText, 1, Pos('</td>', AText) - 1));
    Result := True;
  end;

GetNextData holt aus AText jeweils zwei <td>...</td> Tags (Beschriftung, Inhalt) heraus und gibt deren Inhalt in AName und AValue zurück. Ist keine Zelle mehr vorhanden, wird False zurückgegeben.

Im Zusammenhang findet du das in diesem Projekt:
http://www.delphi-forum.de/viewtopic.php?p=557541
in Source\Units\WikipediaElement.pas

Sithlord - Mo 27.04.09 13:44

Danke dir, ich lasse die Frage erstmal offen, da ich erst wieder zuhause die Möglichkeit habe, Delphi zu starten ;)
Heut Abend teste ich es mal, ob es für meine Zwecke gebrauchbar ist.

So wie ich das aber jetzt sehe wird es bestimmt perfekt funktionieren ;)

Mfg Kalle

---Moderiert von Narses: Beiträge zusammengefasst---

Mhh, so ganz ist es noch nciht das, wie ich dachte...

immerhin liest er den code aus, und schickt ihn durch deinen Code.
Es kommt aber nicht das richtige heraus.
Vl. bin ich zu blöd bei Getnextdata(); das richtige reinzutun.
Mein String ist "datei".

Es sollen die ungelesenen Beiträge von pcfreunde.de ausgelesen werden.
Da ich aber als quellcode die ganze seite mit der tabelle habe und nicht
nur die tabelle, die ich benötige, stellt mich das vor einem noch größeren
problem.

Ich habe hoffentlich den quellcode der ganzen Tabelle angehängt ;)

Dude566 - Mo 27.04.09 17:19

jaenicke hat folgendes geschrieben :

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

  // Entfernt alle Tags aus AText
  function CleanData(AText: String): String;
  begin
    Result := AText;
    while Pos('<', Result) > 0 do
      Delete(Result, Pos('<', Result), Pos('>', Result) - Pos('<', Result) + 1);
  end;

  // Sucht das nächste Tabellenzellen-Tag und extrahiert dessen Inhalt
  function GetNextData(var AText, AName, AValue: String): Boolean;
  begin
    Result := False;
    if Pos('<td', AText) = 0 then
      Exit;
    Delete(AText, 1, Pos('<td', AText) + 2);
    Delete(AText, 1, Pos('>', AText));
    if Pos('<td', AText) = 0 then
      Exit;
    AName := CleanData(Copy(AText, 1, Pos('</td>', AText) - 1));
    Delete(AText, 1, Pos('<td', AText) + 2);
    Delete(AText, 1, Pos('>', AText));
    AValue := CleanData(Copy(AText, 1, Pos('</td>', AText) - 1));
    Result := True;
  end;

Könntest du bitte deinen Quelltext genau kommentieren, möchte auch soetwas verwenden um Bilderlinks herauszufinden.

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!