How to remove words after '\' in a string?

[vicky07]

Hello,

I have a macro variable something like below and i want to remove the string after the last '\'. and store the output in macro

%let path = D:\input\sas\files\today\chart_data*.sas7bdat;

Expected output is:

D:\input\sas\files\today\

Basically i want to remove all the words after the last '\'. Can someone please help me to get the desired output? Thanks.

[LinusH]

Take a look at the findc() and %substr() functions.

[novinosrin]

One easy and lazy way:

%let path = D:\input\sas\files\today\chart_data*.sas7bdat;

data _null_;
k="&path";
call scan(k, -1, position, length,'\');
substr(k,position,length)=' ';
call symputx('path',k);
run;

%put &path;

However, I challenge you to accomplish the same with %syscall with call scan in open code or rxchange

[vicky07]

I will give it a try with %syscall, thank you!

[RW9]

You could double reverse it:

data want;
  pth=reverse(scan(reverse("&path."),1,"\"));
run;

Basically reverse the string, scna off the first block based on \ delimiter, then reverse the result.

[vicky07]

Got it, Thank You!

[Ksharp · Accepted solution]

%let path = D:\input\sas\files\today\chart_data*.sas7bdat;
%let want=%sysfunc(prxchange(s/[^\\\/]+$//,1,&path));

%put &want;

[vicky07]

It worked. Thank You!