Dies ist eine alte Version des Dokuments!


ReplStr

Diese Funktion wird nicht mehr benötigt, da Nettalk schon seid längerer Zeit den internen Befehl Repalce 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