Einzelnen Beitrag anzeigen

EarthQuaker

Registriert seit: 14. Apr 2007
Ort: Pirna
50 Beiträge
 
Delphi 7 Enterprise
 
#11

AW: StringReplace mehrfach

  Alt 27. Mär 2012, 14:17
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
  Mit Zitat antworten Zitat