コードの誤り、マクロ変数はリストの最初の値を返しますが、最後の値が返されます

Question

私のコードに間違いがあります。リストの最初の値を返しますが、最後の値を返します。マイコード

%macro r(one, two); 
%local cnt num; 
%let cnt=0; 
%let num=0; 
%do %while(%scan(&one,%eval(&cnt+1),%str()) ne %str()); 
%let cnt = %eval(&cnt+1); 
%if %upcase(%scan(&one,&cnt,%str()))=%upcase(&two) %then 
%let num=&cnt; 
%end; 
&num 
%mend r; 

option mlogic symbolgen; 
%put b is at position %r(a b c b, b); 

出力は2でなければなりません。しかし、私は誰も私が私の間違いを見つけ出す助けることができます4として出力を取得しています。前もって感謝します。

Answer 1

一致が見つかると、whileループを終了する条件を追加する必要があります。さもなければそれはあなたが目指しているものではない、探し続ける。

%macro r(one, two); 
%local cnt num; 
%let cnt=0; 
%let num=0; 
%do %while(&num.=0 and (%scan(&one,%eval(&cnt+1),%str()) ne %str())); 
    %let cnt = %eval(&cnt+1); 
    %if %upcase(%scan(&one,&cnt,%str()))=%upcase(&two) %then 
    %let num=&cnt; 
%end; 
&num 
%mend r; 

option mlogic symbolgen; 
%put b is at position %r(a b c b, b);