精易论坛

标题: 笔趣阁小说阅读器 [打印本页]

作者: Anyint    时间: 2019-1-11 01:58
标题: 笔趣阁小说阅读器
本程序参考了易语言速成班第二期视频教程,网址为https://www.eyuyan.tv/p152。
闲着学下易语言,还是有点意思的,能锻炼一下编程思路,这个视频教程挺适合新手学习的,推荐哈,大家一起进步,一起学习,欢迎骚扰。
第一部分 图1 程序运行效果图


第二部分 部分源代码
  
子程序名返回值类型公开备 注
访问网页 访问网页
变量名类 型静态数组备 注
网页源代码文本型 
主要源代码文本型 
首次分割文本型0
i整数型 
count整数型 
二次分割文本型0
文章源代码文本型0
' 获取网页源代码
网页源代码 = 到文本 (网页_访问S (编辑框1.内容, 0, , , , , , , , , , , , 5, , , , ))
' 获取文章部分的源代码
主要源代码 = 文本_取出中间文本 (网页源代码,
, “”, , )
' 第一次分割 以换行符分割
首次分割 = 分割文本 (主要源代码, #换行符, )
' 寻找是文章的内容数组
计次循环首 (取数组成员数 (首次分割), i)
如果真 (寻找文本 (首次分割 [i], “count = count + 1
重定义数组 (二次分割, 真, count)
二次分割 [count] = 首次分割 [i]

计次循环尾 ()
' 重定义数组的大小,防止数组越界
重定义数组 (文章源代码, 假, i)
重定义数组 (文章地址, 假, i)
重定义数组 (文章标题, 假, i)
' 分割文章标题和地址
计次循环首 (取数组成员数 (二次分割), i)
文章源代码 [i]文本_取出中间文本 (二次分割 [i], , , )
文章地址 [i]文本_取出中间文本 (文章源代码 [i], #引号, #引号“>”)  ' “https://www.biqugex.com” +
文章标题 [i]文本_取出中间文本 (文章源代码 [i], #引号“>”,
)
计次循环尾 ()
' 先清空目录窗口的列表框
窗口1.列表框1.清空 ()
' 目录窗口下列表框中加入章节
计次循环首 (取数组成员数 (文章地址), i)
窗口1.列表框1.加入项目 (文章标题 [i], i)
计次循环尾 ()

第三部分 源码附件 笔趣阁小说阅读器源码.rar (765.92 KB, 下载次数: 43)



作者: a1029688037    时间: 2019-1-11 03:02
dasdasdasadsadssdadsadasdsa
作者: sanfeng    时间: 2019-1-11 03:58
提示: 作者被禁止或删除 内容自动屏蔽
作者: coolfire1983    时间: 2019-1-11 08:49
感谢楼主开源
作者: Foreign000    时间: 2019-1-11 09:20
感谢分享,很给力!~
作者: huyuan    时间: 2019-1-11 11:20
感谢楼主分享
作者: lx9688    时间: 2019-1-11 12:20
感谢楼主开源
作者: kyo9766    时间: 2019-1-11 13:06
感谢分享,下载学习学习
作者: taotao8070    时间: 2019-1-11 13:39
这个不错,我来下载。
作者: 红岸    时间: 2019-1-11 17:57
多谢大神分享
作者: 方轻尘    时间: 2019-1-12 20:06
多谢大神分享
作者: wl9971177    时间: 2019-1-13 18:55
这个模式还可以啊
作者: yxl2008    时间: 2019-1-14 05:44
谢谢楼主热心分享,6666!




欢迎光临 精易论坛 (https://125.confly.eu.org/) Powered by Discuz! X3.4