die Funktion :
Function ReplaceSubstring(iSource As String, iSearch As String, iReplace As String) As String
'Function ersetzt in einem vorgegebenen String eine Zeichenfolge durch eine andere
'Eingabe-Parameter: Eingabe-String, zu ersetzender Zeichenfolge, Ersatz-Zeichenfolge
'Ausgabe-Parameter: Eingabestring mit ersetzten Zeichenfolgen
Dim xStartPos As Integer
Dim xEndPos As Integer
Dim xLeftPart As String
Dim xRightPart As String
xEndPos = 1
Do While Not Instr(xEndPos, iSource, iSearch) = 0
xStartPos = Instr(xEndPos, iSource, iSearch)
xEndPos = (xStartPos + Len(iSearch)) -1
xLeftPart = Left(iSource, xStartPos -1)
xRightPart = Right(iSource, Len(iSource) - xEndPos)
iSource = xLeftPart & iReplace & xRightPart
xEndPos = Len(xLeftPart & iReplace)
If xEndPos = 0 Then Goto ExitLoop
Loop
ExitLoop:
ReplaceSubstring = iSource
End Function
diese kannst Du in Deinen Agenten einbinden.
