Text ersetzen

[BlueStarHH]

Hat jemand eine Funktion die mir in einem String nach einem Char sucht und diesen durch einen anderen String ersetzt? Der Char soll nur ersetzt werden, wenn er nicht mehrmals genau hinereinander auftritt. Wenn er 2x hintereinader auftritt soll ein Char entfernt werden.

Beispiele
Replace(s, '|', #13#10)

Das ist ein Test|und das auch. --> Das ist ein Test#13#10und das auch.
Das ist ein Test||und das auch. --> Das ist ein Test|und das auch.
Das ist||ein Test|und das|||auch. --> Das ist|ein Test#13#10und das|#13#10auch.

[roderich]

ich glaube, diese Funktion selber zu schreiben hätte dich weniger Zeit gekostet als dein Beitrag.....

:gruebel:

Roderich

[Jasocul]

Die Funktion heißt StringReplace.
Guckst du hier auf meiner HP
Dann noch ein bisschen mit Pos und Delete basteln. Dann sollte das Problem behoben sein.

[s14]

@Jasocul
Das Problem ist wohl etwas komplexer.

Ich glaube das läuft auf Parsen hinaus. Zeichen für Zeichen durchsuchen und wenn Zeichen = | dann wenn Position + 1 ungleich | ist, das Zeichen mit #13#10 ersetzen :-)

[Khabarakh]

Ich würde das ja einfach so machen :gruebel: :

Delphi-Quellcode:

AnsiReplaceStr(s, '||', #255);  //255 als Zwischenspeicher
AnsiReplaceStr(s, '|', #10#13);
AnsiReplaceStr(s, #255, '|');

[Dax]

Oder einfach StringReplace mir [rfReplaceAll] benutzen.

[alcaeus]

Zitat:

Zitat von Dax

Oder einfach StringReplace mir [rfReplaceAll] benutzen.

Nein. Er will dass der | mit | escaped wird. also | ist ein Zeilenumbruch, || ist ein einzelnes |. Khabarakhs Loesung muesste funktionieren ;)

Greetz
alcaeus