From: Uwe Klein on 26 Jun 2010 09:21 Sooraj S wrote: > Hi Klein, > > Thanks for your help .... it worked... > > i got it in another way also... do tell me if the code looks junk... > > set len [string length $version] > for {set i 0} {$i < $len} {incr i} { > set s [string index $version $i] > append version_dot $s > puts "\nCheck$i : $version_dot" > if {$i <= $len-1} { > append version_dot "." > } > } > puts "Version : $version_dot" you are effectively writing "c" code in tcl. But tcl is not c. uwe |