Herauslösen eines Strings im string

[Popov]

Wo steht das, dass Properties sein müssen?

Sicher, man kann das schöner und besser machen, aber für diese Aufgabe reicht es.

[DayDreamer87]

Bin mir jetzt zwar nicht ganz sicher obs passt, liest sich aber so^^

Ein Bekannter hat mir vor einiger Zeit mal eine kleine Funktion geschrieben, die genau das tut was sie tut.

Delphi-Quellcode:

function getTextBetweenStrings(const source, startStr, endStr: String;
  var offset: integer; includeSubstrings: Boolean = False): String;
var
  startIndex, endIndex: integer;
begin
  startIndex := PosEx(startStr, source, offset);
  offset := startIndex + 1;

  if (startIndex > 0) then
  begin
    startIndex := startIndex + Length(startStr);
    endIndex := PosEx(endStr, source, startIndex) + Length(endStr);

    if not includeSubstrings then
      endIndex := endIndex - Length(endStr)
    else
      startIndex := startIndex - Length(startStr);

    Result := MidStr(source, startIndex, endIndex - startIndex);
  end
  else
    Result := '';
end;

GIbt mir persönlich immer genau das zurück, was ich gerade suche

Grüße

Day

[Ajintaro]

Hey schönen Montag euch allen,

Ich habe nun eine Lösung entwickelt, welche einen Mix aus euren Codevorschlägen darstellt. Mit unten stehendem Code kann ich

Code:

99,10,Text1=Text2

oder

Code:

99,Text1=Text2

komplett zerlegen:

Delphi-Quellcode:

procedure TForm1.b_schneidenClick(Sender: TObject);
var s,s1,s2,s3,s4:string;
zahl: double;
ipos, xpos:integer;
begin
  s := ListBox2.Items[ListBox2.ItemIndex];//markierte Zeile als Start-String
  s1 := StrToken(s, ','); // ID abtrennen
  s2 := StrToken(s, ','); // Headline abtrennen

  //Prüfen ob Headline überhaupt existiert
  if TryStrToFloat(s2, zahl) then
  begin
   //Headline ist vorhanden !
   s3 := StrToken(s, ',');
   s4 := StrToken(s3, '=');
  end
 else
  begin
   //KEINE Headline vorhanden
   s2 := '99';//fake ID setzen
   s := ListBox2.Items[ListBox2.ItemIndex];//s neu setzen, weil leer..
   
   //Dazwischen abschneiden
   iPos := Pos (',', s);
   if (iPos > 0) then
   begin
     Delete(s,1,ipos);
     //nochma schneiden
     xPos := Pos ('=', s);

     if (xPos > 0) then
     begin
       Delete(s,xpos,s.Length-1);
       e_qu.Text:=s;
     end;
   end;

   s := ListBox2.Items[ListBox2.ItemIndex];//s neu setzen, weil leer..
   s4 := StrToken(s, '=');
  end;
End;

So funktioniert es einwandfrei, obwohl da ne Menge Optimierungspotential drinsteckt
Ich danke euch !

[Lemmy]

Zitat von Ajintaro:

So funktioniert es einwandfrei, obwohl da ne Menge Optimierungspotential drinsteckt
Ich danke euch !

Du weißt gar nicht wie recht Du damit hast

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var sl: TStringlist;
begin
  sl := TStringLIst.Create;
  ExtractStrings([','],[' '], PChar(Edit1.Text), sl);

  Memo1.Text := sl.Text;
  sl.Free;
end;

Nachteil: ExtractStrings kann keine leeren Einträge erzeugen - aber wenn die Daten alle in der Art sind wie deine Beispieldaten sollte das ausreichend funktionieren...