ReplaceString nur so und so oft mal (wie bei RemoveString) ?

[padawan]

Tausend Dank! Für PHP kann ich das Thema auch gebrauchen. Drück mich schon viel zu lange drum herum.

[ts-soft]

Nicht ganz so flexible, aber entspricht seiner Beispielaufgabe:

Code: Alles auswählen

Procedure.s ReplaceAllePunktMitLeerAusserLetztem(String.s)
  ProcedureReturn  ReplaceString(Left(String, Len(String) - Len(GetExtensionPart(String)) - 1), ".", " ") + "." + GetExtensionPart(String)
EndProcedure

Debug ReplaceAllePunktMitLeerAusserLetztem("Jeder.muss.mal.abtreten. Schade!")

[STARGÅTE]

Jojo TS, das fällt dann wohl unter legales schummeln ? ^^

[marco2007]

Nicht ganz so flexible, aber entspricht seiner Beispielaufgabe:

Da mache ich auch mit:

Code: Alles auswählen

string$="Jeder.muss.mal.abtreten. Schade!"

string$=ReverseString(string$)
string$=ReplaceString(string$, ".", " ", #PB_String_NoCase, FindString(string$, ".", 0)+1)
string$=ReverseString(string$) : Debug string$

[padawan]

Nicht ganz so flexible, aber entspricht seiner Beispielaufgabe:

Da mache ich auch mit:

Code: Alles auswählen

string$="Jeder.muss.mal.abtreten. Schade!"

string$=ReverseString(string$)
string$=ReplaceString(string$, ".", " ", #PB_String_NoCase, FindString(string$, ".", 0)+1)
string$=ReverseString(string$) : Debug string$

Ich fass es nicht auf was für geile Ideen die Leute kommen

Das ist auch super! Ich liebe diese von hinten über die Brust ins Auge Lösungen, zumal das in deinem Vorschlag mit wenig Code passiert.

[Renovatio]

Wird das hier n Contest wer am besten 3 Punkte entfernt und dabei den 4 Punkt bestehen läßt?