如何把数据集中的值替换并输入到txt文件中

1. data aaa;
   
2. input x$ y$ z$;
   
3. cards;
   
4. a b abc
   
5. d abc f
   
6. ;
   
7. run;

复制代码

我想把数据集输出到txt文件中，但我想把abc替换成10000个字符长度的值输出到txt文件中，有什么好方法实现吗？谢谢！

dxystata 发表于 2014-1-23 11:54
data aaa;
infile  "F:\123.txt" LRECL=32767;
length x $11000.;

the macro variable temp created by call symput('temp', _infile_);
can not be used (by &temp) in the same data step.

It can be referenced after the data step have finished.

Don't know how to remove the warning. But the file 1234.txt was created correctly with maximum length of 10004.

There is not warning this way.

1. data _null_;
   
2. infile "F:\MySAS\Temp\output\long_string.txt" LRECL=32767;
   
3. file "F:\MySAS\Temp\output\12345.txt" LRECL=32767;
   
4. length x y temp $11000.;
   
5. retain temp;
   
6. if _n_ = 1 then do;
   
7. input;
   
8. temp = _infile_;
   
9. end;
   
10. set aaa;
    
11. p = find(x, 'abc');
    
12. if find(x, 'abc') then y= cats(substr(x, 1, p-1), temp, substr(x, p+3));
    
13. else y = x;
    
14. put @1 y;
    
15. run;

复制代码

先put到txt文件中，然后再对abc替换！这样在SAS中能实现吗？

1. /* create a text file for the dataset */
   
2. data aaa;
   
3. file  "F:\MySAS\Temp\Short_AAA.txt"; /* create a text file for dataset aaa */
   
4. input x$ y$ z$;
   
5. put @1 x  @10 y @20 z;  
   
6. cards;
   
7. a b abc
   
8. d abc f
   
9. ;
   
10. run;
    
11. 
    
12. /* create a long_string text file and a macro for replacing 'abc' */
    
13. data _null_;   
    
14.    file  "F:\MySAS\Temp\long_string.txt" LRECL=32767; /* create a text file */
    
15.    length temp $11000.;                           
    
16.     do i= 1 to 1000;
    
17.       temp = cats(temp, 'A', '123456789');
    
18.     end;
    
19.    call symput('temp', temp);     /* create a macro variable */
    
20.    put @1 temp;
    
21. run;
    
22. 
    
23. /* method 1: using two infiles statement for input
    
24.                and one    file statement for output */
    
25. 
    
26. data _null_;
    
27.   infile  "F:\MySAS\Temp\long_string.txt" LRECL=32767;
    
28.     file  "F:\MySAS\Temp\long_aaa_1.txt"  LRECL=32767;
    
29.    length x y z $11000.;
    
30.    array xyz  $ x y z;
    
31.     retain temp;
    
32.     if _n_ = 1 then do;
    
33.         input;
    
34.         temp = _infile_;
    
35.     end;
    
36.     do until(last);
    
37.        infile  "F:\MySAS\Temp\short_aaa.txt"  LRECL=32767 end=last;
    
38.          input x : $ y :$ z :$;
    
39.       do over xyz;
    
40.         if xyz = 'abc' then xyz = temp;
    
41.       end;
    
42.       put @1 x=  +5 y=  +5 z=;  /* = sign is just for illustrating, and can be removed */
    
43.     end;
    
44. run;
    
45. 
    
46. /* method 2: using one infile statement and a dataset for input
    
47.                       and one file statement for output */
    
48. data _null_;
    
49.   infile  "F:\MySAS\Temp\long_string.txt" LRECL=32767;
    
50.     file  "F:\MySAS\Temp\Long_aaa_2.txt" LRECL=32767;
    
51.     length x y z $11000.;
    
52.     array xyz  $ x y z;
    
53.     retain temp;
    
54.     if _n_ = 1 then do;
    
55.         input;
    
56.         temp = _infile_;
    
57.     end;
    
