Stringliste nach Zeichen trennen und auslesen

[mkinzler]

Beginn mit Pos()/PosEx() suchen und dann ab Findeposition plus Trennerlänge weitersuchen

[Popov]

Vielleicht kannst du damit etwas anfangen, Anregungen holen, es eventuell anpassen:

Delphi-Quellcode:

function DelimTextToCommaText(sText: String; sDel: String): String;
begin
  with TStringList.Create do try
    while Length(sText) <> 0 do begin
      if Pos(sDel, sText) = 0 then sText := sText + sDel;
      Add(Trim(Copy(sText, 1, Pos(sDel, sText) - 1)));
      System.Delete(sText, 1, Pos(sDel, sText) + Length(sDel) - 1);
    end;
    Result := CommaText;
  finally Free end;
end; {Popov}

procedure TForm1.Button1Click(Sender: TObject);
var
  Text, Del: String;
begin
  Text := '254#*-#24#*-#250#*-#138#*-#186#*-#162#*-#190#*-#128';
  Del := '#*-#';
  ListBox1.Items.CommaText := DelimTextToCommaText(Text, Del);
end;

Es ist zwar nicht ganz das was du suchst, geschrieben habe ich es mal, weil es bei D3 TStringList kein DelimiterText gab. Zufällig zerlegt es einen String mit jedem Trennbegriff.

[p80286]

Wie wäre es mit sortieren,
Zeilen die nicht mit *SIGNAL* beginnen löschen,
aus dem Rest *Signal* löschen,
fettig.

nicht elegant aber einfach.

Gruß
K-H