SAS 宏多语句

Question

我从一些例子开始。我有“学校”变量，如“哈佛和牛津”、“仅哈佛”等。我想在“学校”变量中找到仅包含一个学校名称（“地点”变量）的这些案例。我在数据集 bbb 中有“place”变量，我放入 listplace（“harvard！oxford！wse），“opinion”变量，我放入 listopinion（“8！8！9）和“country”变量，我放入 listcountry （“美国！英国！法国”）。我想制作仅在包含两个学校名称（zm1）的情况下才能在“学校”变量中找到的宏。然后，我想从 listopinion 和 listplace 中添加适当的项目。 “地方”是学校名称，“意见”是平均比率，“国家”是这个比率的来源。

这是我的第一个数据集： 地方意见国家 - “哈佛” 8 “美国” - “牛津” 8 “英国” - “wse” 9 “法国”

这是我的第二个数据集：

学校 - 哈佛最好 - 只应选择哈佛 - 我们没有任何价值观 - 蛋糕

这就是我想要的代码结果（只有两个观察，而不是“学校”变量中的四个）：

学校意见国家 ——《哈佛很特别》8《美国》 - “只应选择哈佛” 8 “美国”

如何使用 %let 语句创建三个 %do until 循环？

    data aaa;
    input  schools;
    datalines;
    "harvard and oxford"
    "only harvard should be chosen"
    "cheese, cake, pizza"
    "we dont't have any values"
    ;
    run;
    data bbb;
    input  place opinion country;
    datalines;
    "harvard" 8 "usa"
    "oxford" 8 "uk"
    "wse" 9 "france"
    ;
    run;
    data ccc;
    set
    proc sql noprint;
    select opinion
    into :listopinion separated by "!"
    from aaa
    ;
    run;
    quit;
    proc sql noprint;
    select country
    into :listcountry separated by "!"
    from aaa
    ;
    run;
    quit;
    proc sql noprint;
    select place
    into :listplace separated by "!"
    from aaa
    ;
    run;
    quit;
    %let i_1 =1;
    %let i_2 =1;
    %let i_2 =1;
    %do %until (%qscan(&listplace,&i_1,'!') = %str());
             %do %until (%qscan(&listopinion,&i_2,'!') = %str());
                      %do %until (%qscan(&listcountry,&i_3,'!') = %str());                
                          %let zm1=%scan(&listplace,&i_1,'!');
                               find(school,"&zm1")=1 or
                          %let zm2=%scan(&listopinion,&i_2,'!')
                          %let zm3=%scan(&lista3,&i_3,'!');
                          %let i_3=%eval(&i_3+1);
                      %end;
                 %let i_2=%eval(&i_2+1);
             %end;
        %let i_1=%eval(&i_1+1);
    %end;
    run;

Answer 1

听起来你想测试学校的值是否有两个或多个列表中的名称存在于学校的值中。

因此，如果您要查找的学校列表如下所示：

%let list=harvard|oxford|wse;

那么你想生成类似的东西：

if sum( 0<findw(school,"harvard",,'i')
      , 0<findw(school,"oxford",,'i')
      , 0<findw(school,"wse",,'i')
      ) >= 2 then do;
...
end;

所以你可能会使用这样的东西：

if sum(

%let sep=;
%do i=1 %to %sysfunc(countw(&list,|));
  &sep  0<findw(school,"%qscan(&list,&i,|)",,'i')
  %let sep=,;
%end;

) >= 2 then do;
...
end;

我不知道你想对其他两个列表做什么。我想你想用它们来生成一些我留下的 SAS 代码...。