_getabspathcomponents.sas

Go to the documentation of this file.

 
%MACRO _getAbsPathComponents (i_absPath =
                             ,o_fileName =
                             ,o_pathWithoutName =
                             ); 

   %LOCAL l_pathElementCount;
   %LOCAL l_fileNameStartPos;

   %LET &o_fileName=;
   %LET &o_pathWithoutName=;

   %IF "%sysfunc(compress(&i_absPath))" NE "" %THEN %DO; /*if not empty input string*/
      %IF %sysfunc(index(&i_absPath.,/)) GT 0 %THEN %DO; /*input string contains dir separators*/
         %LET l_pathElementCount=%sysfunc(countw(&i_absPath.,/));
         %LET l_fileNameStartPos=%sysfunc(findw(&i_absPath.,%scan(&i_absPath,&l_pathElementCount,/)));
         %LET &o_pathWithoutName=%sysfunc(substr(&i_absPath.,1,%EVAL(&l_fileNameStartPos. - 2)));
         %LET &o_fileName = %sysfunc(substr(&i_absPath.,&l_fileNameStartPos.));
     %END; /*IF %sysfunc(index(&i_absPath.,'/')) GT 0*/
     %ELSE %DO; /*input string is a filename only*/
        %LET &o_fileName = &i_absPath;
     %END;
   %END; /*IF "%sysfunc(compress(&i_absPath))" NE ""*/
   
%MEND _getAbsPathComponents;