R语言-股票数据库(1)-股票上市日期

######################################################################################################
######################################获取股票上市日期################################################
######################################################################################################
#案例参考地址：http://www.tuicool.com/articles/NFviyym#下载股票上市日期
#download the listingdate of one security
library(RCurl)
######################################沪市################################################
SH <- readLines("E:/.../数据源/沪市代码list.txt")#获取证券代码列表
listing.date <- vector(length = length(SH))
url.date1 <- "http://quotes.money.163.com/trade/lsjysj_"
url.date2 <- ".html#01b07"
#用时较久，耐心等待
for (i in 1:length(SH))
{#解析网页，得到listingdatecat(i,'\n')  #页面打印跟踪循环情况url.date <- paste(url.date1, SH[i], url.date2, sep="")xx <- getURL(url.date)posi <- regexpr("上市日",xx)listing.date[i] <- substring(xx,posi[1]-13,posi[1]-4)
}
listing.date.tab <- data.frame(code=SH,listingdate=listing.date,stringsAsFactors=FALSE)
#输出
write.table(listing.date.tab,file="E:/.../数据源/沪市股票上市日.txt",sep="\t",quote=FALSE,row.name=FALSE)######################################深市################################################
SZ <- readLines("E:/.../数据源/深市代码list.txt")#获取证券代码列表
listing.date <- vector(length = length(SZ))
url.date1 <- "http://quotes.money.163.com/trade/lsjysj_"
url.date2 <- ".html#01b07"
#用时较久，耐心等待
for (i in 1:length(SZ))
{#解析网页，得到listingdatecat(i,'\n')  #页面打印跟踪循环情况url.date <- paste(url.date1, SZ[i], url.date2, sep="")xx <- getURL(url.date)posi <- regexpr("上市日",xx)listing.date[i] <- substring(xx,posi[1]-13,posi[1]-4)
}
listing.date.tab <- data.frame(code=SZ,listingdate=listing.date,stringsAsFactors=FALSE)
#输出
write.table(listing.date.tab,file="E:/.../数据源/深市股票上市日.txt",sep="\t",quote=FALSE,row.name=FALSE)

R语言-股票数据库(1)-股票上市日期相关推荐

R语言可以直接从数据库读取数据么？R语言读取数据库数据示例
R语言可以直接从数据库读取数据么?R语言读取数据库数据示例目录 R语言可以直接从数据库读取数据么?R语言读取数据库数据示例 R语言是解决什么问题的? R语言可以直接从数据库读取数据么?R语言读取数据 ...
R语言 | 利用tushare获取股票k线、市值、换手率，市盈率等指标
作者的tushare ID:456548 作者在股市进行比较短线的投资,想开发一些高效的指标作为买卖的参考,于是需要k线.市值.换手率等数据进行研究,同花顺等软件上面大多数据不能导出,所以找到了tus ...
R语言 | 利用tushare获取股票数据实例
作者的tushare ID:456548 自学深度学习模型,因为本人热爱在支付宝上买基金,于是突发奇想,用深度学习预测涨跌. 首要要获取基金的数据,但是基金数据不好获取,就获取对应的行业指数数据用于分 ...
下载的长数据怎么分开R语言_TCGA数据库单基因gsea作业之COAD-READ
我前面写过单基因GSEA分析策略(数据分析免费做活动继续) ,然后马上就碰到了一个求助,复现下面的图表! 发表在Cancer Management and Research的简单数据挖掘杂志:Apo ...
R语言 | GEO数据库下载GSE基因芯片以及表达矩阵和临床信息的提取
目录 1.载入R包 2.利用AnnoProbe下载GEO数据库中的数据 3.提取表达矩阵和临床信息 4.输出文件 1.获得GEO数据库中的数据下面以GSE14520数据系为例: 获得GEO数据库中的 ...
R语言-股票数据库(2)-股票日K线信息-未复权
注:1.此方法获得的股票价格是实际价格,未进行前/后复权 2.只举例深市的获取方法,沪市的同理 3.步骤:先从网上爬取每个股票的交易历史,存为csv格式文件:读取csv文件 ...
R语言-股票数据库(3)-股票日K线信息-前复权-Wind
前文股票历史交易数据是未复权的,在此使用WIND数据库获取复权后价格安装Rstudio: https://www.rstudio.com/products/rstudio/download/ 安装W ...
R语言-股票数据库(4)-股票行业和概念板块数据-Wind
############################################################################################ ####### ...
用R语言实现神经网络预测股票实例
神经网络是一种基于现有数据创建预测的计算系统.最近我们被客户要求撰写关于神经网络的研究报告,包括一些图形和统计输出. 如何构建神经网络? 神经网络包括: 输入层:根据现有数据获取输入的层隐藏层:使用 ...

R语言-股票数据库(1)-股票上市日期

R语言-股票数据库(1)-股票上市日期相关推荐

最新文章

热门文章