You are here

문자를 읽어들일때 우측에서 일정한 수만을 읽어들일수는 없나요

frame .fr1
pack .fr1 -fill x
label .fr1.la -text name
entry .fr1.en -textvariable VPIG(A(
pack .fr1.la .fr1.en -side left

frame .fr2
pack .fr2 -fill x
radiobutton .fr2.ra1 -text A -value 1 -variable VPIG(a(
radiobutton .fr2.ra2 -text B -value 2 -variable VPIG(a(
radiobutton .fr2.ra3 -text C -value 3 -variable VPIG(a(
pack .fr2.ra1 .fr2.ra2 .fr2.ra3 -side left

frame .fr3
pack .fr3 -fill x
radiobutton .fr3.ra1 -text 1 -value a -variable VPIG(b(
radiobutton .fr3.ra2 -text 2 -value b -variable VPIG(b(
radiobutton .fr3.ra3 -text 3 -value c -variable VPIG(b(
pack .fr3.ra1 .fr3.ra2 .fr3.ra3 -side left

button .b -text "O            K" -command {set VPIG(c( $VPIG(a($VPIG(b($VPIG(A(}
pack .b -fill x

frame .fr4
pack .fr4 -fill x
label .fr4.la -text fullname
entry .fr4.en -textvariable VPIG(c(
pack .fr4.la .fr4.en -side left

.fr1.en에 들어가는 문자를 .fr4.en에 삽입시는 우측에서 9자리까지만 읽어들여서 넣었으면 합니다.

--------------------------------------------------------------------------------------
답변 부탁드립니다.

좋은 하루되세요....^^