Replace

[FireFlow]

folgendes Beispiel:

Dim String1 As String
Dim Wort1 As String
Dim Wort2 As String

String1 = "Das ist ein dummes Forum!"
Wort1 = "dummes"
Wort2 = "geniales"

Wer es nicht kapiert : In String1 soll Wort1 durch Wort2 ersetzt werden.
Sicher net schwer wenn man den Befehl weis

 

[FireFlow]

Hier:

Public Function Replace(ByVal Main_String As String, ByVal Before As String, ByVal After As String) As String

        Dim Temp1, Temp2 As Integer
        If Before = After Then Exit Function
        Temp1 = InStr(Main_String, Before)
        Temp2 = Len(Main_String) - (Len(Before) + Temp1)
        Replace = Left(Main_String, Temp1 - 1) & After & Right(Main_String, Temp2 + 1)

End Function

Das ist ein recht einfacher Code, und der geht auch nur wenn es nur 1 Element zu ersetzen gibt. Mehr gibts bei mir nicht, also brauch ich keinen anderen!

Mich würd trotzdem intressern ob es schon eine FUnktion in VB dafür gibt!