Memo Box Content kürzen

[-187-]

Moiin :D

Ich lese in meine Memo Box folgenden Content ein:

a.b.c.d.e - f.g.h.i.j.k Navigation Complete
a.3.c.7.5.f - 6.1.i.4.k Status Complete

usw also immer verschiedene Inhalte.

Jetz möchste ich das ich nur noch folgendes stehen habe:

a.b.c.d.e - f.g.h.i.j.k
a.3.c.7.5.f - 6.1.i.4.k


Also " Navigation Complete" und " Status Complete" sollen praktisch rausgelöscht werden.

Ich habe aber noch keine Ahnung wie ich das machen soll weil sie der Content immer ändert.

MFG -187-

[Hador]

Ansätze die du ggf. nutzen könntest:
a) Wiederholt sich Navigation Complete, Status Comlete ? dann könntest du einfach ein "Wörterbuch" erstellen und alle Wörter, die darin vorhanden sind herausfiltern.
b) es sieht so aus als folgte das, was du löschen willst immer nach dem dritten Leerzeichn. Alternativ kannst du den Inhalt bis zum dritten Leerzeichen auch extrahieren

[-187-]

b) es sieht so aus als folgte das, was du löschen willst immer nach dem dritten Leerzeichn. Alternativ kannst du den Inhalt bis zum dritten Leerzeichen auch extrahieren

das hört sich nice an, aber ich habe keine ahnung wie ich das anstellen sollen :)

vllt ein paar tipps ?

dankee !

[marabu]

Guten Morgen.

Wenn die Beobachtung von Lars korrekt ist, dann hilft dir vielleicht das hier weiter:

Delphi-Quellcode:

function After(const subStr, s: String; occurence: Integer = 1): String;
var
  index: Integer;
begin
  index := 1;
  while (occurence > 0) and (index > 0) do
  begin
    index := {StrUtils.}PosEx(subStr, s, index);
    if index > 0 then Inc(index, Length(subStr));
    Dec(occurence);
  end;
  if index = 0
    then Result := ''
    else Result := Copy(s, index, MaxInt);
end;

function Before(const subStr, s: String; occurence: Integer = 1): String;
var
  index: Integer;
begin
  index := 1;
  while (occurence > 0) and (index > 0) do
  begin
    index := {StrUtils.}PosEx(subStr, s, index);
    if index > 0 then Inc(index, Length(subStr));
    Dec(occurence);
  end;
  Result := s;
  if index > 0 then
    SetLength(Result, index - Length(subStr));
end;

Grüße vom marabu

[Mavarik]

Zitat:

Zitat von -187-

a.b.c.d.e - f.g.h.i.j.k Navigation Complete
a.3.c.7.5.f - 6.1.i.4.k Status Complete

MFG -187-

Gibt es nur die 2 Texte hinter Deinen Inhalten?

Dann würde ich einfach ein Stringreplace empfehlen!

mfg Frank