Function changeStringcode(tochange As String,Removevalue As String, newvalue As String) As String
Dim leftpart As String
Dim rightpart As String
Dim PosOfChange As Integer
PosOfChange = Instr(tochange, Removevalue)
While PosOfChange > 0
Leftpart = Left$(toChange,posofchange-1)
rightpart = Right$(tochange,Len(tochange)-(Len(leftpart) +Len(removevalue)))
tochange = Leftpart + newvalue + Rightpart
PosOfChange = Instr(tochange, Removevalue)
Wend
changestringcode = tochange
End Function
Ersetzt jedes definierte Zeichen in einem String durch ein anderes definiertes Zeichen
Thomas
