如何识别macro变量值的位置？

dxystata 发表于 2013-12-28 09:46
%findpositon(3 44 5,4 )
结果不对！

我考虑过于简单了。

yongyitian 发表于 2013-12-28 10:17
Try this

%macro findpositon(source, target);
        %let pos1=%sysfunc(findw(%sysfunc(compbl(&source)),&target));               
        %let pos2=%sysfunc(ifc(%sysfunc(mod(&pos1,2))=0,  %eval(&pos1/2), %eval((&pos1+1)/2)));  
        %put  The postion is &pos2;
%mend;

%findpositon(3 44 5,4 )
%findpositon(3 4 5,5 )

Eternal0601 发表于 2013-12-28 10:52
%macro test(aaa=,bbb=);
%let indicator=%sysfunc(indexw(&aaa.,&bbb.));
%if %eval( &indicator gt 0 ...

可以更简单一些。

webgu 发表于 2013-12-28 18:07
可以更简单一些。

%findpositon(3 444 5 55,55 )
这个貌似不行

Eternal0601 发表于 2013-12-28 19:29
%findpositon(3 444 5 55,55 )
这个貌似不行

试试这个，核心代码只有一行。

1. %macro findpositon(source, target);
   
2.         %let pos=%sysfunc(findw(%sysfunc(compbl(&source)),&target," " ,E));               
   
3.         %put  The position is  &pos ;
   
4. %mend;
   
5. 
   
6. %findpositon(3 4 5,5 )
   
7. %findpositon(3 4444 5,5)
   
8. %findpositon(3 444 5 55,55 )

复制代码

webgu 发表于 2013-12-28 20:15
试试这个，核心代码只有一行。

这个不错，findw的modifier很强悍

webgu 发表于 2013-12-28 20:15
试试这个，核心代码只有一行。

谢谢webgu版主，我一直认为有简单的方法，用循环太麻烦啦！终于出现啦！

Eternal0601 发表于 2013-12-28 20:34
这个不错，findw的modifier很强悍

你考虑的比较周全。学习了。

dxystata 发表于 2013-12-28 20:41
谢谢webgu版主，我一直认为有简单的方法，用循环太麻烦啦！终于出现啦！

大家一起努力的结果。呵呵。

1. %let aaa= 3  4  5;
   
2. %let bbb=4;
   
3. 
   
4. %put %sysfunc(whichc(&bbb.,%sysfunc(tranwrd(%sysfunc(compbl(&aaa.)),%str( ),%str(,)))));

复制代码