|
发表于 2012-7-17 14:59:29
|
显示全部楼层
天津市天津市
.版本 2
.支持库 iext
.支持库 spec
.支持库 eAPI
.支持库 RegEx
.程序集 窗口程序集1
.程序集变量 网页源码, 文本型
.程序集变量 地址数组, 文本型, , "0"
.程序集变量 名称数组, 文本型, , "0"
.程序集变量 地址数组1, 文本型, , "0"
.程序集变量 名称数组1, 文本型, , "0"
.子程序 _载入剧集按钮1_被单击
.局部变量 项目, 整数型
.局部变量 变量, 整数型
清除数组 (地址数组)
清除数组 (名称数组)
树型框1.清空 ()
项目 = 树型框1.加入项目 (, “电视机节目单”, , , , , )
网页源码 = 取网页源码 (“http://dianshiju.cntv.cn/zimupaixu/index.shtml”)
正则搜索 (网页源码, “<td><a(\s)href=” + #引号 + “http:(\/)(\/)dianshiju(\.)cntv(\.)cn(\/)” + “(.*?)” + “(\/)videopage(\/)index(\.)shtml”, , , 13, , 地址数组)
正则搜索 (网页源码, “(\/)videopage(\/)index(\.)shtml” + #引号 + “(>)” + “(.*?)” + “<(\/)a><(\/)td>”, , , 24, 9, 名称数组)
.计次循环首 (取数组成员数 (名称数组), 变量)
树型框1.加入项目 (项目, 名称数组 [变量], , , , , )
树型框1.扩展 (项目)
.计次循环尾 ()
.子程序 _树型框1_双击项目
.局部变量 项目, 整数型
.局部变量 临时名称数组, 文本型, , "0"
.局部变量 临时地址数组, 文本型, , "0"
.局部变量 变量, 整数型
' 输出调试文本 (树型框1.取项目数值 (树型框1.现行选中项))
.如果 (树型框1.取项目数值 (树型框1.现行选中项) = 0)
.计次循环首 (取数组成员数 (名称数组), 变量)
.如果真 (名称数组 [变量] = 树型框1.取项目文本 (树型框1.现行选中项))
网页源码 = 取网页源码 (地址数组 [变量])
跳出循环 ()
.如果真结束
.计次循环尾 ()
正则搜索 (网页源码, “','http:(\/)(\/)dianshiju(\.)cntv(\.)cn(\/)” + “(.*?)” + “(\/)video(\/)([0-9]+)(\/)([0-9]+)(\.)shtml”, , , 3, , 临时地址数组)
正则搜索 (网页源码, “v\_c\_item\[c\_loop\+\+\]” + “(.*?)” + “http:”, , , 38, 8, 临时名称数组)
项目 = 树型框1.现行选中项
调试输出 (取数组成员数 (临时名称数组))
调试输出 (取数组成员数 (临时地址数组))
.如果真 (取数组成员数 (临时地址数组) - 取数组成员数 (临时名称数组) = 0)
.计次循环首 (取数组成员数 (临时名称数组), 变量)
加入成员 (名称数组1, 临时名称数组 [变量])
加入成员 (地址数组1, 临时地址数组 [变量])
树型框1.加入项目 (项目, 临时名称数组 [变量], , , 取数组成员数 (名称数组1), , )
树型框1.扩展 (项目 + 1)
.计次循环尾 ()
.如果真结束
.如果真 (取数组成员数 (临时地址数组) - 取数组成员数 (临时名称数组) < 0)
信息框 (“该剧连接地址缺失!!”, 0, )
.如果真结束
.如果真 (取数组成员数 (临时地址数组) - 取数组成员数 (临时名称数组) > 0)
信息框 (“该剧连接名称缺失!!”, 0, )
.如果真结束
.否则
打开指定网址 (地址数组1 [树型框1.取项目数值 (树型框1.现行选中项)])
' 本想用flash播放器播放,但是无法找到网页调用的swf文件及flash的接口,请高手完善。
.如果结束
.子程序 取网页源码, 文本型
.参数 地址, 文本型
.参数 方法, 文本型, 可空, POST或GET
.参数 数据, 文本型, 可空, 需要提交的数据
.局部变量 对象, 对象
.局部变量 bp, 字节集
.局部变量 源码_, 文本型
.如果真 (是否为空 (方法) 或 方法 = “” 或 方法 = “get” 或 方法 = “GET”)
方法 = “get”
.如果真结束
.如果 (对象.创建 (“msxml2.xmlhttp”, ))
对象.方法 (“open”, 方法, 地址, 假)
对象.方法 (“send”, 数据)
bp = 对象.读属性 (“responseBody”, ).取字节集 ()
源码_ = 到文本 (bp)
.否则
源码_ = “”
.如果结束
返回 (源码_)
.子程序 正则搜索
.参数 文本, 文本型, , 要执行搜索的内容
.参数 表达式, 文本型, , 正则表达式
.参数 头部文本, 文本型, 可空, 在头部添加文字
.参数 尾部文本, 文本型, 可空, 在尾部添加文字
.参数 删头长度, 整数型, 可空, 搜索出来的删除不需要的文字
.参数 删尾长度, 整数型, 可空, 搜索出来的删除不需要的文字
.参数 搜索数组, 文本型, 数组, 返回所有的数组
.局部变量 位置_, 整数型
.局部变量 n, 整数型
.局部变量 临时文本, 文本型
.局部变量 正则, 正则表达式
.局部变量 搜索结果, 搜索结果, , "0"
正则.创建 (表达式, )
搜索结果 = 正则.搜索全部 (文本)
.计次循环首 (取数组成员数 (搜索结果), n)
临时文本 = 搜索结果 [n].取匹配文本 (文本, 位置_)
临时文本 = 取文本中间 (临时文本, 删头长度 + 1, 取文本长度 (临时文本) - 删头长度 - 删尾长度)
加入成员 (搜索数组, 头部文本 + 临时文本 + 尾部文本)
.计次循环尾 ()
.子程序 _搜索剧集按钮1_被单击
.局部变量 位置_, 整数型
.计次循环首 (树型框1.取项目数 (), 位置_)
.如果真 (寻找文本 (树型框1.取项目文本 (位置_), 编辑框1.内容, , 假) > 0)
树型框1.现行选中项 = 位置_
树型框1.保证显示 (位置_)
树型框1.获取焦点 ()
跳出循环 ()
.如果真结束
.计次循环尾 ()
|
|