# 从网站上读取所有表格文件
library(XML)
url <- "http://www.sse.com.cn/market/dealingdata/overview/stock/ashare/"
tbls <- readHTMLTable(url)
# 输出表格列表中的元素
d1<-as.Date(sub('(前1交易日)', '', tbls[[2]][4,1], fixed=TRUE), format="%Y-%m-%d")
hd<-c("亿元","万股","万笔")
d2<-as.numeric(gsub(hd[1],"\\1",tbls[[4]][1,2],fixed=TRUE))
d3<-as.numeric(gsub(hd[2],"\\1",tbls[[4]][2,2],fixed=TRUE))
d4<-as.numeric(gsub(hd[3],"\\1",tbls[[4]][3,2],fixed=TRUE))
d5<-as.numeric(gsub(hd[1],"\\1",tbls[[4]][1,4],fixed=TRUE))
d6<-as.numeric(gsub(hd[1],"\\1",tbls[[4]][2,4],fixed=TRUE))
d7<-as.numeric(gsub("","\\1",tbls[[4]][3,4]))
dta<-data.frame(d1, d2, d3, d4, d5, d6, d7)
系统是MacOS
用Cron定时运行这个小程序
但是获得的数据后面有乱码
10/23/14 171323.81<U+4EBF><U+5143> 1629147.78<U+4E07><U+80A1> 639.39<U+4E07><U+7B14> 152825.71<U+4EBF><U+5143> 1409.11<U+4EBF><U+5143> 11.22
请问如何解决啊,非常感谢