sina上读取个股当日交易明细的函数——不过sina上down数据似乎不太好使,经常无法下载完全;兄弟姐妹们提供一个好的借口吧。
sinaStockDetail <-
function(code="600000")
{
src <- "
http://bill.finance.sina.com.cn/bill/trade_item_download.php?stock_code=sh"
urlcode<-paste(src, as.character(code), sep="")
file.name <- substr(urlcode, nchar(urlcode)-7, nchar(urlcode))
today <- as.character(Sys.Date())
today <- paste(substr(today, 1, 4), substr(today, 6, 7), substr(today, 9, 10), sep="")
file.name <- paste(file.name, today, ".xls", sep="")
download.file(urlcode, file.name)
}