获得sas程序的名称，及提取包含特定字段的行 Get then names of some programs and get rows which contain specify fields

filename fn "C:/Documents and Settings/yxg/My Documentsmeeting/*.SAS";


data t(keep =str name);


 length sd $255. ;


 length name $255.;


   infile fn filename=sd ;


    *注意这里的赋值


   name=sd;


   name=substr(compress(name),length(compress(name))-10);


 input str $255. @@;


  re = prxparse("/a1/");


  re2 = prxparse("/a2/");


  re3 = prxparse("/a3/");




  dofind = 0;  /**//*用于查找多个源*/


 if prxmatch(re, str) then do;


  output;


 end;


 if prxmatch(re2, str) then do;


  output;


 end;


 if prxmatch(re3, str) then do;


  output;


 end;


run;