用R抓取交易所大宗交易数据-经管之家官网！

经济学管理学金融学统计学

您当前的位置> 考研考博>>

用R抓取交易所大宗交易数据

发布：马甲1号 | 分类：考研

关于本站

人大经济论坛-经管之家：分享大学、考研、论文、会计、留学、数据、经济学、金融学、管理学、统计学、博弈论、统计年鉴、行业分析包括等相关资源。
经管之家是国内活跃的在线教育咨询平台!

提供"微信号、微博、抖音、快手、头条、小红书、百家号、企鹅号、UC号、一点资讯"等虚拟账号交易，真正实现买卖双方的共赢。【请点击这里访问】

TOP热门关键词

专题页面精选

library(RCurl)library(rjson)library(XML)getdzjy.sh<-function(whichdate){BASEURL_SH='http://query.sse.com.cn/commonQuery.do'post_sh=c(jsonCallBack='jsonpCallback12345',isPagination='true',sqlId='COMM ...

扫码加入金融交流群

library(RCurl)
library(rjson)
library(XML)
getdzjy.sh <- function(whichdate){
BASEURL_SH = 'http://query.sse.com.cn/commonQuery.do'
post_sh=c( jsonCallBack='jsonpCallback12345',isPagination='true',sqlId='COMMON_SSE_XXPL_JYXXPL_DZJYXX_L',stockId='',startDate= whichdate,endDate=whichdate,pageHelp.pageSize='10000',pageHelp.cacheSize='10000',num='')
cn = postForm(BASEURL_SH, .params=post_sh, .opts = list(referer = 'http://www.sse.com.cn/disclosure/diclosure/block/'))
m=regexpr('jsonpCallback12345.*\"data\":(?P<purejson>\\[.+\\])\\,\"sqlId\"', cn, perl=T)
purejson = substr(cn, attr(m, 'capture.start'), attr(m, 'capture.start')+attr(m, 'capture.length')-1)
purejson.parsed=fromJSON(purejson)
outdf = Reduce(function(...) merge(...,all=T),lapply(purejson.parsed, data.frame))
outdf2 = outdf[grepl('[36]\\d{5}|00[02]\\d{3}',outdf$stockid ),c('tradedate', 'stockid', 'abbrname', 'tradeprice', 'tradeqty', 'tradeamount', 'branchbuy', 'branchsell')]
names(outdf2)=c("交易日期", "证券代码", "证券简称", "成交价格", "成交量", "成交金额",
"买方营业部", "卖方营业部")
outdf2
}
getdzjy.sz <- function(whichdate){
BASEURL_SZ = 'http://www.szse.cn/szseWeb/FrontController.szse'
post_sz=c(ACTIONID=7, CATALOGID='1265_xyjy',txtKsrq=whichdate,txtZzrq=whichdate, TABKEY='tab1')
pgnum= -1
pg=1
datatable=NULL
while(T){
print( sprintf('pg=%d/pgnum=%d',pg,pgnum))
if(pg==1){
cn=getForm(BASEURL_SZ, .params = post_sz, .opts = list(referer='http://www.szse.cn/main/disclosure/news/dzjy/'))
m=regexpr('tab1PAGECOUNT=(\\d+)&', cn, perl=T)
pgnum=as.numeric(substr(cn, attr(m, 'capture.start'),attr(m, 'capture.start')+attr(m, 'capture.length')-1))
}else{
post_sz2= c(tab1PAGENUM=pg, tab1PAGECOUNT=pgnum)
cn=getForm(BASEURL_SZ, .params =c( post_sz, post_sz2), .opts = list(referer='http://www.szse.cn/main/disclosure/news/dzjy/'))
}
cn.utf8=iconv(cn, 'gbk','utf-8')
parsed = htmlParse(cn.utf8, encoding = 'utf-8')
parsed.table=getNodeSet(parsed, '//table[@id="REPORTID_tab1"]')
datatable.new = readHTMLTable( parsed.table[[1]])
datatable=rbind(datatable, datatable.new)
pg=pg+1
if(pg>pgnum)break
}
datatable
}
main <- function(){
TODAY= format(Sys.Date())
a=getdzjy.sz(TODAY)
b=getdzjy.sh(TODAY)
dzjy_today=rbind(a,b)
}

复制代码

「经管之家」APP：经管人学习、答疑、交友，就上经管之家！
免流量费下载资料----在经管之家app可以下载论坛上的所有资源，并且不额外收取下载高峰期的论坛币。
涵盖所有经管领域的优秀内容----覆盖经济、管理、金融投资、计量统计、数据分析、国贸、财会等专业的学习宝库，各类资料应有尽有。
来自五湖四海的经管达人----已经有上千万的经管人来到这里，你可以找到任何学科方向、有共同话题的朋友。
经管之家（原人大经济论坛），跨越高校的围墙，带你走进经管知识的新世界。
扫描下方二维码下载并注册APP

本文关键词：

本文论坛网址：https://bbs.pinggu.org/thread-3124510-1-1.html

上一篇 | 转载——论高校政治：方舟子同学这次的建 ...

下一篇 | excel数据导入stata为什么不能讲第一行作 ...

考研精彩帖子推荐更多

您可能感兴趣的文章

本站推荐的文章

人气文章

本文标题：用R抓取交易所大宗交易数据

本文链接网址：https://bbs.pinggu.org/jg/kaoyankaobo_kaoyan_3124510_1.html

1.凡人大经济论坛-经管之家转载的文章,均出自其它媒体或其他官网介绍,目的在于传递更多的信息,并不代表本站赞同其观点和其真实性负责；
2.转载的文章仅代表原创作者观点,与本站无关。其原创性以及文中陈述文字和内容未经本站证实,本站对该文以及其中全部或者部分内容、文字的真实性、完整性、及时性，不作出任何保证或承若；
3.如本站转载稿涉及版权等问题,请作者及时联系本站,我们会及时处理。

用R抓取交易所大宗交易数据-经管之家官网！

考研