注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

零售创新,创新那些事儿,SPSS,VBA

零售创新

 
 
 

日志

 
 
关于我

新浪微博,零售创新 研究经理,数据分析师 希望和市场研究和零售业的同事共同进步! 本博客发表的都是免费或试用的资料,如果有版权问题请发邮件wangli12a@163.com联系删除。 spss excel vba blog

网易考拉推荐

spss syntax 分拆为不同文件的程序  

2012-06-26 15:58:04|  分类: spss学习 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |


*DATASET ACTIVATE 数据集1.//没有计算公式的同事删除下面两行

COMPUTE 现货率=现货时长 / 上柜时长.
EXECUTE.


IF  (二级分类="赠品" and 三级分类="赠品") 赠品=1.
EXECUTE.

IF  (一级分类 = "服饰鞋帽" or  商品编号   >  1000000000)  POP=1.
EXECUTE.


IF  (一级分类 = "")  新增=1.
EXECUTE.


IF  (一级分类 = "服饰鞋帽")  服饰鞋帽=1.
EXECUTE.

IF  (赠品=1 or POP=1)  过滤=1.
EXECUTE.

RECODE 过滤 (MISSING=0).
EXECUTE.

*if (miss(过滤)=1) 过滤=0.
*execute.

IF  (一级分类="电脑、办公" and 过滤=0)  IT=1.
EXECUTE.

IF  ((二级分类 = "摄影摄像"  or  二级分类 = "时尚影音"  or  二级分类 = "数码配件"  or  二级分类 = "虚拟商品" )  and 过滤=0)  数码=1.
EXECUTE.

IF  ((二级分类 = "大 家 电")  and 过滤=0)  大家电=1.
EXECUTE.

IF  ((一级分类 = "家用电器"  and  二级分类~= "大 家 电" and 二级分类~="汽车用品")  and 过滤=0)  小家电=1.
EXECUTE.

IF  (((一级分类 = "日用百货"   and 二级分类~= "服装鞋帽") or  一级分类 = "个护化妆"  or  一级分类 = "家居家装"  or  一级分类 = "母婴" or  一级分类 = "运动健康"  or  一级分类 = "钟表" or  一级分类 = "珠宝首饰" or 一级分类 = "厨具" or 一级分类 = "玩具乐器" or  一级分类 = "食品饮料、保健食品" or 一级分类 = "礼品箱包")  and 过滤=0)  日用百货=1.
EXECUTE.

IF  ((二级分类 = "手机配件"  or 二级分类 = "手机通讯" or  二级分类 = "运营商")  and 过滤=0)  手机=1.
EXECUTE.

IF  ((一级分类 = "图书")  and 过滤=0)  图书=1.
EXECUTE.

IF  ((一级分类 = "音乐"  or  一级分类 = "教育音像"  or  一级分类 = "影视" )  and 过滤=0)  音像=1.
EXECUTE.

IF  (((一级分类 = "家用电器"  and  二级分类~= "大 家 电" and  二级分类~= "厨房电器"  and  二级分类~= "个人护理" and  二级分类~= "生活电器" and  二级分类~= "五金电器" and 二级分类~= "健康电器") or 一级分类 = "汽车用品")  and 过滤=0)  汽车用品=1.
EXECUTE.

*DATASET COPY temp.               *复制当前数据集,并命名为temp.执行另存程序开始

DATASET name temp.
DATASET COPY  temp2.
DATASET ACTIVATE temp2.
FILTER OFF.
USE ALL.
SELECT IF (IT=1).
EXECUTE.
Delete variables 赠品 to 汽车用品.
save outfile "d:\IT.sav".
SAVE TRANSLATE OUTFILE='D:\IT.xlsx'
  /TYPE=XLS
  /VERSION=12
  /MAP
  /REPLACE
  /FIELDNAMES
  /CELLS=VALUES.
DATASET ACTIVATE temp.
*DATASET NAME temp2.
DATASET CLOSE temp2.

DATASET COPY  temp2.
DATASET ACTIVATE temp2.
FILTER OFF.
USE ALL.
SELECT IF (数码=1).
EXECUTE.
Delete variables 赠品 to 汽车用品.
save outfile "d:\数码.sav".
SAVE TRANSLATE OUTFILE='D:\数码.xlsx'
  /TYPE=XLS
  /VERSION=12
  /MAP
  /REPLACE
  /FIELDNAMES
  /CELLS=VALUES.
DATASET ACTIVATE temp.
*DATASET NAME temp2.
DATASET CLOSE temp2.

DATASET COPY  temp2.
DATASET ACTIVATE temp2.
FILTER OFF.
USE ALL.
SELECT IF (大家电=1).
EXECUTE.
Delete variables 赠品 to 汽车用品.
save outfile "d:\大家电.sav".
SAVE TRANSLATE OUTFILE='D:\大家电.xlsx'
  /TYPE=XLS
  /VERSION=12
  /MAP
  /REPLACE
  /FIELDNAMES
  /CELLS=VALUES.
