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))
{
  #解析网页，得到listingdate
  cat(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))
{
  #解析网页，得到listingdate
  cat(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)