如何判定顺序为真？

%let values=1 2;%let values=A B;
如果&value顺序为从小到大，则为真，否则为假？谢谢！

楼主你好，假定values里面都是用空格作为分隔符好的，请试试如下代码：

1. %let values=1 2 2.1 3;
   
2. 
   
3. %macro CheckOrder(Var);
   
4.   %let var_count=%sysfunc(countw("&&&var.", " "));
   
5.   %let true_count=0;
   
6.   %put &var_count.;
   
7.   %do i = 1 %to (&var_count. - 1);
   
8.     %if %scan(&&&var., (&i. + 1), %str( )) > %scan(&&&var., &i., %str( )) %then
   
9.       %let true_count=%eval(&true_count. + 1);
   
10.   %end;
    
11.   %if &true_count. = (&var_count. - 1) %then
    
12.     %put True;
    
13.   %else
    
14.     %put False;
    
15. %mend;
    
16. 
    
17. %CheckOrder(values)

复制代码

1. %macro test(string);
   
2.      %let i=1;
   
3.      %do %while (%scan(&string,&i,%str( )) ne);
   
4.             %let val1=%scan(&string,&i,%str( ));
   
5.         %let val2=%scan(&string,(&i+1),%str( ));   
   
6.         %if &val2 eq  %then %goto leave;
   
7.         %else %if &val1>&val2 %then %goto label;
   
8.                 %let i=%eval(&i+1);
   
9.      %end;
   
10.      %leave:  %put "Values of string are ordered from the smallest to largest" ;
    
11.      %goto last;
    
12.          %label:  %put "Values of string are not ordered from the smallest to largest";
    
13.          %last:
    
14. %mend;
    
15. 
    
16. %test(%str(a c d d e ))
    
17. %test(%str(a b d c f))
    
18. %test(%str(3 3 4 8 9 9))
    
19. %test(%str(. 4 7 . 10))
    

复制代码