Question

我使用我制作的这个宏用sas导出JSON格式的数据：

%macro json4datatables(ds,path,file,charvars,numvars)
    / store source
    DES="json4datatables(ds,path,file,charvars,numvars)";

    /* creates a json with no headers
     * a bit like a csv without the first line
     * it takes thus less space
     * but you have to know which column is what
     */

    data _null_;
        length line $300;
        set &ds nobs=nobs end=end;
        file "&path.&file." encoding='utf-8' bom/**/ ;

        line = '[';

        %if &charvars ne %then %do;
            %do i=1 %to %sysfunc(countw(&charvars));
                %let charvar = %scan(&charvars, &i);
                %if &i ne 1 %then %do;
                    line = cats(line,',');
                %end;
                line = cats(line,'"',&charvar,'"');
            %end;
        %end;
        %if &numvars ne %then %do;
            %do i=1 %to %sysfunc(countw(&numvars));
                %let numvar = %scan(&numvars, &i);
                %if &i ne 1 OR &charvars ne %then %do;
                    line = cats(line,',');
                %end;
                line = cats(line,'',&numvar,'');
            %end;
        %end;

        line = cats(line,']');

        if _n_=1 then put '{"data": [';
        if not end then put line +(-1) ',';
        else do;
            put line;
            put ']}';
        end;
    run;

%mend json4datatables;

但我的问题是导出原始值我想导出格式化的值。

我怎样才能做到这一点？
我想可能有一个函数允许连接格式化的值而不是值，我可以用它替换cats（）。

谢谢！

Answer 1

使用VVALUE()功能。

line = cats(line,'',vvalue(&numvar),'');

另外，为什么不使用CATX()功能呢？替换

%if &i ne 1 OR &charvars ne %then %do;
    line = cats(line,',');
%end;
line = cats(line,'',vvalue(&numvar),'');

与

line = catx(',',line,vvalue(&numvar));

对于字符值，请使用QUOTE()函数。

line = catx(',',line,quote(cats(vvalue(&charvar))));

将方括号的添加移到最后。

line = cats('[',line,']');

Answer 2

VVALUE可能是您正在寻找的功能，但它不会取代CATS。也用于引用使用QUOTE函数。

Answer 3

您可以使用put，putc或putn函数以格式打印值，以获取格式使用vformat function，但在使用{{1}时只有vformat function和putn支持它。

putc

如何在SAS中连接格式化的值

3 个答案: