options validvarname=any;
libname nb "E:\NB\sas數(shù)據(jù)集\aduit_test";
options validvarname=any;
%let dirname = E:\NB\原始數(shù)據(jù)\5-9月數(shù)據(jù)\童鞋\訂單;
filename dirlist pipe "dir /B &dirname*.csv";
data dirlist_leif ;
length fname varying2560. reclen;
run;
data dirlist_leif;
set dirlist_leif;
var=translate(compress("s" || translate(fname,'','.csv')),'','-');
var=translate(var,'','訂單報(bào)表');
var=compress(translate(var,'','訂單'));
var=compress(translate(var,'','至'));
var=substr(var,1,15);
/if index(fname,'訂單')>0;/
call symput ('pvars',n);
run;
%put &pvars.;
data nb.total_1015_adult;
format 訂單編號(hào) 50.
買家支付寶賬號(hào) 50.
買家應(yīng)付郵費(fèi) 50.
總金額 50.
買家實(shí)際支付金額 50.
訂單狀態(tài) 200.
收貨人姓名 200.
運(yùn)送方式 50.
聯(lián)系手機(jī) 25.
訂單付款時(shí)間 500.
寶貝種類 50.
物流公司 500.
寶貝總數(shù)量 50.
店鋪名稱 25.
打款商家金額 40.*/
;
stop;
run;
%macro getcsv;
%do i=1 %to &pvars.;
data null;
set dirlist_leif;
if n=&i.;
call symput ('file',trim(fname));
call symput ('var',trim(var));
run;
%put &file. &var.;
proc import out=nb.temp
datafile="&dirname&file."
DBMS=CSV replace;
getnames=yes;
run;
/data nb.temp;/
/set nb.temp;/
/varname="&var.";/
/run;/
data nb.total_1015_adult;
set nb.total_1015_adult
nb.temp(keep=訂單編號(hào)
買家會(huì)員名
買家支付寶賬號(hào)
買家應(yīng)付貨款
買家應(yīng)付郵費(fèi)
買家支付積分
總金額
返點(diǎn)積分
買家實(shí)際支付金額
買家實(shí)際支付積分
訂單狀態(tài)
買家留言
收貨人姓名
收貨地址
運(yùn)送方式
聯(lián)系電話
聯(lián)系手機(jī)
訂單創(chuàng)建時(shí)間
訂單付款時(shí)間
寶貝標(biāo)題
寶貝種類
物流單號(hào)
物流公司
訂單備注
寶貝總數(shù)量
店鋪Id
店鋪名稱
確認(rèn)收貨時(shí)間
打款商家金額
)
;
run;
%end;
%mend;
%getcsv;