Re: Mihin kysymykseen vastattu myönteisesti

[vastaus aiempaan viestiin]

Ei niin  elegantti ratkaisu kuin Kimmolla, mutta
näinkin voisi tehdä:

Käytetään pohjana Kimmon esimerkkiä
*
*DATA A
*Hlö     X1 X2 X3 X4 X5 X6
*sdgsg   -  1  1  1  -  1
*sfgsfg  1  -  1  -  -  1
*qweqwe  1  1  -  1  1  1
*c67887  -  1  -  1  -  1
*k46764  -  -  -  -  -  -
*l45456  1  1  1  1  1  1
*
*FILE COPY A TO LIFE
*FILE SHOW LIFE / tämä kai vastaa jotenkin tilannettasi?
*.................
* tämäkin on vielä samaa
*TRANSFORM LIFE BY if(X=MISSING)then(0)else(X) / VARS=ALL,-Hlö
*
*..................
*Mutta sitten lähtisin viemään tietoa yhteen muuttujaan, joka
*kuvaa kysymyksen numeroa
*
*/ACTIVATE  x
*
xFILE DEL LIFE2
*
xVAR X:1=X1 TO LIFE    /  SELECT=ALL  ALL=ORDER,1,9999999999
xFILE COPY LIFE LIFE2  /  VARS=Hlö,X
*FILE SHOW LIFE2
xVAR KYS:2=1 TO LIFE2
*......................
xVAR X:1=X2 TO LIFE    /  SELECT=ALL  ALL=ORDER,1,9999999999
xFILE COPY LIFE LIFE2  /   VARS=Hlö,X
xVAR KYS=2 TO LIFE2  /  SELECT=!ON    ON=KYS,1,400
*.....................
xVAR X:1=X3 TO LIFE    /  SELECT=ALL  ALL=ORDER,1,9999999999
xFILE COPY LIFE LIFE2  /   VARS=Hlö,X
xVAR KYS=3 TO LIFE2  /  SELECT=!ON    ON=KYS,1,400
*.....................
xVAR X:1=X4 TO LIFE    /  SELECT=ALL  ALL=ORDER,1,9999999999
xFILE COPY LIFE LIFE2  /   VARS=Hlö,X
xVAR KYS=4 TO LIFE2  /  SELECT=!ON    ON=KYS,1,400
*.....................
51 xVAR X:1=X5 TO LIFE    /  SELECT=ALL  ALL=ORDER,1,9999999999
52 xFILE COPY LIFE LIFE2  /   VARS=Hlö,X
53 xVAR KYS=5 TO LIFE2  /  SELECT=!ON    ON=KYS,1,400
54 *.....................
55 xVAR X:1=X6 TO LIFE    /  SELECT=ALL  ALL=ORDER,1,9999999999
56 xFILE COPY LIFE LIFE2  /   VARS=Hlö,X
57 xVAR KYS=6 TO LIFE2  /  SELECT=!ON    ON=KYS,1,400
58 *.....................
59 *    .
60 *    .
61 *    .
62 *    .
63 *  tällaista ketjua jatkaisin muuttujien määrän mukaan
64 *  (tai tekisin sukron toistamaan ko-käskyjä)
65 *
66 *
67 *Lopputulos olisi kuitenkin tällainen:
68 *
69 *
70 *FILE SHOW LIFE2
71 *FILE LOAD LIFE2  /  SELECT=H*KYLLÄ   H=Hlö:sdgsg  KYLLÄ=X,1
72 *DATA LIFE2*,A,B,C
73 C Hlö      X    KYS
74 A sdgsg    1      2
75 * sdgsg    1      3
76 * sdgsg    1      4
77 B sdgsg    1      6
78 *

terv JVa

Luettelo keskustelunaiheista

Survo-keskustelupalstan (2001-2013) viestit arkistoitiin aika ajoin sukrolla, joka automaattisesti rakensi viesteistä (yli 1600 kpl) HTML-muotoisen sivukokonaisuuden. Vuoden 2013 alusta Survo-keskustelua on jatkettu entistäkin aktiivisemmin osoitteessa forum.survo.fi. Tervetuloa mukaan!