筆趣閣小說(shuō)下載

package downloadxiaoshuo

import okhttp3.OkHttpClient
import okhttp3.Request
import java.io.FileWriter
import java.io.StringReader
import java.io.StringWriter

val client = OkHttpClient()

fun genReq(nextSubUrl: String): Request {
    return Request.Builder()
            .url("http://www.biqukan.com/24_24845/$nextSubUrl")
            .build()

}


fun main(args: Array<String>) {

    var nextSubUrl = "8661600.html"
    var article = 1

    val writer = FileWriter("萬(wàn)劍道尊.txt")
//    val buffer = StringWriter()
//
    var count = 3
    while (true) {
        val string = client.newCall(genReq(nextSubUrl)).execute().body()?.string()
//    println(string)
        val sb = StringBuffer()
        StringReader(string).readLines().forEach {
            if (it.startsWith("var next_page =")) {
                val start = it.indexOf("\"") + 1
                val end = it.lastIndexOf("\"")
                nextSubUrl = it.substring(start, end).replace("/24_24845", "")
                print("第${article}篇：$nextSubUrl  ")
                article++
            }

            if (it.startsWith("<h1>")) {
                val title = it.replace("<h1>", "")
                        .replace("</h1>", "")
                print("標(biāo)題:$title    ")
                sb.append(title).append("\n")
            }

            if (it.startsWith("<div id=\"content\" class=\"showtxt\">")) {
                val text = it.replace("<div id=\"content\" class=\"showtxt\">", "")
                        .replace("</div>", "")
                        .replace("<br />", "\n")
                        .replace("&nbsp;", " ")
                println("篇幅：${text.length}")
                sb.append(text).append("\n").append("\n").append("\n").append("\n").append("\n").append("\n")
                writer.write(sb.toString())
//            writer.flush()
                return@forEach
            }
        }
        if (nextSubUrl.isBlank()) {
            writer.flush()
            return
        }
    }
}
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請(qǐng)聯(lián)系作者
  • 人面猴
    序言：七十年代末，一起剝皮案震驚了整個(gè)濱河市，隨后出現(xiàn)的幾起案子恶阴，更是在濱河造成了極大的恐慌衣式，老刑警劉巖慢叨，帶你破解...
    沈念sama閱讀 216,470評(píng)論 6贊 501
  • 死咒
    序言：濱河連續(xù)發(fā)生了三起死亡事件巴席，死亡現(xiàn)場(chǎng)離奇詭異匿情，居然都是意外死亡疼进，警方通過(guò)查閱死者的電腦和手機(jī)薪缆，發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 92,393評(píng)論 3贊 392
  • 救了他兩次的神仙讓他今天三更去死
    文/潘曉璐 我一進(jìn)店門，熙熙樓的掌柜王于貴愁眉苦臉地迎上來(lái)，“玉大人拣帽，你說(shuō)我怎么就攤上這事疼电。” “怎么了减拭？”我有些...
    開(kāi)封第一講書人閱讀 162,577評(píng)論 0贊 353
  • 道士緝兇錄：失蹤的賣姜人
    文/不壞的土叔 我叫張陵蔽豺，是天一觀的道長(zhǎng)。 經(jīng)常有香客問(wèn)我拧粪，道長(zhǎng)修陡，這世上最難降的妖魔是什么？ 我笑而不...
    開(kāi)封第一講書人閱讀 58,176評(píng)論 1贊 292
  • ?港島之戀（遺憾婚禮）
    正文 為了忘掉前任可霎，我火速辦了婚禮魄鸦，結(jié)果婚禮上，老公的妹妹穿的比我還像新娘癣朗。我一直安慰自己拾因，他們只是感情好，可當(dāng)我...
    茶點(diǎn)故事閱讀 67,189評(píng)論 6贊 388
  • 惡毒庶女頂嫁案：這布局不是一般人想出來(lái)的
    文/花漫 我一把揭開(kāi)白布旷余。 她就那樣靜靜地躺著绢记，像睡著了一般。 火紅的嫁衣襯著肌膚如雪正卧。 梳的紋絲不亂的頭發(fā)上庭惜，一...
    開(kāi)封第一講書人閱讀 51,155評(píng)論 1贊 299
  • 城市分裂傳說(shuō)
    那天，我揣著相機(jī)與錄音穗酥，去河邊找鬼。 笑死惠遏，一個(gè)胖子當(dāng)著我的面吹牛砾跃，可吹牛的內(nèi)容都是我干的。 我是一名探鬼主播节吮，決...
    沈念sama閱讀 40,041評(píng)論 3贊 418
  • 雙鴛鴦連環(huán)套：你想象不到人心有多黑
    文/蒼蘭香墨 我猛地睜開(kāi)眼抽高，長(zhǎng)吁一口氣：“原來(lái)是場(chǎng)噩夢(mèng)啊……” “哼！你這毒婦竟也來(lái)了透绩？” 一聲冷哼從身側(cè)響起翘骂，我...
    開(kāi)封第一講書人閱讀 38,903評(píng)論 0贊 274
  • 萬(wàn)榮殺人案實(shí)錄
    序言：老撾萬(wàn)榮一對(duì)情侶失蹤，失蹤者是張志新（化名）和其女友劉穎帚豪，沒(méi)想到半個(gè)月后碳竟，有當(dāng)?shù)厝嗽跇?shù)林里發(fā)現(xiàn)了一具尸體，經(jīng)...
    沈念sama閱讀 45,319評(píng)論 1贊 310
  • ?護(hù)林員之死
    正文 獨(dú)居荒郊野嶺守林人離奇死亡狸臣，尸身上長(zhǎng)有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點(diǎn)故事閱讀 37,539評(píng)論 2贊 332
  • ?白月光啟示錄
    正文 我和宋清朗相戀三年莹桅，在試婚紗的時(shí)候發(fā)現(xiàn)自己被綠了。 大學(xué)時(shí)的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片烛亦。...
    茶點(diǎn)故事閱讀 39,703評(píng)論 1贊 348
  • 活死人
    序言：一個(gè)原本活蹦亂跳的男人離奇死亡诈泼，死狀恐怖懂拾，靈堂內(nèi)的尸體忽然破棺而出，到底是詐尸還是另有隱情铐达，我是刑警寧澤岖赋，帶...
    沈念sama閱讀 35,417評(píng)論 5贊 343
  • ?日本核電站爆炸內(nèi)幕
    正文 年R本政府宣布，位于F島的核電站瓮孙，受9級(jí)特大地震影響唐断，放射性物質(zhì)發(fā)生泄漏。R本人自食惡果不足惜衷畦，卻給世界環(huán)境...
    茶點(diǎn)故事閱讀 41,013評(píng)論 3贊 325
  • 男人毒藥：我在死后第九天來(lái)索命
    文/蒙蒙 一栗涂、第九天 我趴在偏房一處隱蔽的房頂上張望。 院中可真熱鬧祈争，春花似錦斤程、人聲如沸。這莊子的主人今日做“春日...
    開(kāi)封第一講書人閱讀 31,664評(píng)論 0贊 22
  • 一樁弒父案忿墅，背后竟有這般陰謀
    文/蒼蘭香墨 我抬頭看了看天上的太陽(yáng)。三九已至沮峡，卻和暖如春疚脐，著一層夾襖步出監(jiān)牢的瞬間，已是汗流浹背邢疙。 一陣腳步聲響...
    開(kāi)封第一講書人閱讀 32,818評(píng)論 1贊 269
  • 情欲美人皮
    我被黑心中介騙來(lái)泰國(guó)打工棍弄， 沒(méi)想到剛下飛機(jī)就差點(diǎn)兒被人妖公主榨干…… 1. 我叫王不留，地道東北人疟游。 一個(gè)月前我還...
    沈念sama閱讀 47,711評(píng)論 2贊 368
  • 代替公主和親
    正文 我出身青樓呼畸，卻偏偏與公主長(zhǎng)得像，于是被迫代替她去往敵國(guó)和親颁虐。 傳聞我的和親對(duì)象是個(gè)殘疾皇子蛮原，可洞房花燭夜當(dāng)晚...
    茶點(diǎn)故事閱讀 44,601評(píng)論 2贊 353

推薦閱讀更多精彩內(nèi)容