topic Re: Need answer if you can in SAS Programming

Need answer if you can

sahaji — Wed, 13 Nov 2013 03:21:44 GMT

I need a macro with 3 positional parameters. one is string, one is delimter and one is word number. If word number is larger than the no of words in the string, a log message has to be printed that word number is out of bounds.

call: %test(there is a question, %str( ),1)

Result: there is a question

call : %xscan(there is a question, %str( ),-2)

Result: a question

Re: Need answer if you can

Jagadishkatam — Wed, 13 Nov 2013 07:38:29 GMT

Please try the below macro,

/*positional parameters:*/

/*var=string*/

/*num=number of the word*/

/*del=delimiter*/

%macro test(var,num,del);

data _null_;

%let count=%sysfunc(countw(&var));

%let str=%sysfunc(scan("&var",&num,&del));

%if &count >= &num %then %do;

word=scan("&var",&num,&del);

%put &str;

%end;

%else %do;

%put "word number is out of bounds";

%end;

run;

proc print;

run;

%mend;

%test(%str(ram rahul rohit),3," ")

Thanks,

Jagadish

Re: Need answer if you can

Amir — Wed, 13 Nov 2013 14:08:59 GMT

Hi,

How about:

%macro tail(string,n,dlm);

%let result_scan=%scan(&string,&n,&dlm);

%if %length(&result_scan) %then

%do;

%let result_indexw=%sysfunc(indexw(&string,&result_scan,&dlm));

%let result=%substr(&string,&result_indexw);

%put &result;

%end;

%else

%put Word number is out of bounds;

%mend tail;

%tail(one two three four five,2,%str( ));

%tail(one two three four five,-2,%str( ));

%tail(one two three four five,222,%str( ));

giving:

two three four five

four five

Word number is out of bounds

Regards,

Amir.

Re: Need answer if you can

sahaji — Wed, 13 Nov 2013 14:20:10 GMT

Thank You so much Jagadish. I'm in the process of learning Macros. This is giving the correct answer to me.

Re: Need answer if you can

sahaji — Wed, 13 Nov 2013 14:27:30 GMT

Amir,

Thanks for your reply. Great effort. This one is also very helpful. Thanks again.

Re: Need answer if you can

sahaji — Wed, 13 Nov 2013 14:36:24 GMT

Now I've one more scenario. Just need to change the above code.

Call: %let sub_str = %test(this one is for learning, %str( ), -2);

%put The value of sub_str = &sub_str;

Result: The value of sub_str = for learning

Re: Need answer if you can

sahaji — Wed, 13 Nov 2013 14:47:27 GMT

Now I've one more scenario. Just need to change the above code.

Call: %let sub_str = %test(this one is for learning, %str( ), -2);

%put The value of sub_str = &sub_str;

Result: The value of sub_str = for learning

Re: Need answer if you can

Tom — Wed, 13 Nov 2013 16:53:14 GMT

What do want as the result with &POS is out of range? What about when &POS=0?

What do want when delimiter is NOT space?

What about multiple adjacent delimiters?

One way to do this is to build the result into a variable and the expand the variable as the result of the macro call.

Here is an example. I leave it as an exercise to see what it does with multiple adjacent delimiters and how you could change that.

%macro test(str,dlm,pos);

%local i n top result ;

%let n=%sysfunc(countw(&str,&dlm));

%if &pos < 0 %then %let top=-1 ;

%else %let top=&n;

%if &pos=0 or &pos > &n or &pos < -&n %then %let result=Out of Bounds ;

%else %do i=&pos %to &top;

%if &i>&pos %then %let result=&result.&dlm;

%let result=&result.%qscan(&str,&i,&dlm);

%end;

&result.

%mend test;

277 %let sub_str = "%test(this one is for learning, %str( ), -2)";

278 %put The value of sub_str = &sub_str;

The value of sub_str = "for learning"

279 %let sub_str = "%test(this one|is|for learning,|, -2)";

280 %put The value of sub_str = &sub_str;

The value of sub_str = "is|for learning"

281 %let sub_str = "%test(this one|is|for learning,|, 22)";

282 %put The value of sub_str = &sub_str;

The value of sub_str = "Out of Bounds"

Re: Need answer if you can

sahaji — Wed, 13 Nov 2013 17:43:24 GMT

Thank You so much Tom. This is really helpful for me as I'm in the learning process of Macros. Thanks for your time and really appreciate your response.