ReplStr

Diese Funktion wird nicht mehr benötigt, da Nettalk schon seid längerer Zeit den internen Befehl Replace kennt, der auch wesentlich schneller ist.

Function ReplStr(Text, Str1, Str2)
  StrOut=""
  i=1-len(Str1)
  do
    i2=i
    i=instr(i+len(Str1), Text, Str1)
    if i = 0 Then
      StrOut=StrOut+Mid(Text, i2+len(Str1))
    else
      if i2 > 0 Then
        StrOut=StrOut+Mid(Text, i2+len(Str1),i-i2-len(Str1))+Str2
      else
        StrOut=StrOut+Str2
      End if
    End if
  loop until i = 0
  ReplStr=StrOut
End Function

Eigene Werkzeuge