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