如何生成treat and period ?

shiyiming

data:
sb     seq
1      acbd
2      dacb
3      cadb
4      abcd
5      bcad
6      abcd
How to generate another two variables from seq?
for example:  seq:acbd
treat should be: a  c  b d
period should be:1 2  3  4
perod is always 1 2 3  4, but treat should be different according different seq.
我想到的办法有点笨，不知道大家有没有好的方法。 多谢啦！

shiyiming

不知道这个方法是否合你胃口:
[code:22o72gg7]data result;
        length sb 8 seq $4 treat $1 period 8;
        infile cards;
        input sb seq;
        do period=1 to 4;
                treat=substr(seq,period,1);
                output;
        end;
        cards;
        1 acbd
        2 dacb
        3 cadb
        4 abcd
        5 bcad
        6 abcd
        ;
run;
[/code:22o72gg7]