如何将变量标签中的括号和括号中内容去掉

1. data aaa;
   
2. input no age sex height0 weight0 weight1;
   
3. label age='年龄(岁)' height0='身高(cm)' weight0='体重(kg)' weight1='体重(kg)';
   
4. cards;
   
5. 1 35 1 175 80 90
   
6. 2 45 2 160 55 65
   
7. ;
   
8. run;

复制代码

如何将数据集aaa中含有括号的变量标签中将括号和括号中内容去掉？谢谢！

data _null_;
    set sashelp.vcolumn end=last;
        where libname="WORK" and memname="AAA" and index(label,"(");
        do until(index(label,"(")=0);
           if label =:"(" then label=substr(label,index(label,")")+1);
       else label=substr(label,1, index(label,"(")-1)|| substr(label,index(label,")")+1);
        end;

        length setlabel $100;
        setlabel=catx(" ",setlabel, catx("=",name,quote(strip(label))));
        retain setlabel;
        if last then call symputx("setlabel",setlabel);
run;

proc datasets lib=work;
   modify aaa;
   label &setlabel;
run;quit;

pobel 发表于 2014-11-23 10:53
data _null_;
    set sashelp.vcolumn end=last;
        where libname="WORK" and memname="AAA" and index(l ...

:"("  表示什么意思？谢谢！
如果括号就有中文状态的括号和英文状态的括号呢？

dxystata 发表于 2014-11-23 19:31
:"("  表示什么意思？谢谢！
如果括号就有中文状态的括号和英文状态的括号呢？

=: 相当于sql中用的 eqt。

In a truncated string comparison, the comparison is performed after making the strings the same length by truncating the longer string to be the same length as the shorter string. For example, the expression 'TWOSTORY' eqt 'TWO' is true because the string 'TWOSTORY' is reduced to 'TWO' before the comparison is performed.

1. data _null_;
   
2.   set sashelp.vcolumn(where=(libname="WORK" and memname="AAA")) end=last;
   
3.   if _n_=1 then call execute('
   
4.          proc datasets lib=work;
   
5.                  modify aaa;
   
6.                  label');
   
7.   pid=prxparse('s/\(.*\)//');
   
8.   if prxmatch("/\(.*\)/",label)>0 then call prxchange(pid,-1,label);
   
9.   call execute (name||'='||label);
   
10.   if last then call execute(';run;');
    
11.   run;

复制代码

学习了