请教一个字符型变量的问题

shiyiming

10181800058-2        7.46
10181800059-0        5.98
10181800059-2        7.9
10181800060-0        5.15
10181800060-2        5.29
10181800061-0        8.89
10181800061-2        20.34
10181800062-0        5.47
10181800062-2        8.49
10181800063-0        5
10181800063-2        6.42
10181800064-0        5.83
10181800064-2        11.01
10181800065-0        5.7
10181800065-2        4.89
10181800066-0        5.4
数据集中数据如上，左边变量为id，为字符型变量，右边为glu。
第一，怎么把id中的101818000**两个18变成一个18，即1018000**。
第二，由于一个ID分别对应两个观测-0和-2，怎么把每个id的两个观测glu分别变成两个变量glu1和glu2,　若是-0，则id为101800065, glu1=glu,  若是-2，id同样为101800065，glu2=glu.
望高手不吝赐教，本人菜鸟。

shiyiming

[code:1m5rsf9s]data raw;
    input oldid :$20. glu;
datalines;
10181800058-2 7.46
10181800059-0 5.98
10181800059-2 7.9
10181800060-0 5.15
10181800060-2 5.29
10181800061-0 8.89
10181800061-2 20.34
10181800062-0 5.47
10181800062-2 8.49
10181800063-0 5
10181800063-2 6.42
10181800064-0 5.83
10181800064-2 11.01
10181800065-0 5.7
10181800065-2 4.89
10181800066-0 5.4
;
data _null_;
    length id $20;
    if _n_=1 then do;
        declare hash h(hashexp:8,ordered:'a');
        rc=h.defineKey('id');
        rc=h.defineData('id','glu1','glu2');
        rc=h.defineDone();
        call missing(id,glu1,glu2);
    end;
    set raw end=last;
    id=cats('10',substr(oldid,5,7));
    rc=h.find();
    select(scan(oldid,-1,'-'));
        when('0') glu1=coalesce(glu,glu1);
        when('2') glu2=coalesce(glu,glu2);
        otherwise;
    end;
    if rc then rc=h.add();
    else rc=h.replace();
    if last then rc=h.output(dataset:'out');
run;[/code:1m5rsf9s]

shiyiming

[code:2dfduh79]data a;
input id $13. glu;
length id $11.;
id=compress(substr(id,1,2)||substr(id,5,7));
cards;
10181800058-2 7.46
10181800059-0 5.98
10181800059-2 7.9
10181800060-0 5.15
10181800060-2 5.29
10181800061-0 8.89
10181800061-2 20.34
10181800062-0 5.47
10181800062-2 8.49
10181800063-0 5
10181800063-2 6.42
10181800064-0 5.83
10181800064-2 11.01
10181800065-0 5.7
10181800065-2 4.89
10181800066-0 5.4
;
proc transpose data=a out=b(drop=_name_) prefix=glu;
var glu;
by id;
run;[/code:2dfduh79]

shiyiming

假设你的观测除了0都算2；

data test1;
input #1 id $ 1-11  s 13   Glu1 15-19  @;
        if s eq 0 then do;               
           input #2  Glu2 15-19; ID=substr(id,1,2)||substr(id,5); output;
        end;
        else do; Glu2=Glu1;glu1=.;ID=substr(id,1,2)||substr(id,5);output;end;
drop s;
cards;
10181800058-2 7.46
10181800059-0 5.98
10181800059-2 7.9
10181800060-0 5.15
10181800060-2 5.29
10181800061-0 8.89
10181800061-2 20.34
10181800062-0 5.47
10181800062-2 8.49
10181800063-0 5
10181800063-2 6.42
10181800064-0 5.83
10181800064-2 11.01
10181800065-0 5.7
10181800065-2 4.89
10181800066-0 5.4
;
run;

shiyiming

三种方法都很强悍！只是hopewell的方法不太懂！