读取郑州商品交易所数据

zcePrice.r

# 读取郑州商品交易所数据
# 接口举例 
#  (1) http://www.czce.com.cn/portal/exchange/2012/datadaily/20121205.htm
#  (2) http://www.czce.com.cn/portal/exchange/2012/datadaily/20121205.txt 

zceDatabase <- NULL

for(date in c("20121202","20121206")){
	str <- "http://www.czce.com.cn/portal/exchange/2012/datadaily/"
	url <- paste(str,date,".txt",sep="")	
	if(!url.exists(url)){
		next
	}else{	
		colnames <- c("品种月份","昨结算","今开盘","最高价","最低价","今收盘","今结算","涨跌1","涨跌2","成交量","空盘量","增减量","成交额","交割结算价")
		fileName <- paste("zce",date,".txt",sep="")	
		download.file(url,fileName,quiet=T)	

		zceData <- read.table(fileName, header = F,skip = 1,sep = ",", col.names = colnames)
		zceData <- zceData[(zceData[,1]!="小计")&(zceData[,1]!="总计"),]	
		zceData$date <- date
		
		if(is.null(zceDatabase)){
			zceDatabase <- zceData
		}else{		
			zceDatabase <- rbind(zceDatabase,zceData)
		}
	}
}