How to do with one question multiple choices answer
ex: (15 choices answer) or more
help
Re: help
This question was already asked, see this conversation:
http://csprousers.org/forum/viewtopic.p ... oice#p1271
http://csprousers.org/forum/viewtopic.p ... oice#p1271
Re: help
thank you
you can make this work
PROC B6
onfocus
B6_lin(1)=0;
B6_lin(2)=0;
B6_lin(3)=0;
B6_lin(4)=0;
B6_lin(5)=0;
B6_lin(6)=0;
B6_lin(7)=0;
B6_lin(8)=0;
B6_lin(9)=0;
B6_lin(10)=0;
B6_lin(11)=0;
B6_lin(12)=0;
B6_lin(13)=0;
B6_lin(14)=0;
B6_lin(15)=0;
killfocus
i=1;
WHILE i <= 15 DO
IF B6[i:1] in "1" THEN B6_lin(1)=1;
ELSEIF B6[i:1] in "2" THEN B6_lin(2)=2;
ELSEIF B6[i:1] in "3" THEN B6_lin(3)=3;
ELSEIF B6[i:1] in "4" THEN B6_lin(4)=4;
ELSEIF B6[i:1] in "5" THEN B6_lin(5)=5;
ELSEIF B6[i:1] in "6" THEN B6_lin(6)=6;
ELSEIF B6[i:1] in "7" THEN B6_lin(7)=7;
ELSEIF B6[i:1] in "8" THEN B6_lin(8)=8;
ELSEIF B6[i:1] in "9" THEN B6_lin(9)=9;
ELSEIF B6[i:1] in "10" THEN B6_lin(10)=10;
ELSEIF B6[i:1] in "11" THEN B6_lin(11)=11;
ELSEIF B6[i:1] in "12" THEN B6_lin(12)=12;
ELSEIF B6[i:1] in "13" THEN B6_lin(13)=13;
ELSEIF B6[i:1] in "14" THEN B6_lin(14)=14;
ELSEIF B6[i:1] in "15" THEN B6_lin(15)=15;
endif;
i = i + 1;
ENDDO;
B6_1=B6_lin(1);
B6_2=B6_lin(2);
B6_3=B6_lin(3);
B6_4=B6_lin(4);
B6_5=B6_lin(5);
B6_6=B6_lin(6);
B6_7=B6_lin(7);
B6_8=B6_lin(8);
B6_9=B6_lin(9);
B6_10=B6_lin(10);
B6_11=B6_lin(11);
B6_12=B6_lin(12);
B6_13=B6_lin(13);
B6_14=B6_lin(14);
B6_15=B6_lin(15);
you can make this work
PROC B6
onfocus
B6_lin(1)=0;
B6_lin(2)=0;
B6_lin(3)=0;
B6_lin(4)=0;
B6_lin(5)=0;
B6_lin(6)=0;
B6_lin(7)=0;
B6_lin(8)=0;
B6_lin(9)=0;
B6_lin(10)=0;
B6_lin(11)=0;
B6_lin(12)=0;
B6_lin(13)=0;
B6_lin(14)=0;
B6_lin(15)=0;
killfocus
i=1;
WHILE i <= 15 DO
IF B6[i:1] in "1" THEN B6_lin(1)=1;
ELSEIF B6[i:1] in "2" THEN B6_lin(2)=2;
ELSEIF B6[i:1] in "3" THEN B6_lin(3)=3;
ELSEIF B6[i:1] in "4" THEN B6_lin(4)=4;
ELSEIF B6[i:1] in "5" THEN B6_lin(5)=5;
ELSEIF B6[i:1] in "6" THEN B6_lin(6)=6;
ELSEIF B6[i:1] in "7" THEN B6_lin(7)=7;
ELSEIF B6[i:1] in "8" THEN B6_lin(8)=8;
ELSEIF B6[i:1] in "9" THEN B6_lin(9)=9;
ELSEIF B6[i:1] in "10" THEN B6_lin(10)=10;
ELSEIF B6[i:1] in "11" THEN B6_lin(11)=11;
ELSEIF B6[i:1] in "12" THEN B6_lin(12)=12;
ELSEIF B6[i:1] in "13" THEN B6_lin(13)=13;
ELSEIF B6[i:1] in "14" THEN B6_lin(14)=14;
ELSEIF B6[i:1] in "15" THEN B6_lin(15)=15;
endif;
i = i + 1;
ENDDO;
B6_1=B6_lin(1);
B6_2=B6_lin(2);
B6_3=B6_lin(3);
B6_4=B6_lin(4);
B6_5=B6_lin(5);
B6_6=B6_lin(6);
B6_7=B6_lin(7);
B6_8=B6_lin(8);
B6_9=B6_lin(9);
B6_10=B6_lin(10);
B6_11=B6_lin(11);
B6_12=B6_lin(12);
B6_13=B6_lin(13);
B6_14=B6_lin(14);
B6_15=B6_lin(15);
-
- Posts: 1801
- Joined: December 5th, 2011, 11:27 pm
- Location: Washington, DC
Re: help
Momoins,
One problem you have is that your code does not work beyond code 9. For example, B6[i:1] will always return one character, so it will never be equal to "10," "11," and so on. If you have more than 10 categories (0 - 9), you might consider using letters.
One problem you have is that your code does not work beyond code 9. For example, B6[i:1] will always return one character, so it will never be equal to "10," "11," and so on. If you have more than 10 categories (0 - 9), you might consider using letters.