TCL: String in Zeichen zerteilen

[zZ-mAydaY]

Hi,
ich habe eine String $word und würde gern mit einer while-schleife prüfen ob $zeichen in $word enthalten ist...

Leider fällt mir im moment kein befehl ein um einen String in einzelne Zeichen zu zerlegen, außer "string range" und dafür brauche ich die Anzahl der Zeichen in $word.
Nur wie bekomme ich die Anzahl der Zeichen in $word raus?
[EDIT] gemeint ist die Anzahl aller Zeichen in $word [/EDIT]


gruß mAy

 

[stylus]

Hi,

set splitt [split $word {}] ;# zerlegt String in einzelne Zeichen
set anz [llength $splitt] ;# Anzahl Zeichen in splitt

Hope it helps

Bye