|

楼主 |
发表于 2021-10-14 06:32:06
|
显示全部楼层
江西省上饶市
变量名 | 类 型 | 静态 | 数组 | 备 注 | 文件2 | 文本型 | | 0 | 表项 | 整数型 | | | i | 整数型 | | | 文件 | 文本型 | | | 清空bkj ()文件 = 编辑框14.内容 文件2 = 分割文本 (文件, 字符 (10 ), ) 计次循环首 (取数组下标 (文件2, ), i )  如果真 (取数组成员数 (文件2 ) > 1 )  表项 = 超级列表框6. 插入表项 (, , , , , )  超级列表框6. 置标题 (表项, 0, 到文本 (i ))   超级列表框6. 置标题 (表项, 2, 文件2 [i ]) 处理事件 () 计次循环尾 () 判断循环首 (注册序号 < 超级列表框6. 取表项数 ())  如果真 (线程数量 < 10 )  注册序号 = 注册序号 + 1   线程ID = 线程_启动 (&注册 )  ID表项记录 = ID表项记录 + 1   线程数量 = 线程数量 + 1 处理事件 () 判断循环尾 ()整合数据 ()超级列表框6. 全部删除 ()变量名 | 类 型 | 静态 | 数组 | 备 注 | 索引 | 整数型 | | | url | 文本型 | | | i | 整数型 | | | 取出文本 | 文本型 | | |
处理表项记录 = 处理表项记录 + 1 索引 = 处理表项记录 - 1 如果 (寻找文本 (超级列表框6. 取标题 (索引, 0 ), “http”, , 假) = -1 ) 超级列表框6. 置标题 (索引, 1, 超级列表框6. 取标题 (索引, 0 )) 网页_访问S (超级列表框6. 取标题 (索引, 0 ), , , , , , , 真, , , , , , , url ) 超级列表框6. 置标题 (索引, 1, url ) 超级列表框6. 保证显示 (索引 )线程数量 = 线程数量 - 1 变量名 | 类 型 | 静态 | 数组 | 备 注 | i | 整数型 | | | 取出文本 | 文本型 | | |
编辑框14.内容 = “” 计次循环首 (超级列表框6. 取表项数 (), i ) 取出文本 = 超级列表框6. 取标题 (i - 1, 1 ) + #换行符  编辑框14. 加入文本 (取出文本 ) 计次循环尾 () 如果 (目录_是否存在 (取特定目录 ( #系统桌面 ) + mulu )) 写到文件 (取特定目录 ( #系统桌面 ) + “\” + mulu + “\” + 文本_转拼音 (标签36.标题, , , 真) + “.m3u8”, 到字节集 (编辑框14.内容 )) 目录_创建 (取特定目录 ( #系统桌面 ) + mulu ) 写到文件 (取特定目录 ( #系统桌面 ) + “\” + mulu + “\” + 文本_转拼音 (标签36.标题, , , 真) + “.m3u8”, 到字节集 (编辑框14.内容 ))
|
|