Text Parsen / Durchsuchen

[Detrox]

Hallo,

Ich habe ein Problem und würde mich über Hilfe sehr freuen.

In einem memo steht Quelltext folgendes Wiederholt sich :

XML-Code:

<td><span class="dodo">wert1</span></td>
mehr Quelltext
<td><span class="dodo">wert2</span></td>
mehr Quelltext
<td><span class="dodo">wert3</span></td>

usw...

Ich möchte jeweils den Wert rausfiltern. Wie kann ich vorgehen?

LG
Detrox

[Bernhard Geyer]

Lade es in TWebBrowser und gehe über das HTML-Document (MSHTML.pas) und lass dir das Table-Objekt (IHTMLTable) geben.
Doku gibts bei MS in der MSDN

[DeddyH]

Hallo und Willkommen in der DP :dp:,

Du könntest mit PosEx nach dem wiederkehrenden Teil suchen ("<td><span class="dodo">"). Dann ab der Fundstelle (plus Stringlänge) bis zur Position von "</span>" kopieren, damit dürftest Du Deinen Wert haben. Eine andere Möglichkeit wären evtl. reguläre Ausdrücke, aber damit kenne ich mich nicht aus.

[Detrox]

Den Webbrowser wollte ich eigentlich vermeiden.
ich lade die html Datei oer idhttp von den indy Komponenten.


DeddyH

Hi :)

könntest du einen Codeansatz posten mit Beschreibug würde mich freuen
LG
Detrox

[Detrox]

Wenn er einen Wert hat soll er ja weiter runter rutschen und den nächsten Suchen :)

[DeddyH]

Deshalb ja PosEx ;)

[Bernhard Geyer]

Zitat:

Zitat von DeddyH

Du könntest mit PosEx nach dem wiederkehrenden Teil suchen ("<td><span class="dodo">"). Dann ab der Fundstelle (plus Stringlänge) bis zur Position von "</span>" kopieren, damit dürftest Du Deinen Wert haben. Eine andere Möglichkeit wären evtl. reguläre Ausdrücke, aber damit kenne ich mich nicht aus.

Dann aber hoffen das keine Sonderzeichen vorhanden sind (Stichwort Codierung nach UTF8/ISO/Named Entities/...) und das nicht irgendwo anders (z.B. als Kommentar) entsprechende Elemente <td>-Elemente vorhanden sind.

[Detrox]

Ich hab jetzt mal im Forum gesucht, ich bekomme es als Anfänger ja hin das erste zu finden und dazwischen auszugeben aber das er danach mit den andern weitermach bekomm ich nich hin, hier mal mein Code:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var StringList:TStringList;
    posi:integer;
    s:string;
begin
  StringList := TStringList.Create;
  try
    StringList.Text := Memo1.text  ;
    s:=StringList.Text;
    delete(s, 1, pos('<td><span class="dodo">', s) + length('<td><span class="dodo">') - 1);
    Memo2.Text := copy(s, 1, pos('</span></td>', s) - 1);
  finally
    StringList.free;

  end;

LG
Detrox

[DeddyH]

Und so?

Delphi-Quellcode:

function FilterText(const Source, TagStart, TagEnd: string): string;
var StartPos, EndPos: integer;
    Buffer: TStringList;
begin
  Buffer := TStringList.Create;
  try
    StartPos := PosEx(TagStart,Source);
    while StartPos > 0 do
      begin
        inc(StartPos,Length(TagStart));
        EndPos := PosEx(TagEnd,Source,StartPos);
        Buffer.Add(Copy(Source,StartPos,EndPos - StartPos));
        StartPos := PosEx(TagStart,Source,EndPos + Length(TagEnd));
      end;
    Result := Buffer.Text;
  finally
    Buffer.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Text := FilterText(Memo1.Text,'<span class="dodo">','</span>');
end;

Aber wie Bernhard schon meinte, Kommentare und dergleichen werden dabei nicht berücksichtigt.

[Detrox]

Toll...


Riesen Dank das funktioniert Super, wenn ich jetzt noch jeden Wert in einer Listbox hätte wäre das die Krönung, aber ich möchte ja nicht unverschämt werden :stupid:

LG
Detrox

[DeddyH]

Alle Werte in einer ListBox oder eine ListBox pro Wert? Ersteres ist nicht so schwer.

[Detrox]

Ja Pro wert .. hab auch gerade überlegt das würde so nicht gehn weil wir ja alles aufeinmal ausgeben :roll:

LG
Detrox

[Chris.R]

Hallo,

alle Werte in eine Listbox kriegst du so:

Delphi-Quellcode:

ListBox1.Items.Text := FilterText(Memo1.Text,'<span class="dodo">','</span>');

[edit] War wohl doch nicht das was du wolltest

Ciao Chris

[Detrox]

Ich hab eine Idee, kann ich nicht Zeile für Zeile des Memos in die Listbox übertragen?

[DeddyH]

Was willst Du denn erreichen? Alle Funde in einer Listbox darstellen? Dann hat Chris doch bereits gezeigt, wie das geht.

[Detrox]

Nein das funktioniert nicht, da wird garnix angezeigt, jedes Listbox Item soll den Wert haben also Listboxitem1 : wert1 usw...

[DeddyH]

Dann musst Du etwas falsch machen, bei mir funktioniert das einwandfrei.

[toms]

Zitat:

Zitat von Detrox

Nein das funktioniert nicht, da wird garnix angezeigt, jedes Listbox Item soll den Wert haben also Listboxitem1 : wert1 usw...

Der Code von Chris R. macht ja genau das.

[alzaimar]

XML geht nicht? :gruebel: (IXMLDocument und so?)