Bestimmten Teil aus dem Quelltext auslesen

[Tommy1988]

Ich würde es per Pos und PosEx machen.

Wenn der Text "Du hast bereits X Tassen zerstört" zwischen
<div class="destroyed">Du hast bereits X Tassen zerstört</div>
ist sollte das kein Problem sein.

Z.B. so:

Delphi-Quellcode:

// NICHT getestet!
var
pPos1, pPos1Ex: Integer;
begin
pPos1 := Pos('<div class="destroyed">', DeinQuelltextString);
pPos1Ex := PosEx('</div>', DeinQuelltextString, pPos1+1);
// Jetzt ins Label:
LabelX.Caption := Copy(DeinQuelltextString pPos1+23,
(pPos1-pPos1Ex+23)*-1);
end;


// Man kann es aber auch mit folgender Funktion schöner regeln
function GetTxt(s1,s2,txt:String):String;
begin
  Delete(txt,1,Pos(s1,txt)+length(s1)-1);
  Delete(txt,Pos(s2,txt),Length(txt));
  Result := txt;
end;

// Aufruf:
LabelN.Caption := GetTxt('<div class="destroyed">','</div>', DeinQuelltextString);

Das geht aber NUR wenn es da ein Tag gibt, dass den Text "Tassen zerstört" eindeutig wiedergibt!