请问是否有人知道：如何抓取当前程序中的某串字符

请看11楼，大体程序我自己写好了。不过我仍然无法解决的问题是，是否非要将文件程序先另存，再infile到dataset中。能否跳过这一步骤，因为我用的UNIX SAS无法另存文件，或者说很麻烦。。谢谢。　　　
----------  以下为9月14日原帖内容  ---------------
　　　
请问各位老师，有没这样的经验。这样的程序我在一个大牛的宏中见过，他是将程序头部注释中某行程序抓取。

例如程序中：**** 本程序的开发者：张三 *****；
那就能将该程序中的张三抓成宏变量。

我现在想这样：

*Current program;  
data _null_;
.....
proc sort .....
%macro abc;
proc printto log= 'd:\log.dat' ;
%mend;
*End of the program;

%MyMacro;

我的宏MyMacro打算在这里抓取那个proc printto，并且取得后面的参数：log= 'd:\log.dat' ;

请问大家，宏里面应该怎么写呢？

我感觉应该是先把目前的Program Editor的内容按截取的方式存到一个数据集中，再用trim加上类似find或者scan的方式进行查找。或者有更好的办法吗？谢谢。

1. data _null_;
   
2.         if lengthn(getoption("SYSIN")) = 0 then
   
3.                 fullpath=  sysget("SAS_EXECFILEPATH");
   
4.         else fullpath = getoption("SYSIN");
   
5.         call symputx('pgm', fullpath);
   
6. run;
   
7. filename in pipe "type ""&pgm""";
   
8. data _null_;
   
9.         infile in;
   
10.         retain re;
    
11.         if _n_=1 then re=prxparse('/proc +printto +log\=/');
    
12.         input;
    
13.         if prxmatch(re, lowcase(_infile_)) then put _infile_;
    
14. run;

复制代码

add above to your code

我目前想到的一个办法是用

x “program file=‘C:abc.txt replace’”；

将全部程序先暂存到C盘的根目录，

然后再用infile按照“；”导入到dataset，但是我觉得这样做有点傻，而且如果是UNIX系统的话，没有地方让你存的。

？？？？

搞不懂，有没有发错地方~~~~

额，这个还是等高人解释吧

讨论程序语言应找对地方

可能发错了地方，不能及时求解不说，还……

等高人回复

嗯？我在人大经济发过三十余帖，全部发到sas板块，全部都是sas程序求助，得到很多老师帮助。
难道，sas版块分出了程序子版？或是我没有把问题阐述清楚？谢谢各位。