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

不知你要干什么,我不知道

貌似朋友们都看不懂我想要什么，所以我干脆自己写了个半成品贴上来，若是得不到帮助，无妨。
这个毛坯宏是一小时写好的，只是想传达个意思：
在第一部分将宏预读，第二部分伴随着程序，运行本宏。
本宏的预期目的是：将第二部分程序中依照'proc printto print'的线索抓取路径'output-file'
大致步骤为：
1. 将第二部分程序保存到文件 2. 将文件infile到数据库 3. 按照find找到目标 4. 进一步抓取需要的东西。

毛坯宏，很多细节没有考虑到。log窗口%put出结果：output-file

1. 1.首先将这个宏预读。
   
2. %Macro Find_and_Get(what=);
   
3. 
   
4. *1.Save the current program into a temp file under E:\;
   
5. dm 'file "E:\Find_and_Get_temp.txt" replace';
   
6. 
   
7. *2.Read the program into dataset;
   
8. data Find_and_Get_temp;
   
9.   infile "E:\Find_and_Get_temp.txt" delimiter=";";
   
10.   input code $500. @@;
    
11.   code=trim(code);
    
12. run;
    
13. 
    
14. *3.Find and Get it!;
    
15. data _null;set Find_and_Get_temp;
    
16. if find(code,"&what") and not find(code,"Find_and_Get");
    
17. from=find(code,"'");to=find(code,"'",from+1);
    
18. want=substr(code,from+1,to-from-1);
    
19. call symputx('want',want);
    
20. run;
    
21. %put &want.;
    
22. 
    
23. %Mend Find_and_Get;

复制代码

1. 2.以下是需要抓取的实例，其最后一行是调用的本宏。
   
2. %Macro some_example;
   
3. proc means data=grade maxdec=3;
   
4.   var Score             ;
   
5.   class Status Year;
   
6.   types () status*year;
   
7.   title 'Final Exam Grades for Student Status and Year of Graduation';
   
8. run;
   
9. 
   
10. proc printto print='output-file';  *我希望运行本程序的同时,依照'proc printto print'的线索抓取到这个参数'output-file';
    
11. run;
    
12. %Mend;
    
13. 
    
14. %Find_and_Get(what=proc printto print);

复制代码

邓贵大 发表于 2013-9-15 23:04
add above to your code

Hi Deng,
Neither sysget("SAS_EXECFILEPATH") nor getoption("SYSIN") are available under my UNIX or PC SAS.
I try to understand your code and I believe it's also very useful to me.
Thank you again.

邓贵大 发表于 2013-9-14 11:01
add above to your code

Thank you.
Problem have been solved by use sashelp.vextfl .