网页源代码 = 到文本 (网页_访问S (编辑框1.内容, 0, , , , , , , , , , , , 5, , , , ))
' 获取文章部分的源代码
主要源代码 = 文本_取出中间文本 (网页源代码, “
”, “
' 第一次分割 以换行符分割
首次分割 = 分割文本 (主要源代码, #换行符, )
' 寻找是文章的内容数组
.计次循环首 (取数组成员数 (首次分割), i)
.如果真 (寻找文本 (首次分割 [i], “
' 第一次分割 以换行符分割
首次分割 = 分割文本 (主要源代码, #换行符, )
' 寻找是文章的内容数组
.计次循环首 (取数组成员数 (首次分割), i)
.如果真 (寻找文本 (首次分割 [i], “
- count = count + 1
重定义数组 (二次分割, 真, count)
二次分割 [count] = 首次分割 [i]
.如果真结束
.计次循环尾 ()
' 重定义数组的大小,防止数组越界
重定义数组 (文章源代码, 假, i)
重定义数组 (文章地址, 假, i)
重定义数组 (文章标题, 假, i)
' 分割文章标题和地址
.计次循环首 (取数组成员数 (二次分割), i)
文章源代码 [i] = 文本_取出中间文本 (二次分割 [i], “- ”, , )
文章地址 [i] = 文本_取出中间文本 (文章源代码 [i], #引号, #引号 + “>”) ' “……………………” +
文章标题 [i] = 文本_取出中间文本 (文章源代码 [i], #引号 + “>”, “”)
.计次循环尾 ()
' 先清空目录窗口的列表框
窗口1.列表框1.清空 ()
' 目录窗口下列表框中加入章节
.计次循环首 (取数组成员数 (文章地址), i)
窗口1.列表框1.加入项目 (文章标题 [i], i)
.计次循环尾 ()
- ”, , )
上一篇 简易的易语言MP3分割器