Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen gezeigt.

Link zu dieser Vergleichsansicht

nettalk:scripting:colorwords [2006/03/09 16:12]
192.168.0.50
nettalk:scripting:colorwords [2007/03/18 18:15] (aktuell)
mirici
Zeile 14: Zeile 14:
     TxtLen=TxtLen+Len(OneWord)+1     TxtLen=TxtLen+Len(OneWord)+1
     If InStr(1, MyWords, " "​+lCase(OneWord)+"​ "​)>​0 Then     If InStr(1, MyWords, " "​+lCase(OneWord)+"​ "​)>​0 Then
-      OutText=OutText+ Chr(3)+"​7 "+OneWord+Chr(3)+      OutText=OutText+ Chr(3)+"​7 " ​OneWord ​Chr(3)
     Else     Else
-      OutText=OutText+" "+OneWord+      OutText=OutText ​" " ​OneWord
     End if     End if
   Loop Until TxtLen > Len(Text)   Loop Until TxtLen > Len(Text)

Eigene Werkzeuge