牛人入，“sas 怎么读取Json格式文件”

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

Json的结构不是太复杂，最多嵌套4层，目的是解析完存入数据集，问题是有没有对应的proc或是函数类似hive里getjson之类的？

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏6 回帖

关键词：json son Hive 数据集 ROC

Json的数据文件，来个实例的数据。

if you use the sas9.4,you can try the follow proc json
proc json out="C:\Users\sasabc\JSON\DefaultOutput.json";
   export sashelp.class;
run;

otherwise.
you may need to  conver the JSON object into a XML document,and then use the XML Libname  engine to read it.

example:data.json

1. {
   
2.     {
   
3.          "id":"John" ,
   
4.          "password":"Doe"
   
5.     },
   
6.    
   
7. {
   
8.          "id":"Ben" ,
   
9.          "password":"123"
   
10.     }
    
11. }

复制代码

%macro JSONParse(Filename, varList);
data JSON (keep=&varlist record);
    infile &FILENAME ;
    input;
    ExpressionID = prxparse('/{(.*?)}/');
    jsontext = _INFILE_;
    start = 1;
    stop = length(jsontext);

    array vlist $50 &Varlist;

   call prxnext(ExpressionID, start, stop, jsontext, position, length);

    do while (position > 0);
        newpos = position + 1;
        newlen = length - 2;
        record = substr(jsontext, newpos, newlen);

        i=0;   
        do over vlist;
            i+1;
            vlist = strip(compress(scan(scan( record, i, ","), 2, ":"), '"'));
        end;

        output;
        call prxnext(ExpressionID, start, stop, jsontext, position, length);
    end;
run;
%mend;


FILENAME TEST "\data.json";
%JSONParse(TEST, id password);

zhou.wen 发表于 2013-12-26 14:06
example:data.json%macro JSONParse(Filename, varList);
data JSON (keep=&varlist record);
    infile ...

太神奇了，虽然没看懂，但是有路走心里就踏实了，拜你为师啊！！！

zhou.wen 发表于 2013-12-26 13:43
if you use the sas9.4,you can try the follow proc json
proc json out="C:\Users\sasabc\JSON\DefaultO ...

今天遇到联mysql的问题，回了一个你之前的帖，我用ODBC倒是能连了，可是如果能直接连mysql还是希望直连。

zhou.wen 发表于 2013-12-26 14:06
example:data.json%macro JSONParse(Filename, varList);
data JSON (keep=&varlist record);
    infile ...

zhou.wen 好牛，居然简单几句就解决了。
很好用，不过有个小问题，就是实际应用中Json有变量缺失的情况：

1. {"id":1,"V1":"我应该是第1行第1个变量"},
   
2. {"id":2,"V2":"我应该是第2行第2个变量"},
   
3. {"id":3,"V3":"我应该是第3行第3个变量"}

复制代码

如果变量全且顺序排列，用zhou.wen的程序没有问题，斗胆稍微改一下，解决变量缺失情况下的错位问题：

1. %macro JSONParse(Filename, varList);
   
2. data JSON (keep=&varlist record);
   
3.     infile &FILENAME lrecl=10000 ;
   
4.     input;
   
5.     ExpressionID = prxparse('/{(.*?)}/');
   
6.     jsontext = _INFILE_;
   
7.     start = 1;
   
8.     stop = length(jsontext);
   
9. 
   
10.     array vlist $50 &Varlist;
    
11. 
    
12.    call prxnext(ExpressionID, start, stop, jsontext, position, length);
    
13. 
    
14.     do while (position > 0);
    
15.         newpos = position + 1;
    
16.         newlen = length - 2;
    
17.         record = substr(jsontext, newpos, newlen);
    
18. 
    
19.         i=0;   
    
20.         do over vlist;
    
21.             i+1;
    
22. /*            vlist = strip(compress(scan(scan( record, i, ","), 2, ":"), '"'));*/
    
23. select ( upcase(strip(compress(scan(scan( record, i, ","), 1, ":"), '"'))) );
    
24.                                 %let i=1;
    
25.                                 %do %until (%scan(&varList.,&i.)=);
    
26.                                 %let v=%scan(&varList.,&i.);
    
27.                                   when (upcase("&v.")) &v.= strip(compress(scan(scan( record, i, ","), 2, ":"), '"'));
    
28.                                 %let i=%eval(&i.+1);
    
29.                                 %end;
    
30.                                 otherwise put 'PROBLEM OBSERVATION';
    
31.                          end;
    
32.         end;
    
33. 
    
34.         output;
    
35.         call prxnext(ExpressionID, start, stop, jsontext, position, length);
    
36.     end;
    
37.         drop record;
    
38. run;
    
39. %mend;

复制代码

这样结果就不会错位了

用proc json可以实现

proc json具体方法是啥呢，我sas数据集里有一列就是json格式的，如果分裂出来

luekemia 发表于 2015-1-22 16:06
zhou.wen 好牛，居然简单几句就解决了。
很好用，不过有个小问题，就是实际应用中Json有变量缺失的情况： ...

大神，varlist具体什么含义呢？
when (upcase("&v.")) &v.= strip(compress(scan(scan( record, i, ","), 2, ":"), '"'));
这段不知道什么意思？