50论坛币币求助多个SAS程序文件中的内容替换

我想将多个SAS程序文件中的mdy(12,31,2021) 替换成 mdy(06,30,2022)，如何编程实现？谢谢！

1. /*
   
2. 简介：当前宏将类文本文件读取为SAS数据集,然后对其执行任意合法的SAS操作. 宏共包含5个参数:
   
3. 参数说明：
   
4.   filein        指定输入文件, 允许使用SAS fileref
   
5.   fileout       指定输出文件, 允许使用SAS fileref, 默认为[&filein.]
   
6.   inencoding    输入文件的编码值, 默认为[%sysfunc(compress(&sysencoding.,-))]
   
7.   outencoding   输出文件的编码值, 默认为[&inencoding.]
   
8.   process       要对输入文件执行的合法SAS操作
   
9. 其它说明：
   
10.   宏内部对输入文件转换的数据集命名为_file_, 输入文件的内容存储在变量text中.
    
11. 用法示例：
    
12.   %*对输入文件进行编码转换;
    
13.   %file_anyprocess(filein=D:\Download\没离开过_林志炫.lrc,inencoding=utf8,outencoding=euccn);
    
14. 
    
15.   %*对输入文件进行文本替换;
    
16.   %file_anyprocess(filein=D:\Download\没离开过_林志炫.lrc,process=%str(
    
17.     text=tranwrd(text,'没离开','没换气')));
    
18. 
    
19.   %*对输入文件增加行号;
    
20.   %file_anyprocess(filein=D:\Download\没离开过_林志炫.lrc,process=%str(
    
21.     text=put(_n_,z3.)||' '||text));
    
22. 
    
23.   %*完全替换输入文件的内容;
    
24.   %file_anyprocess(filein=D:\Download\没离开过_林志炫.lrc,process=%str(
    
25.     data _file_;set sashelp.class;text=cats(name,',',sex);run;));
    
26. */
    
27. 
    
28. %macro file_anyprocess(filein=,fileout=&filein.,inencoding=%sysfunc(compress(&sysencoding.,-)),outencoding=&inencoding.,process=);
    
29. data _file_;
    
30.   infile %sysfunc(quote(%superq(filein))) lrecl=32767 truncover encoding=&inencoding.;
    
31.   input text $char32767.;
    
32.   %unquote(&process.);
    
33. run;
    
34. 
    
35. data _null_;
    
36.   file %sysfunc(quote(%superq(fileout))) encoding=&outencoding.;
    
37.   set _file_;
    
38.   _len_=lengthn(text);
    
39.   put text $varying. _len_;
    
40. run;
    
41. %mend;

复制代码

data test;
    /*读取程序*/
    infile "C:\Users\EDY\Desktop\tab9_3_1_5 to 9_3_1_6.sas" lrecl=32767 recfm=f truncover;
    input a $32767.;
    /*修改程序，如将a全部替换为b*/
    a=tranwrd(a,"a","b");
    /*输出修改后的文件*/
    file "C:\Users\EDY\Desktop\test.sas";
    put a;
run;
这是修改原理。批量的话，可以遍历一个文件下的所有SAS程序文件，然后用循环

标题是50币你就发1个？太不厚道啦

whymath 发表于 2022-3-25 19:10
标题是50币你就发1个？太不厚道啦

随便上传个附件，我来购买呢，谢谢！

乐天天12300 发表于 2022-3-25 18:57
data test;
    /*读取程序*/
    infile "C:\Users\EDY\Desktop\tab9_3_1_5 to 9_3_1_6.sas" lrecl=327 ...

随便上传个附件，我来购买呢，谢谢！

whymath 发表于 2022-3-25 19:10
标题是50币你就发1个？太不厚道啦

我修改啦，抱歉！

dxystata 发表于 2022-3-26 14:05
我修改啦，抱歉！

好的，下次记得多给点啊，你可是有17W币的大财主

遍历文件列表执行这个宏就可以批量完成了

@乐天天12300  @whymath
请以出售的形式随便上传个附件，我来购买，谢谢！