- library(bitops)
- library(RCurl)
- library(XML)
- library(plyr)
- testurl<-"http://data.10jqka.com.cn/market/longhu/yyb/"
- temp<-getURL(testurl,.encoding="gbk") #这步没有出现乱码
解决方法:
temp<-getURL(testurl,.encoding="gbk")
t2<-iconv(temp,"gbk","utf-8") #转码
pagetree<-htmlTreeParse(t2,asText=TRUE,useInternalNodes=TRUE,encoding="utf-8") #这步有乱码
temp_name <-xpathSApply(pagetree,"//tr/td[@class='tl']/a", xmlValue) #无乱码



雷达卡



京公网安备 11010802022788号







