开源宏库计划_03：%file_textprocess

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

名称: %file_textprocess
简介: 像处理数据集一样处理文件内容
用法示例:*衍生一个测试用的临时文件;

1. %let dummy=D:;
   
2. data _null_;
   
3.   file "&dummy.\in.sas";
   
4.   set sashelp.class;
   
5.   put name @13 sex @17 age @21 height @27 weight;

复制代码

结果如下:


*示例1: 在 in.sas 文件的末尾增加一条观测;

1. %file_textprocess(filein=&dummy.\in.sas,optin=%str(truncover end=eof),process=%str(
   
2.   output;
   
3.   if eof then do;
   
4.     data="whymath";
   
5.     output;
   
6.   end;
   
7.   ));

复制代码

结果如下:


*示例2: 删除 in.sas 文件的最后一条观测;

1. %file_textprocess(filein=&dummy.\in.sas,optin=%str(truncover end=eof),process=%str(
   
2.   if eof then delete;
   
3. ));

复制代码

结果如下:


*示例3: 查询 in.sas 文件所有包含单词"M"的观测, 并输出到 out.sas 文件中;

1. %file_textprocess(filein=&dummy.\in.sas,fileout=&dummy.\out.sas,process=%str(
   
2.   if findw(data,'M') then output;
   
3. ));

复制代码

结果如下:


*示例4: 修订 out.sas 文件, 将修订后的结果打印到结果窗口, 最后将文件的编码由 utf-8 变更为 euc-cn;

1. %file_textprocess(filein=&dummy.\out.sas,optin=%str(truncover encoding='utf-8'),optout=%str(encoding='euc-cn'),process=%str(
   
2.     data=cats('第',_n_,'行：',data);
   
3.     proc print;
   
4.     run;
   
5.   ));

复制代码

结果如下:


说明: 变量 data 指向了输入缓存区的内容, 您需要在 process= 参数中使用 data, 而不再是 _infile_.
参考: SAS帮助文档
源代码: file_textprocess.zip (1.34 KB) 本附件包括：

• file_textprocess.sas

2022-11-3 21:50:23 上传

%file_textprocess

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏2 回帖

关键词：Process Text file ROCE CES 开源 SAS

生成测试用临时文件的程序缺少了最后的 run; 语句。
示例1和示例4的代码缩进不够好。
论坛的代码编辑功能差强人意，我补了几次也是这样。请大家看的时候注意这些地方。

感谢分享！
跟着楼主学习！