利用sas对文本数据进行个性化修改

test.txt (932 Bytes)

2012-12-25 15:59:48 上传

数据见附件，数据截图如下：

我想把文件中的变量名两边加上{}，如第一行name变成{name}, 居住地一行juzhudi变成{juzhudi}。
除此之外，其它部分都不要变化，如每行前面的空格数，有些地方有空行等等。

变量名满足的条件：与sas变量名满足的条件一样（可以有字母和数字），不过没有_符号。

求高手。txt进sas，还要sas出txt，出来的txt与原有结构一样，只微修改一下。

Imasasor 发表于 2012-12-25 18:33
第四行的被错误地加了｛｝

写漏了一个判别~
data ex;
length x $100;
infile "E:\test.txt" ;
input;
x=_infile_;
run;

data _null_;
set ex;
if _n_=1 then do;
retain id;
id=prxparse("s/[A-Za-z]{1}[a-zA-Z0-9]+\b(?= )/{$0}/");
end;
call prxchange(id,-1,x);
file "E:\test1.txt";
put x $100.;
run;

1. filename raw 'd:test.txt';
   
2. data _null_;
   
3.     infile raw truncover;
   
4.     file 'd:test1.txt';
   
5.     input string $char100.;
   
6.     string=prxchange('s/(：|\s)([a-z]+)/$1{$2}/',-1,string);
   
7.     put string $100.;
   
8. run;

复制代码

老师她摸我 发表于 2012-12-25 17:23

嗯！不错！高手！

data ex;
length x $100;
infile "E:\test.txt" ;
input;
x=_infile_;
run;

data _null_;
set ex;
if _n_=1 then do;
retain id;
id=prxparse("s/[A-Za-z]{1}[a-zA-Z0-9]+\b/{$0}/");
end;
call prxchange(id,-1,x);
file "E:\test1.txt";
put x $100.;
run;

学习学习。佩服啊

ziyenano 发表于 2012-12-25 17:40
data ex;
length x $100;
infile "E:\test.txt" ;

第四行的<yyyy/mm/dd>被错误地加了｛｝

老师她摸我 发表于 2012-12-25 17:23

你好，
我想问一下，这样跑完了以后还能和楼主要求的一样的那个txt文件的结构吗？
谢谢。

好像都还是欠完美的解决问题、

1. %let folder=L:\;
   
2. /*将上面的改为记事本文件所在位置，记事本文件名为test.txt，修完后，直接运行全部程序，会在原文件夹内多出一个text加括号的txt文件*/
   
3. /*以下程序不需要修改*/
   
4. data a;
   
5. infile "&folder.test.txt" dlm="|" truncover lrecl=300;
   
6. input;
   
7. x=_infile_;
   
8. run;
   
9. 
   
10. data b(keep=x y);
    
11. set a;
    
12. length token $ 12;
    
13. length y $ 300;
    
14. i=1;
    
15. retain y;
    
16. y=x;
    
17. do until(token="");
    
18. token=scan(x,i,"0123456789abcdefghijklmnopqrstuvwxyz</>","ki");
    
19. c=compress(token,"","kda");
    
20. if c=token and notdigit(strip(c))=1 then do;
    
21. y=tranwrd(y,strip(c)||"","{"||strip(c)||"} ");
    
22. end;
    
23. i+1;
    
24. end;
    
25. run;
    
26. 
    
27. data _null_;
    
28. set b;
    
29. file "&folder.text加括号.txt" lrecl=300;
    
30. put y $300.;
    
31. run;

复制代码