Mid() ersetzt nicht richtig
13.08.2004 11:25:17
Pascal
ich habe mir mit der Mid() Funktion eine eigene Funktion geschrieben, welche ein Suchwort in einem Text ersetzt. Aber es kommt immer nur Mist raus.
Hier erstmal die Funktion selber:
'StrReplace()
'------------------------------------------------------------------------
'String StrReplace ( String SuchText, String Suchwort, _
' String Replacement )
'
'Ersetzt ein Wort (Suchwort) durch ein anderes (Replacement)
'in einem Text (SuchText).
'------------------------------------------------------------------------
Function StrReplace(ByVal SuchText As String, _
ByVal SuchWort As String, _
ByVal Replacement As String)
If SuchText <> "" Then
If InStr(1, SuchText, SuchWort) <> 0 Then
Mid(SuchText, InStr(1, SuchText, SuchWort), Len(SuchWort)) _
= Replacement
End If
End If
StrReplace = SuchText
End Function
Rufe ich die funktion nun so auf:
Debug.Print StrReplace("Bla Bla Blubber Bla Bla", "Blubber", "ABC")
sollte eigentlich das rauskommen: "Bla Bla ABC Bla Bla"
Aber es kommt das raus: "Bla Bla ABCbber Bla Bla"
Woran liegt das?