|
把你的数据保存了个文件,每条观测一行。
然后上网copy了一段代码。
%macro JSONParse(Filename, varList);
data JSON (keep=&varlist);
infile &FILENAME ;
input;
ExpressionID = prxparse('/{(.*?)}/');
jsontext = _INFILE_;
start = 1;
stop = length(jsontext);
array vlist $200 &Varlist;
call prxnext(ExpressionID, start, stop, jsontext, position, length);
put position length;
do while (position > 0);
newpos = position + 1;
record = substr(jsontext, newpos, newlen);
put 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;
options mlogic mprint symbolgen;
FILENAME TEST "F:/SASfiles/first.json";
%JSONParse(TEST, applyJoinSitu
cmfqFpNrAlLv3
dminFpAvPsCnt3
execStlRate
finCmlisrAmt
finStrisrAmt
finingTerm
finingTotalAmt
scoreVO
aliScore
applyNo
tdScore
sumFpNrLnCnt3
vegAge
zm);
|