字符批量替换

我有两个数据集，一个数据集A有name和label两个变量，另一个数据集B有变量validation，是长字符串；
我想把validation中出现的label值替换成相对应的name值；
如：
A

name	label
1	a
2	b
3	c

B

validation

asvvsb

cdwadsdf

eadfbs

把validation中出现的a换成1，把b换成2，把c换成3
求大神帮忙啊，不知道我有没有表达清楚

data a;
input name $ label $;
cards;
1 a
2 b
3 c
;

data b;
input validation $10.;
cards;
asvvsb
cdwadsdf
eadfbs
;

data _null_;
set a end=last;
length code $1000;
retain code code1;
code1='data wanted;set b;';
code2=compress('validation=tranwrd(validation,'||quote(label)||','||quote(name)||');');
if _n_=1 then code=code2;
else code=trim(code)||code2;
if last then do;
  code=trim(code1)||trim(code)||'run;';
  call execute(code);
end;
run;

有个类似的

1. data a;
   
2.         input label:$1. start:$1.;
   
3.         FMTNAME='$t';
   
4.         datalines;
   
5. 1 a
   
6. 2 b
   
7. 3 c
   
8.         ;
   
9. run;
   
10. proc format cntlin=a;run;quit;
    
11. 
    
12. data _null_;
    
13.         length str1 $100;
    
14.         input str:$100.;
    
15.         do i=1 to length(str);
    
16.                 str1=compress(str1||put(substr(str,i,1),$t.));
    
17.         end;
    
18.         put str str1;
    
19.         datalines;
    
20. asvvsb
    
21. cdwadsdf
    
22. eadfbs
    
23. ;
    
24. run;

复制代码

soporaeternus 发表于 2013-12-31 16:45
有个类似的

谢谢，我的name和label都不是简单的单个字符，长度不固定，所以你的方法好像不太合适。还是感谢

wwang111 发表于 2013-12-31 16:44
data a;
input name $ label $;
cards;

谢谢，我先试试，不知道数据量大了会不会运行比较慢