Zeichen in einen String loeschen

[lucius]

Hallo habe folgendes Problem.
Ich habe einen string

Delphi-Quellcode:

s := sectionid=15">SVCD

Jetzt moechte ich das nur SVCD in einer Listbox eingetragen wird, hat jemand ne Idee?
Bitte helft mir.

[Luckie]

Such mit pos das ">" und kopiere den rest mit copy

[Ultimator]

Delphi-Quellcode:

SVCDString := copy(GanzerString, pos('SVCD', GanzerString), 4);

Das müsste eigentlich das SVCD aus dem String rauskopieren.

Oder wenn das SVCD nur ein Beispiel war, und stattdessen dort auch DVD oder VCD oder sowas stehen kann, dann musst du eben mit pos nach dem "Größer-als"-Zeichen suchen, und von dort an kopieren (copy).

Fällt mir jetz ein, dass es das vermutlich eher ist, weil wenn du IMMER SVCD kopieren willst, wäre das schwachsinnig, dann könntest du gleich SVDCString := 'SVCD' schreiben :stupid:

[lucius]

Danke erstmal fuer eure Antworten aber der String koennte auch sectionid=16">DVD oder sectionid=18">Progs heissen.
Das suchen mit Pos nach > ergibt keinen Sinn weil in dem text lauter > stehen und ich shon mit Pos nach sectioid suche.

Delphi-Quellcode:

if Pos('sectionid', Richedit1.Lines.Strings[b]) > 0 then

Da kommt dan der String sectionid=16">DVD raus wobei ich DVD zb rausnemen moechte.

[Ultimator]

Steht das DVD oder SVCD immer am Ende des Strings?
Dann geh doch einfach in einer Schleife den String von hinten an durch, schau, wann das erste mal ein '>' auftritt, und speichere in einer Variablen, der wievielte Schleifendurchlauf das war. Dann kopierst du alles von (Length(GanzerString)-Durchlaufzaehler{evtl. noch -1}) bis length(string)-1. Jetz müsstest du das SVCD oder DVD oder wasauchimmer gefunden haben.

[lucius]

Hoert sich ja gut an Ultimator aber kansst mir nen bischen mit code auf dem Weg helfen, waere sehr net danke im voraus.

[Ultimator]

Delphi-Quellcode:

const str = 'sectionid=15">SVCD'; //muss ja kein const sein, kannst das auch in ne Funktion packen und den string als Parameter übergeben
var i, found: integer;
ergebnis: string;
...
for i := length(str) downto 1 do
  begin
   if str[length(str) - i] = '>' then
    begin
     found := length(str) - i;
     ergebnis := copy(str, found +1, length(str)- found);
     ShowMessage(ergebnis);
     break;
    end;
  end;

[marabu]

Hallo lucius,

ich hatte dir in deinem anderen thread bereits geschrieben, dass du wahrscheinlich besser mit einem Parser arbeitest um dein Problem zu lösen. Du hast dir daraufhin ja auch einige threads zum Thema Parser angesehen. Willst du diesen Ansatz auf jeden Fall vermeiden? Falls deine XML Datei nicht streng geheim ist, könntest du sie hier einstellen und wir könnten dir ein wenig Code geben mit dem du dich beschäftigen könntest um diese Technik zu erlernen.

Freundliche Grüße vom marabu