Eine Liste der Schlüsselwörter festlegen.
Delphi-Quellcode:
const
MeineSchluesselwortliste: array [1..5] of string =('BELEMMER025','GESCEICH026','UNTEEICH027','LIEFMMER029','KUNDMMER032');
In dem String mit pos nach den Schlüsselwörtern suchen und
vor den schlüsselwörtern in den String ein #13#10 einfügen. Danach in eine TStringlist einlesen.
Delphi-Quellcode:
var
a:integer;
x:integer;
....
for x:=1 to 5 do
begin
a:=Pos(MeineSchluesselwortliste[x],DerDatenstring);
if a>0 then
insert(#13+#10,DerDatenstring,a);
end;
MeineStringliste.text:=derDatenstring;
Dann nacheinander mit
MeineStringliste.IndexOfName die Werte herauspicken.
(Einfach runtergeschrieben. Nicht getestet.)
Gerd