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

附件下载

所在主题：
文件名:  stock.zip
资料下载链接地址: https://bbs.pinggu.org/a-1968679.html
本附件包括：
  • stock.csv
附件大小:
34.05 KB   举报本内容
这是获取的数据样例
代码很简单请下载
以下是获取股票分红数据代码免费赠送，没有详细的整理但是还是可以参考用的。数据文件stock.csv也可以下载
  1. setwd("F:/360yun/R");
  2. stock<-read.csv(file("stock.csv",encoding="GBK"));
  3. library(XML);
  4. i<-1
  5. #detail<-""
  6. urls<-paste("http://vip.stock.finance.sina.com.cn/corp/go.php/vISSUE_ShareBonus/stockid/",substr(stock$CODE[1:20],3,8),".phtml",sep='');
  7. for(url in urls){
  8. #url<-"http://vip.stock.finance.sina.com.cn/corp/go.php/vISSUE_ShareBonus/stockid/601766.phtml"
  9. #url2<-"http://3c.taobao.com/detail.htm?spm=872.217037.254698.11.deIiSJ&spuid=203228104&cat=1101"
  10. i_url2<-htmlParse(url,encoding="GBK");
  11. name<- getNodeSet(i_url2,"//table[@id='sharebonus_1']//tbody//tr/td");
  12. con=sapply(name, xmlValue);
  13. print(url);
  14. #if(grepl("2014",con[1])){detail[i]<-c(substr(url,76,81),con[1:8])}
  15. if(length(con)){detail<-c(substr(url,76,81),con[1:8])}
  16. i<-i+1;
  17. print(detail)
  18. }
复制代码


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

扫码加我 拉你入群

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

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

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

GMT+8, 2025-12-24 22:25