StringReplace mehrfach

**EarthQuaker**

Liebe User,

habe nochmal eine frage an euch, welches diesmal ein StringReplace betrifft oder um es genau zu sagen ein MultiStringReplace. Dazu folgendes Problem.

Ich möchte wie bereits gesagt ein StringReplace machen worin dies ersetzt werden soll

(?<=^|[[:punct:][:space:]])1mal(?=[[:punct:][:space:]]|$)

d.h. es muss "(?<=^|[[:punct:][:space:]])" vor dem "1mal" und "(?=[[:punct:][:space:]]|$)" nach dem "1mal" durch z.b. ein "+" ersetzt werden.

Dazu mein Ansatz:

markieren

Code:

List.DelimitedText := StringReplace(Quelle[i], ' ', #255, [rfReplaceAll]);

wie kann ich dies nun Realisieren?

Mit freundlichen Grüßen

**CCRDude**

Erkläre deinen Ansatz doch mal

**s.h.a.r.k**

Redest du nun eigentlich regulären Ausdrücken?

Wenn ja, dann geht das mit Delphi 7 und StringReplace nicht. Du brauchst entsprechende Klassen dafür.

**DeddyH**

Mit StringReplace wirst Du beide Patterns einzeln ersetzen müssen.

**s.h.a.r.k**

Zitat von DeddyH:

Mit StringReplace wirst Du beide Patterns einzeln ersetzen müssen.

Achso... es geht wahrlich um ein normales StringReplace... Nun ja, kapsel die Methode doch?!

PS: In

dieser Unit ist glaub das was du haben willst. Zudem ist diese schneller als StringReplace, soweit ich das noch weiß.

**EarthQuaker**

Hallo, danke erstmal für eure Antworten,

derzeit habe ich mit

markieren

Code:

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

den Anfang entfernen können, jedoch fehlt jetzt der Rest

MfG

**DeddyH**

Und wo ist jetzt das Problem? Das gleiche nochmal mit dem anderen String, das kann doch nicht so schwer sein.

**EarthQuaker**

HeHe

Also:

markieren

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.

markieren

Delphi-Quellcode:

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

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

List.DelimitedText := s;

StringReplace mehrfach

StringReplace mehrfach

AW: StringReplace mehrfach

AW: StringReplace mehrfach

AW: StringReplace mehrfach

AW: StringReplace mehrfach

AW: StringReplace mehrfach

AW: StringReplace mehrfach

AW: StringReplace mehrfach

AW: StringReplace mehrfach

AW: StringReplace mehrfach

Forumregeln

CCRDude Registriert seit: 9. Jun 2011 675 Beiträge FreePascal / Lazarus	#2 AW: StringReplace mehrfach 27. Mär 2012, 13:12 Erkläre deinen Ansatz doch mal
	Zitat

s.h.a.r.k Registriert seit: 26. Mai 2004 3.159 Beiträge	#3 AW: StringReplace mehrfach 27. Mär 2012, 13:13 Redest du nun eigentlich regulären Ausdrücken? Wenn ja, dann geht das mit Delphi 7 und StringReplace nicht. Du brauchst entsprechende Klassen dafür. »Remember, the future maintainer is the person you should be writing code for, not the compiler.« (Nick Hodges)
	Zitat

DeddyH Registriert seit: 17. Sep 2006 Ort: Barchfeld 27.542 Beiträge Delphi 11 Alexandria	#4 AW: StringReplace mehrfach 27. Mär 2012, 13:14 Mit StringReplace wirst Du beide Patterns einzeln ersetzen müssen. Detlef *"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen."* (Albert Einstein) Dieser Tag ist längst gekommen
	Zitat

EarthQuaker Registriert seit: 14. Apr 2007 Ort: Pirna 50 Beiträge Delphi 7 Enterprise	#6 AW: StringReplace mehrfach 27. Mär 2012, 13:38 Hallo, danke erstmal für eure Antworten, derzeit habe ich mit markieren Code: MWKStringReplace.StringReplace(Quelle[i], '(?<=^\|[[:punct:][:space:]])', '', [rfReplaceAll]); den Anfang entfernen können, jedoch fehlt jetzt der Rest MfG
	Zitat

DeddyH Registriert seit: 17. Sep 2006 Ort: Barchfeld 27.542 Beiträge Delphi 11 Alexandria	#7 AW: StringReplace mehrfach 27. Mär 2012, 13:42 Und wo ist jetzt das Problem? Das gleiche nochmal mit dem anderen String, das kann doch nicht so schwer sein. Detlef *"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen."* (Albert Einstein) Dieser Tag ist längst gekommen
	Zitat

Uwe Raabe Registriert seit: 20. Jan 2006 Ort: Lübbecke 11.014 Beiträge Delphi 12 Athens	#9 AW: StringReplace mehrfach 27. Mär 2012, 13:53 List.DelimitedText := MWKStringReplace.StringReplace(MWKStringReplace.StringReplace(Quelle[i], '(?<=^\|[[:punct:][:space:]])', '', [rfReplaceAll]), '(?=[[:punct:][:space:]]\|$)', '', [rfReplaceAll]); Uwe Raabe Certified Delphi Master Developer Embarcadero MVP Blog: The Art of Delphi Programming
	Zitat