Bestimmten Teil aus dem Quelltext auslesen

[SUIW]

Sers,

wie kann ich denn einen bestimmten Teil aus einem Quelltext auslesen, der sich ab und an ändert?
Zum Beispiel eine Zeile wie folgende:

- Du hast bereits 12 Tassen zerstört -

Dieser Text soll als Label angezeigt, aber die Zahl steigt ja auch irgendwann, wie kann man so etwas realisieren?

[mkinzler]

Meinst wirklich Quelltext?

[hoika]

Hallo,

definiere eine
Formular-Variable oder in einer eigenen Klasse (?)

 iCups: Integer;
zur Anzeige

Delphi-Quellcode:

procedure TFormX.SetCupsLabel;
var
  sCups: String;
begin
  sCups:= Format('Du hast bereits %d Tassen zerstört', [iCups]);
  Label_Cups.Caption:= sCups;
end;

Heiko

[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!

[DeddyH]

Kleiner Verbesserungsvorschlag für die Funktion:

Delphi-Quellcode:

function GetTxt(const s1,s2,txt:String):String;
var iPos: integer;
begin
  Result := txt;
  iPos := Pos(s1,Result);
  if iPos > 0 then
    Delete(Result,iPos,Length(s1));
  iPos := Pos(s2,Result);
  if iPos > 0 then
    Delete(Result,iPos,Length(s2));
end;

[Luckie]

Ich rate einfach mal ins blaue, weil uns mal wieder die Hälfte verschwiegen wird: Es handelt sich um eine fremde Anwendung und irgendwelche Spielstände sollen verändert werden, während das Spiel läuft.

[hoika]

Naaaa Luckie,

es ist Sonntag, Doro (Pesch) schallt durch Zimmer,
nich immer was böse Denken


Heiko

[Medium]

Ich glaube ja eher, dass er einen Text in seinem eigenen Programm ausgeben will, der dynamische Teile hat.

In dem Fall wäre wieder ein Hinweis auf die vielen guten Grundlagentutorials fällig

[SUIW]

Hallo,

vielen lieben dank! Funktioniert wunderbar!

[mkinzler]

Wie hast du es jetzt gemacht?