0、有人要求我提供daily的数据

1、yahoo中自己做了adjusted close price，免得我花时间再去找其他数据修正

2、速度勉强可以

如果大家有更好的数据源，给介绍下！

#############################

#StockCode.txt 文件中保存了沪市个股的列表（部分）

#你也可以收集深圳的数据，但是要保证code是准确的，否则没法下载

codelist <- read.table("StockCode.txt", colClasses=c("character"))[,1]

setwd("yourPath")

require(fSeries, quietly=T)

# 似乎只能下子2001年以后的数据，更早的就没有了

yahooStock <-

function(code="600001", dest.path=getwd())

{

code <- as.character(code)

code1 <- ifelse(substr(code, 1, 1)=="0",

paste(code, ".SZ", sep=""),

paste(code, ".SS", sep=""))

query <- paste("s=", code1, "&d=8&e=29&f=2007&g=d&a=0&b=1&c=2001&ignore=.csv", sep="")

dat <- yahooImport(query)@data

names(dat) <- c("Time", "Open", "High", "Low", "Close", "Volume", "AdjClose")

setwd(dest.path)

file.name <- ifelse(substr(code, 1, 1)=="0",

paste("SZ", code, ".csv", sep=""),

paste("SS", code, ".csv", sep=""))

write.csv(dat, file.name, row.names=F)

}

files <- dir()

files <- files[substr(files, 1, 3)=="SS6"]

code.files <- substr(files, 3, 8)

# 600009等股票无法下载！为了保证不出现下载错误，把这些删除先

codelist <- setdiff(codelist, c("600009", "600457", "600554"))

codes <- setdiff(codelist, code.files)

# 开始干活

for(code in codes) yahooStock(code)

##########################################

类似办法，可以读取交易明晰等，设置好了每天按时下载——sina上似乎只保留当天的数据——数据量有点大，可以考虑读取的新数据直接倒入到数据库中。

python等脚本语言也是做这个工作的好工具，各位不妨试一试