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

[0240 デフォルトの名無しさん 2008/05/02(金) 20:11:53]

クォートをエスケすりゃいんじゃね
gets $ch line
regsub -all \" $line \\" buf
puts [lindex $buf 0]