Dies ist eine alte Version des Dokuments!


ReplStr

Function ReplStr(Text, Str1, Str2)
  StrOut=""
  i=1-len(Str1)
  do
    i2=i
    i=instr(i+len(Str1), Text, Str1)
    echo i, i2, "-", i2+len(Str1),i-i2-len(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
  Repl=StrOut
End Function

Eigene Werkzeuge