如何使用SAS中的xmlengine(xmlmapper)添加基于计数器的变量并输出到xml文件？

Question

我有两个数据集，其中一些记录彼此相关。

例如

Dataset1

Var1

abcde

坏人

大爆炸

奇怪

每天

都很

Dataset2

var1

abc

cde

坏坏

人是一个

陌生人

现在我想要使用循环逻辑比较这些记录，这是我的代码。

%let id1=%sysfunc(open(dataset2,in)); %let colterm=%sysfunc(varnum(&id1,var1)); %do %while(%sysfunc(fetch(&id1)) eq 0); %let vterm=%sysfunc(getvarc(&id1,&colterm));

        data dataset1;
            set dataset1;
            if index(strip(var1),strip("&vterm"))>0 or index(strip("&vterm"),strip(var1))>0 then do;/*when one contains the other*/
            match="Fuzzy";
            cnt=cnt+1;
            end;
        run;
    %end;

    proc sql noprint;
      select max(cnt) into:maxnum/*to get max cnt*/
      from dataset1;
    quit;

现在 dataset1 如下所示

Var1 cnt ma​​tch

abcde 2 模糊

坏人 2 模糊

大爆炸 0

奇怪 1 模糊

日常 0

完全 0

我想合并将 dataset2 中的相关记录复制到 dataset1 中，新的 dataset1 应如下所示

Var1 cnt ma​​tch FM_dataset2_1 FM_dataset2_2

abcde 2 模糊 abc cde

坏人 2 模糊坏坏人

大爆炸 0

奇怪 1 模糊陌生人

每天 0

完全 0

正如你所看到的新变量 FM_dataset2_1 和 FM_dataset2_2 是基于一个计数器 cnt 的自动重新分配。但我只是想不出使用 SAS 代码实现此步骤的正确方法。

此外，我需要将数据集输出到 xml 文件中。结果应该如下所示。

<text>abcde</text>
<match>Fuzzy</match>
  <matchitem>abc</matchitem> 
  <matchitem>tecde</matchitem> 

与上面的问题一样，问题也是关于如何确定 matchitem 元素的数量并写入文件。在 xml 映射文件中，我可以如下确定位置，

     <COLUMN name="FM_dataset2_1">
            <PATH syntax="XPath">/../matchitem[position()=**1**]</PATH>
...

     <COLUMN name="FM_dataset2_2">
            <PATH syntax="XPath">/../matchitem[position()=**2**]</PATH>

但这必须根据情况手动完成。是否可以根据cnt计数器（maxnum）自动自定义地图文件？

有人可以建议吗？

Answer 1

我确信有比下面更有效的代码，但我试图遵循您的思路。我不熟悉 XML 引擎的使用，所以我将把这部分留给其他人。否则，如果您需要手动创建它，那么您就在正确的轨道上创建了 MAXNUM 宏变量，那么您可以在循环中使用它。

%let id1=%sysfunc(open(dataset2,in));
%let colterm=%sysfunc(varnum(&id1,var1));
%do %while(%sysfunc(fetch(&id1)) eq 0);
%let vterm=%sysfunc(getvarc(&id1,&colterm));

   data dataset1;
      set dataset1;
      format vterm $20.;
      if match eq "Fuzzy" then output;
      if index(strip(var1),strip("&vterm"))>0 or index(strip("&vterm"),strip(var1))>0 then do;
         cnt=sum(cnt,1);
         match="Fuzzy";
         vterm = "&vterm";
         output;
      end;
      else do;
         cnt=sum(cnt,0);
         output;
      end;
   run;

   proc sort data=dataset1;
      by var1 match vterm descending cnt;
   proc sort data=dataset1 nodupkey;
      by var1 match vterm;
   run;
%end;

proc sql;
   create table maxcnt as
      select
         var1,
         match,
         max(cnt) as cnt
      from dataset1
      group by 1,2
      ;
   quit;
run;

proc transpose data=dataset1 out=dataset1(drop=FM_dataset2_0 _name_) prefix=FM_dataset2_;
   by var1 match;
   id cnt;
   var vterm;
run;

data dataset1;
   merge dataset1 maxcnt;
   by var1 match;
run;

%let id2=%sysfunc(close(&id1));    /*closes out dataset2 in case you need it later */