############################################################################################################################################获取股票上市日期#######################################################################################################################################################案例参考地址：/articles/NFviyym#下载股票上市日期#download the listingdate of one securitylibrary(RCurl)######################################沪市################################################SH <- readLines("E:/.../数据源/沪市代码list.txt")#获取证券代码列表listing.date <- vector(length = length(SH))url.date1 <- "http://quotes./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./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)
