StringReplace mehrfach

[EarthQuaker]

HeHe


Also:

Code:

List.DelimitedText := MWKStringReplace.StringReplace(Quelle[i], '(?<=^|[[:punct:][:space:]])', '', [rfReplaceAll]);
List.DelimitedText := MWKStringReplace.StringReplace(Quelle[i], '(?=[[:punct:][:space:]]|$)', '', [rfReplaceAll]);
            if List.Count > 0 then
              Ziel1.Add(StringReplace(List[0], #255, ' ', [rfReplaceAll]));
            if List.Count > 1 then

Klappt schonmal nicht... da nimmt er nur des Letztere das ist das Doofe



MfG

[Uwe Raabe]

List.DelimitedText := MWKStringReplace.StringReplace(MWKStringReplace.StringReplace(Quelle[i], '(?<=^|[[:punct:][:space:]])', '', [rfReplaceAll]), '(?=[[:punct:][:space:]]|$)', '', [rfReplaceAll]);

[DeddyH]

Natürlich, weil DelimitedText den kompletten Text ersetzt. Du brauchst eine Zwischenvariable, wenn das einigermaßen lesbar bleiben soll.

Delphi-Quellcode:

s := StringReplace(s, ...);
s := StringReplace(s, ...);
List.DelimitedText := s;

[EarthQuaker]

Danke euch... wie man so schön sagt sieht man den Wald vor lauter bäumen nicht

Code:

var
  S1, S2, S3: String;
begin

  S1 := '(?<=^|[[:punct:][:space:]])';
  S2 := '(?=[[:punct:][:space:]]|$)';
  S3 := '(?<=^|[[:punct:][:space:][:digit:]])';

List.DelimitedText := MWKStringReplace.StringReplace(MWKStringReplace.StringReplace(MWKStringReplace.StringReplace(Quelle[i], S1, ' ', [rfReplaceAll]), S2, ' ', [rfReplaceAll]), S3, ' ', [rfReplaceAll]);

Habs nun so gelöst

nun muss ich jedoch schauen das der bösewicht nicht die Leerzeihen mit wegknallt

Danke euch Trotzdem


Mit freundlichen Grüßen