爬个小说看

最近想看本网络小说《大圣归来，我孙悟空誓必屠尽神佛！》，这个番茄读书，挺麻烦的，手机本来空间就不够，不想装太多软件。

能不能把这本小说给下载下来，慢慢看，经过几次尝试，用代码全部给爬了下来。还不错，就是后面有机会把它直接转换成DOCX文件。

代码如下：

library(rvest)

library(stringr)

#下载《大圣归来，我孙悟空誓必屠尽神佛！》

web <- read_html("https://www.nztgp.org/shuwu/10966/",encoding = "GBK")

book_name <- web %>%html_nodes("div.box_con ")%>%html_nodes("div#list a") %>% html_attr("href")

#获得章节链接地址

book_name<-paste0("https://www.nztgp.org",book_name)

for (i in 1:length(book_name)){

target_url<-book_name[i]

book_cont<-read_html(target_url,encoding = "GBK")

book_cont_1<-book_cont%>%html_nodes("div.box_con ")%>%html_text()

cont_title <- book_cont %>%html_nodes("div.box_con") %>%

html_nodes("div.bookname h1")%>% html_text()

cont_title<-str_sub(cont_title,start = 5, str_length(cont_title))

cont_cont <- book_cont %>%html_nodes("div.box_con") %>%

html_nodes("div#content")%>% html_text()

cont_cont<-str_replace_all(cont_cont,"\r\n","")

cont_cont<-paste0(cont_title,"\r", cont_cont)

write(cont_cont,paste0(cont_title,".txt"))

}