Code:

set test "Hello to all"set list "hello test all"puts stdout "1: $[lindex $list 1]"puts stdout "2: [subst $[lindex $list 1]]"

Code:

proc pub:quote { nick uhost handle channel arg } {  global IGwords  set arg [string trimleft $arg !]  set cmd [lindex [split $arg] 0]  foreach _IG $IGwords {    if {[string equal -nocase $_IG $cmd]} { return }  }  if {[llength $arg]==0} {    putserv "NOTICE $nick : 0,2 please type \002!news\002 for options "    return  }  set stock [string toupper [lindex $arg 0]]  set query "http://finance.yahoo.com/d/quotes.csv?s=$stock&f=st5l9c6p4mv&e=.csv"  set token [http::geturl $query]  set all [http::data $token]  regsub -all \" $all "" all  set all [split $all ","]  # rounding code here  set num [lindex $all 3]  set num [expr round(100*$num)/100.0]  if {$num >= 0} {    set num "+$num"  }  set test [string map [list + \00309+ - \00304-] $num]  set test2 [string map [list + \00309+ - \00304-] [lindex $all 4]]  if {[lindex $all 2]!="0.00"} {    putserv "PRIVMSG $channel :\0037» [lindex $all 0]:\003 [lindex $all 2] $test ($test2)\003 [lindex $all 1] USET \0037 Low-High:\003 [lindex $all 5] \0037 Volume:\003 [lindex $all 6]"  } else {    putserv "PRIVMSG $channel :\002 [lindex $all 0]\002 symbol not found"  }}

Code:

switch -exact -- [lindex [info args pub:quote] 4] {  "trigger1" {do this}  "trigger2" {do this}  ....etc}

Code:

set num [lindex $all 3]set num [expr round(100*$num)/100.0]if {$num >= 0} {  set num "+$num"}

Code:

set round [join "[lindex [split $test .] 0] [string range [lindex [split $test .] 1] 0 1]" .]