王笑权
data a;
infile 'd:\sj\药价64.txt';
length dh $ 28. name $ 20. cd $ 20. gg $ 18.;
dh='xsd08060188';kd='张老板;yd='某某药店';time=20081208;
input name $ cd $ gg $ ph $ sx dw $ dj n;y=dj*n;proc print; sum y;run;
data b;
infile 'd:\sj\药价表.txt';
length dh $ 28. name $ 20. cd $ 20. gg $ 18.;
label dh='单号' kd='开单人' yd='药店' time='时间' name='药物名称' cd='产地' gg='规格' ph='批号' sx='失效期'
dw='单位' dj='单价' n='数量' y='小计';
input dh $ kd $ yd $ time name $ cd $ gg $ ph $ sx dw $ dj n;run;
data c;set b a(drop=y);proc sort;by name dj descending time;/*<-out xx>*/
data d;set c;file 'd:\sj\新药价表.txt';
put dh $ kd $ yd $ time name $ cd $ gg $ ph $ sx dw $ dj n;
proc print;
run;
data e;set d;if time<=20070101 then delete;if name=lag(name) then delete;
where name='速效救心丸'|name='roxthromycin片'|name='顺风康王'|name='b6软膏'|name='ad胶丸'|name='奶味钙片'|name='co甘草片'
|name='克咳敏片'|name='bromosaval针'|name='cetirizine胶囊'|name='pn针'|name='咳特林胶囊'|name='azirhromycin片'
|name='咳快好片'|name='ibuprofen胶囊'|name='ad胶丸'|name='cisapride片'|name='罗红霉素片'|name='康泰克胶囊'
|name='输液器'|name='急支糖浆'|name='咳速停糖浆'|name='鲜竹沥' |name='蛇胆川贝液' |name='levofloxacin片'|name
='阿莫西林胶囊'|name='cefalexin胶囊'|name='clindamycin胶囊'|name='coab针'|name='dm针'|name='lincomycin针'
|name='康泰克胶囊'|name='ceftriaxone针'|name='cefoperazone针'|name='lidocaine针'|name='21金维他'
|name='gns'|name='ligustrazine针'|name='micronomycin针'|name='amikacin针';
file '桌面\最便宜药价.txt';
put name $ cd $ gg $ ph $ sx dw $ dj n;
y=dj*n;
proc print data=e noobs label;
sum y;
run;
