●●●●TCL/TKなら俺に聞け 2●●●●

[0437 デフォルトの名無しさん 2009/02/28(土) 17:29:42]

set data {"abcde","fghi","jkl","mno"}
puts [string trim [lindex [split $data ,] 2] \"]