搜索
人大经济论坛 › 附件下载

附件下载

所在主题：
文件名:  新建文本文档.txt
资料下载链接地址: https://bbs.pinggu.org/a-1502915.html
附件大小:
模型未动，数据先行——龙哥教你用R从163.com获取日间行情数据抓取的数据可以用C++加工一下，组合成一个csv文件，然后导入ORACLE数据库，暂且按下不表。

  1. rm(list=ls())
  2. sh.list<-readLines("sh.txt",10)
  3. sz.list<-readLines("sz.txt",10)
  4. sym.list<-list(sh=sh.list,sz=sz.list)

  6. for (i in c("sz","sh"))
  7. {
  8. l<-length(sym.list[[i]])
  9. for (j in 1:l)
  10. {
  11. cat(i,j,'\n')
  12. sub.web<-"http://quotes.money.163.com/trade/lsjysj_"
  13. web<-paste(sub.web,sym.list[[i]][j],".html#06f01",sep="")
  14. str<-readLines(web,299)
  15. x<-regexpr("value=",str[299])
  16. y<-substr(str[299],x+7,x+16)
  17. z<-strsplit(y,split="-")
  18. start<-paste(z[[1]][1],z[[1]][2],z[[1]][3],sep="")
  19. sub.link1<-"http://quotes.money.163.com/service/chddata.html?code="
  20. sub.link2<-"&fields=TCLOSE;HIGH;LOW;TOPEN;LCLOSE;CHG;PCHG;TURNOVER;VOTURNOVER;VATURNOVER;TCAP;MCAP"
  21. if (i == "sh")
  22. market<-"0"
  23. else
  24. market<-"1"
  25. maturity<-paste("&start=",start,"&end=20131231",sep="")
  26. link<-paste(sub.link1,market,sym.list[[i]][j],maturity,sub.link2,sep="")
  27. file.path<-paste("E:/360/",sym.list[[i]][j],".txt",sep="")
  28. download.file(link,file.path,"internal")
  29. }

  31. }
复制代码


    熟悉论坛请点击新手指南
下载说明
1、论坛支持迅雷和网际快车等p2p多线程软件下载，请在上面选择下载通道单击右健下载即可。
2、论坛会定期自动批量更新下载地址,所以请不要浪费时间盗链论坛资源,盗链地址会很快失效。
3、本站为非盈利性质的学术交流网站,鼓励和保护原创作品，拒绝未经版权人许可的上传行为。本站如接到版权人发出的合格侵权通知，将积极的采取必要措施；同时，本站也将在技术手段和能力范围内，履行版权保护的注意义务。
(如有侵权，欢迎举报)
二维码

扫码加我 拉你入群

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

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

京ICP备16021002号-2 京B2-20170662号 京公网安备 11010802022788号 论坛法律顾问：王进律师 知识产权保护声明   免责及隐私声明

GMT+8, 2026-1-10 18:10