#本地读取通达信数据
readTDXB <- function(stockName)
{
tdx <-read.csv(file = paste(stockName,".csv",sep = ""),header = FALSE,sep = ",",skip = 2)[,1:6]
names(tdx) <- c("DATETIME","Open","High","Low","Close","Volume")
tdxxts <- as.xts(tdx[,-1],as.Date(tdx$DATETIME))
return(na.trim(tdxxts))
}
原文：http://www.cnblogs.com/aipeli/p/6512751.html