[原创]基于WindR的成分股数据提取

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

很久没用发帖子了，最近在使用WindR，分享一下代码。

1，连接WindR

1. setwd("D:/MyDriversRoad/R_files12")
   
2. library(WindR)
   
3. w.start()

复制代码

2,是否连接

1. w.isconnected()

复制代码

3,【基于WindR获取沪深300指数成分股股价并导入至csv文件/table文件】


源码：

本帖隐藏的内容

1. #  首先创建两个新的文件夹
   
2. dir.create('HS300ConstituteCsv')
   
3. dir.create('HS300ConstituteRData')
   
4. #  获取当前的文件夹
   
5. startdate<-'2008-01-01'
   
6. enddate<-'2015-7-16'
   
7. ##  获取沪深300所有成分股的股价
   
8. fields<-c('open','high','low','close','volume')
   
9. CurrentForder<-getwd()
   
10. ##  获取沪深300证指数的成分股
    
11. HS300Index<-w.wset("IndexConstituent",
    
12.                    "date=20130608;windcode=000300.SH;field=wind_code")
    
13. HS300ConstituentIndex.Data<-HS300Index$Data
    
14. HS300ConstituentCode<-HS300ConstituentIndex.Data[,2]
    
15. CSVfile<-paste(CurrentForder,'/HS300ConstituteCsv',sep='')
    
16. RDatafile<-paste(CurrentForder,'/HS300ConstituteRData',sep='')
    
17. for (i in HS300ConstituentCode)
    
18. {
    
19.   CurrentData<-w.wsd(i,fields,startdate,
    
20.         enddate,'Fill=Previous;Priceadj=F')$Data
    
21.   CurrentDataFile<-paste(RDatafile,'/',strsplit(i,'\\.')[[1]][1],
    
22.                      'Constitute.','RData',sep='')
    
23.   CurrentCSVFile<-paste(CSVfile,'/',strsplit(i,'\\.')[[1]][1],
    
24.                         'Constitute.','csv',sep='')
    
25.   write.csv(CurrentData,CurrentCSVFile)
    
26.   save(CurrentData,file=CurrentDataFile)
    
27. }
    
28. #  查看时间
    
29. proc.time();
    
30. #  将所有的数据存储在一个文件内
    
31. HS300ConstituentData<-list()
    
32. for (i in HS300ConstituentCode)
    
33. {
    
34.   CurrentData<-w.wsd(i,fields,startdate,
    
35.                      enddate,'Fill=Previous;Priceadj=F')$Data  
    
36.   HS300ConstituentData<-c(HS300ConstituentData,list(CurrentData))
    
37. }
    
38. Names<-NULL
    
39. HS300Code<-strsplit(HS300ConstituentCode,'\\.')
    
40. for (i in c(1:300))
    
41. {
    
42.   Names<-c(Names,HS300Code[[i]][1])
    
43. }
    
44. names(HS300ConstituentData)<-Names
    
45. save(HS300ConstituentData,file='HS300ConstituentData.RData')
    
46. proc.time();
    
47. ##  【类似于Matlab的Struct的数据】

复制代码

4,【批量获取上证50高频数据】

本帖隐藏的内容

1. ##  Fantuanxiaot
   
2. rm(list=ls())
   
3. SH50Code<-w.wset('IndexConstituent',
   
4.                  'date=20150122;windcode=000016.SH;field=wind_code')
   
5. SH50Code<-SH50Code$Data
   
6. SH50Code<-SH50Code['wind_code']
   
7. SH50Code<-SH50Code[[1]]
   
8. #  选择日期
   
9. startdate<-'2015-01-01 09:30:01'
   
10. enddate<-'2015-7-16 14:30:01'
    
11. fields<-c('open','high','low','close','volume')
    
12. for (i in SH50Code)
    
13. {
    
14.   Name<-strsplit(i,'\\.')[[1]][1]
    
15.   CurrentData<-w.wsi(i, fields, startdate, enddate,
    
16.         'Fill=Previous;BarSize=15;Priceadj=F')$Data
    
17.   Currentfile<-paste(Name,'HighFreq.csv',sep='')
    
18.   write.csv(CurrentData,Currentfile)
    
19. }
    
20. #  计算时间
    
21. proc.time();
    
22. #  【这样获取了上证50成分股的所有高频数据】

复制代码

扫码加我 拉你入群

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

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

分享0 收藏18 回帖

关键词：wind 数据提取 Win IND 成分股 成分股

学习一下
我有万德终端

感谢您的分享，感谢您对本版的支持和关心。

当年在券商实习一直用WindMatlab提取，超级讨厌R==

好贴，谢谢分享。

好贴，支持。

kankan

谢谢分享

好好学习了