如何根据数据集得到变量的format

1. data aaa;
   
2. input name$ format$50.;
   
3. cards;
   
4. sex  1=男|2=女
   
5. hy   1=已婚|2=未婚
   
6. mz   1=汉|2=少数民族
   
7. xy1  0=不吸烟|1=偶尔吸烟|2=经常吸烟
   
8. ;
   
9. run;

复制代码

如何根据数据集aaa得到sexfmt. hyfmt. mzfmt. xy1fmt.,谢谢！

dxystata 发表于 2014-11-24 11:10
proc format;
        value  groupfmt 1="1+2" 2="3";
run;

1. data aaa;
   
2. input;
   
3. name=scan(_infile_,1,' ');
   
4. format=scan(_infile_,-1,' ');
   
5. cards;
   
6. sex  1=male|2=female
   
7. hy   1=married|2=unmarried
   
8. mz   1=han|2=minority
   
9. xy1  0=no|1=occasional|2=often
   
10. group 1=1+2|2=3
    
11. ;
    
12. run;
    
13. 
    
14. data _null_;
    
15.   set aaa end=last;
    
16.   if _n_=1 then call execute(
    
17.        'proc format;');
    
18.   call execute('value ' ||strip(name)||"fmt");
    
19.   do i=1 to count(format,'|')+1;
    
20.     string=scan(format,i,'|');
    
21.         _string=prxchange('s/(\.*\=)(.*)/$1"$2"/i',-1,string);
    
22.            call execute(_string);
    
23.   end;
    
24.     call execute(';');
    
25. if last then call execute('; run;');
    
26. run;

复制代码

sashelp.vcolumn: format

1. data aaa;
   
2. input;
   
3. name=scan(_infile_,1,' ');
   
4. format=scan(_infile_,-1,' ');
   
5. cards;
   
6. sex  1=male|2=femal
   
7. hy   1=married|2=unmarried
   
8. mz   1=han|2=minority
   
9. xy1  0=no|1=occasional|2=often
   
10. ;
    
11. run;
    
12. 
    
13. data _null_;
    
14.   set aaa;
    
15.   if _n_=1 then call execute(
    
16.        'proc format;');
    
17.   call execute('value ' ||strip(name)||"fmt");
    
18.   do i=1 to count(format,'|')+1;
    
19.     string=scan(format,i,'|');
    
20.            call execute(string);
    
21.   end;
    
22.     call execute(';');
    
23. if last then call execute('; run;');
    
24. run;

复制代码

farmman60 发表于 2014-11-24 02:50

变量 last 未初始化。

name=scan(_infile_,1,' ');
format=scan(_infile_,-1,' ');
这两句作用是？谢谢！

1. data aaa;
   
2. input;
   
3. name=scan(_infile_,1,' ');
   
4. format=scan(_infile_,-1,' ');
   
5. cards;
   
6. sex  1=male|2=femal
   
7. hy   1=married|2=unmarried
   
8. mz   1=han|2=minority
   
9. xy1  0=no|1=occasional|2=often
   
10. xx   1=left|2=right|3=1+2
    
11. ;
    
12. run;
    
13. 
    
14. data _null_;
    
15.   set aaa end=last;
    
16.   if _n_=1 then call execute(
    
17.        'proc format;');
    
18.   call execute('value ' ||strip(name)||"fmt");
    
19.   do i=1 to count(format,'|')+1;
    
20.     string=scan(format,i,'|');
    
21.            call execute(string);
    
22.   end;
    
23.     call execute(';');
    
24. if last then call execute('; run;');
    
25. run;

复制代码

运行出错！

farmman60 发表于 2014-11-24 02:50

proc format;
        value  groupfmt 1="1+2" 2="3";
run;

程序中能否加引号呢？

farmman60 发表于 2014-11-23 23:31

运行后出错！

dxystata 发表于 2014-11-24 23:31
运行后出错！

it seems that there is problem for this web editor.

string=prxchange('s/(\.*\=)(.*)/$1"$2"/i',-1,string);
need dollar symbole before 1 and 2.


data aaa;
input;
name=scan(_infile_,1,' ');
format=scan(_infile_,-1,' ');
cards;
sex  1=male|2=female
hy   1=married|2=unmarried
mz   1=han|2=minority
xy1  0=no|1=occasional|2=often
group 1=1+2|2=3
;
run;

data _null_;
  set aaa end=last;
  if _n_=1 then call execute(
       'proc format;');
  call execute('value ' ||strip(name)||"fmt");
  do i=1 to count(format,'|')+1;
    string=scan(format,i,'|');
        _string=prxchange('s/(\.*\=)(.*)/$1"$2"/i',-1,string);
           call execute(_string);
  end;
    call execute(';');
if last then call execute('; run;');
run;