DATASET ACTIVATE temp.
*DATASET NAME temp2.
DATASET CLOSE temp2.

DATASET COPY  temp2.
DATASET ACTIVATE temp2.
FILTER OFF.
USE ALL.
SELECT IF (小家电=1).
EXECUTE.
Delete variables 赠品 to 汽车用品.
save outfile "d:\小家电.sav".
SAVE TRANSLATE OUTFILE='D:\小家电.xlsx'
  /TYPE=XLS
  /VERSION=12
  /MAP
  /REPLACE
  /FIELDNAMES
  /CELLS=VALUES.
DATASET ACTIVATE temp.
*DATASET NAME temp2.
DATASET CLOSE temp2.

DATASET COPY  temp2.
DATASET ACTIVATE temp2.
FILTER OFF.
USE ALL.
SELECT IF (日用百货=1).
EXECUTE.
Delete variables 赠品 to 汽车用品.
save outfile "d:\日用百货.sav".
SAVE TRANSLATE OUTFILE='D:\日用百货.xlsx'
  /TYPE=XLS
  /VERSION=12
  /MAP
  /REPLACE
  /FIELDNAMES
  /CELLS=VALUES.
DATASET ACTIVATE temp.
*DATASET NAME temp2.
DATASET CLOSE temp2.

DATASET COPY  temp2.
DATASET ACTIVATE temp2.
FILTER OFF.
USE ALL.
SELECT IF (手机=1).
EXECUTE.
Delete variables 赠品 to 汽车用品.
save outfile "d:\手机.sav".
SAVE TRANSLATE OUTFILE='D:\手机.xlsx'
  /TYPE=XLS
  /VERSION=12
  /MAP
  /REPLACE
  /FIELDNAMES
  /CELLS=VALUES.
DATASET ACTIVATE temp.
*DATASET NAME temp2.
DATASET CLOSE temp2.


DATASET COPY  temp2.
DATASET ACTIVATE temp2.
FILTER OFF.
USE ALL.
SELECT IF (图书=1).
EXECUTE.
Delete variables 赠品 to 汽车用品.
save outfile "d:\图书.sav".
SAVE TRANSLATE OUTFILE='D:\图书.xlsx'
  /TYPE=XLS
  /VERSION=12
  /MAP
  /REPLACE
  /FIELDNAMES
  /CELLS=VALUES.
DATASET ACTIVATE temp.
*DATASET NAME temp2.
DATASET CLOSE temp2.

DATASET COPY  temp2.
DATASET ACTIVATE temp2.
FILTER OFF.
USE ALL.
SELECT IF (音像=1).
EXECUTE.
Delete variables 赠品 to 汽车用品.
save outfile "d:\音像.sav".
SAVE TRANSLATE OUTFILE='D:\音像.xlsx'
  /TYPE=XLS
  /VERSION=12
  /MAP
  /REPLACE
  /FIELDNAMES
  /CELLS=VALUES.
DATASET ACTIVATE temp.
*DATASET NAME temp2.
DATASET CLOSE temp2.


DATASET COPY  temp2.
DATASET ACTIVATE temp2.
FILTER OFF.
USE ALL.
SELECT IF (汽车用品=1).
EXECUTE.
Delete variables 赠品 to 汽车用品.
save outfile "d:\汽车用品.sav".
SAVE TRANSLATE OUTFILE='D:\汽车用品.xlsx'
  /TYPE=XLS
  /VERSION=12
  /MAP
  /REPLACE
  /FIELDNAMES
  /CELLS=VALUES.
DATASET ACTIVATE temp.
*DATASET NAME temp2.
DATASET CLOSE temp2.


DATASET COPY  temp2.
DATASET ACTIVATE temp2.
FILTER OFF.
USE ALL.
SELECT IF (赠品=1).
EXECUTE.
Delete variables 赠品 to 汽车用品.
save outfile "d:\赠品.sav".
SAVE TRANSLATE OUTFILE='D:\赠品.xlsx'
  /TYPE=XLS
  /VERSION=12
  /MAP
  /REPLACE
  /FIELDNAMES
  /CELLS=VALUES.
DATASET ACTIVATE temp.
*DATASET NAME temp2.
DATASET CLOSE temp2.


DATASET COPY  temp2.
DATASET ACTIVATE temp2.
FILTER OFF.
USE ALL.
SELECT IF (服饰鞋帽=1).
EXECUTE.
Delete variables 赠品 to 汽车用品.
save outfile "d:\服饰鞋帽.sav".
SAVE TRANSLATE OUTFILE='D:\服饰鞋帽.xlsx'
  /TYPE=XLS
  /VERSION=12
  /MAP
  /REPLACE
  /FIELDNAMES
  /CELLS=VALUES.
DATASET ACTIVATE temp.
*DATASET NAME temp2.
DATASET CLOSE temp2.

  评论这张
 
阅读(462)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017