谁来帮我把这个128个音频下载一下,一下一下点,手都发麻了。链接在这http://download.dogwood.com.cn/online/gfxz2018/index.html。让舍友帮忙下载,结果给我说他打王者荣耀输了8场,今天必须要赢一次。然后我就一个人默默的想办法。
后来我在网上搜到了一个函数——download.file(),它今天可算是救了我一条命。它的作用得R可以从互联网上直接把数据拽下来。其调用格式为:
download.file(url, destfile, method, quiet = FALSE, mode = "w",
cacheOK = TRUE,
extra = getOption("download.file.extra"))
主要的参数为:
参数 | 作用 |
---|---|
url | 文件的所在地址 |
destfile | 下载后文件要保存的名字 |
method | 提供”internal”, “wininet” (Windows only) “libcurl”, “wget” and “curl”五种method |
关于method,在帮助文档中有很详细的说明,这样就不再赘述。
library(rvest)
url<-"http://download.dogwood.com.cn/online/gfxz2018/index.html"
page<-read_html(url,encoding="UTF-8")
durl<-page%>%html_nodes('ul div.info a')%>%html_attrs()
提取链接
durl2<-list()
for(i in 1:130)
durl2[i]<-durl[i*2]
durl3<-c(1:length(durl2)) #初始化一个和durl2长度相等的durl3
for(i in 1:length(durl2))
durl3[i]<-durl2[[i]][1]
durl3 <-durl3[-c(129:130)] #删除最后两个链接,因为那是两个视频,我不想下载。
提取音频名称
name<-page%>%html_nodes('ul div.info span')%>%html_text()
name<-name[-c(129:130)] #在这里也删除最后两个视频的名称
给每一个音频名称后面添加‘.mp3’
,这样的话下载下来就是MP3格式,否则就没有格式,需要你自己添加后缀,试想一下,128个文件,一个一个修改后缀,那要修改到什么时候,还不如我一个一个去下载,当然如果你懂得批处理的,那倒也无妨。如果你想了解如何在Windows下如何修改文件后缀,可以点击阅读原文
查看我之前写的一篇博客。
name2<-paste(name,'.mp3')
开始下载
for(i in 1:length(name2))
download.file(url=durl3[i],destfile=name2[i])
OK,下载完成,我需要的128个听力音频下载完成。这里是部分截图。
注:
转载请注明原文链接:http://blog.csdn.net/wzgl__wh
公众号:跟着菜鸟一起学R语言