bestimmtes Wort aus einem String auslesen

[ashkan19]

hallo allerseits,

Ich hab hier ein kniffliges aber einfaches Problem. Ich habe die folgende Zeile in einem Tstringlist gespeichert:

#EXTINF:-1 tvg-id="" tvg-name="" tvg-language="Hindi" tvg-logo="http://mhdtvworld.com/wp-content/uploads/2018/12/PUNJAB5AAB.jpg" tvg-country="IN" tvg-url="" group-title="",5aab TV


nun möchte ich das Wort nach tvg-language zwischen die zwei "" nämlich "Hindi" ganz einfach auslesen.

gibt es eine bestimmte Vorgehensweise dafür?

[Klaus01]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  sl: TStringList;
begin
  sl := TStringList.Create;
  try
    sl.DelimitedText := '#EXTINF:-1 tvg-id="" tvg-name="" tvg-language="Hindi" tvg-logo="http://mhdtvworld.com/wp-content/uploads/2018/12/PUNJAB5AAB.jpg" tvg-country="IN" tvg-url="" group-title="",5aab TV';
    sl.Delimiter := ' ';
    edit1.Text := sl.Values['tvg-language'];
  finally
    sl.Free;
  end;
end;

.. dann nur noch die Hochkommatas entfernen.

Grüße
Klaus

[ashkan19]

Genial, danke dir Klaus

[himitsu]

SL.StrictDelimiter unbedingt auch auf True setzen, sonst wird eventuell nicht so getrennt, wie gedacht.

[Der schöne Günther]

Wenn dir allerdings niemand schwört dass diese name="wert" -Paare in genau dieser Reihenfolge bei dir eintreffen solltest du besser mit regulären Ausdrücken arbeiten.

[himitsu]

Die Reihenfolge ist ja egal, da auf de Namen gegangen wird.

Zitat:

sl.Values['tvg-language']