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

来源：互联网发布：文化相对主义知乎编辑：程序博客网时间：2024/04/29 04:51
############################################################################################################################################获取股票上市日期#######################################################################################################################################################案例参考地址：http://www.tuicool.com/articles/NFviyym#下载股票上市日期#download the listingdate of one securitylibrary(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)
阅读全文
0 0