58.     set aaa;
    
59.        do over xyz;
    
60.           if xyz = 'abc' then xyz = temp;
    
61.        end;
    
62.     put @1 x=  +5 y=  +5 z=;    /* = sign just for illustrating, and can be removed */
    
63. run;

复制代码

yongyitian 发表于 2014-1-23 09:34

123.txt (20 Bytes)

2014-1-23 10:17:14 上传

long_string.txt (9.77 KB)

2014-1-23 10:17:30 上传

先把123.txt读入SAS
data aaa;
infile  "F:\123.txt" LRECL=32767;
length x $11000.;
input x:$;
run;


然后把数据集aaa中变量x中含有abc 替换成long_string.txt中内容？



最后得到123.txt(文件名不变)

dxystata 发表于 2014-1-23 10:21
先把123.txt读入SAS
data aaa;
infile  "F:\123.txt" LRECL=32767;

try this

1. data _null_;
   
2.   infile  "F:\MySAS\Temp\output\long_string.txt" LRECL=32767;
   
3.   input;
   
4.   call symput('temp', _infile_);
   
5. run;
   
6. %put &temp;
   
7. 
   
8. data aaa;
   
9.      infile  "F:\MySAS\Temp\output\123.txt" LRECL=32767;
   
10.      length x $11000.;
    
11.      input x :&$;
    
12. run;
    
13. 
    
14. data bbb;
    
15.    file  "F:\MySAS\Temp\output\1234.txt" LRECL=32767;
    
16.    length x $11000.;
    
17.    set aaa;
    
18.    if find(x, 'abc') then x = tranwrd(x, 'abc', "&temp");
    
19.    put @1 x;
    
20. run;

复制代码

yongyitian 发表于 2014-1-23 11:12
try this

程序出现WARNING: The quoted string currently being processed has become more than 262 bytes long.  You
         might have unbalanced quotation marks.

yongyitian 发表于 2014-1-23 11:12
try this

data aaa;
infile  "F:\123.txt" LRECL=32767;
length x $11000.;
input x:$;
run;

data _null_;
        infile  "F:\long_string.txt" LRECL=32767;
    file  "F:\124.txt" LRECL=32767;
        length x $11000.;
        input;
        call symput('temp', _infile_);
        %put &temp;
    set aaa;
    x=tranwrd(x,'abc',"&temp");
        put x;
run;
这样运行为什么会得不到结果呢！

yongyitian 发表于 2014-1-22 09:55
the macro variable temp created by call symput('temp', _infile_);
can not be used (by &temp) in ...

long_string1.txt (10.3 KB)

2014-1-23 22:38:36 上传

如果是long_string1.txt，如何把abc替换为long_string1.txt的内容呢？谢谢！

dxystata 发表于 2014-1-23 22:40
如果是long_string1.txt，如何把abc替换为long_string1.txt的内容呢？谢谢！

要把　long_string1.txt 中的每一行联在一起，再替换　'abc' 是这样的。
不一定是你想要的结果。

1. data aaa;
   
2.      infile  "F:\MySAS\Temp\output\123.txt" LRECL=32767;
   
3.          length x $11000.;
   
4.      input x :&$;
   
5. run;
   
6. 
   
7. data _null_;
   
8.     infile  "F:\MySAS\Temp\output\long_string1.txt" LRECL=32767 end=last;
   
9.       file  "F:\MySAS\Temp\output\123456.txt"       LRECL=32767;
   
10.     length x y temp $11000.;
    
11.         retain temp;
    
12.     do until(last);
    
13.         input;
    
14.         call cats(temp, _infile_, '___');   
    
15.         end;
    
16.     do until(last1);
    
17.         set aaa end=last1;
    
18.           p = find(x, 'abc');
    
19.           if find(x, 'abc') then y= cats(substr(x, 1, p-1), temp, substr(x, p+3));
    
20.             else y = x;
    
21.           put @1 y;
    
22.     end;
    
23. run;

复制代码