360影视搜索
如意影视360搜索 改不出来 谁能帮忙下 就差搜索 其他自己全部改好了 谁有360搜索代码 或给个提示也行事件 多线程s.取网页源码完毕(源码 为 文本型)
变量 正则公式 为 文本型
变量 图片 为 文本型
变量 标题 为 文本型
变量 内容地址 为 文本型
变量 评分 为 文本型
变量 简介 为 文本型
变量 更多内容 为 文本型
变量 类型 为 文本型
变量 类型文本 为 文本型
变量 演员 为 文本型
变量 演员1 为 文本型()
变量 演员文本 为 文本型
变量 年代 为 文本型
变量 地区 为 文本型
变量 集数 为 文本型
变量 分类 为 文本型
变量 取出文本 为 文本型
变量 视频类型 为 文本型
变量 演员数据 为 文本型
变量 演员资料源码 为 文本型
变量 演员别名 为 文本型
变量 演员生日 为 文本型
变量 演员星座 为 文本型
变量 演员血型 为 文本型
变量 演员身高 为 文本型
变量 演员体重 为 文本型
变量 演员介绍 为 文本型
变量 作品源码 为 文本型
变量 i 为 整数型
变量 部分 为 文本型
变量 循环变量 为 整数型
变量 数据数组 为 文本型()
如果 源码 = "" 则
搜索状态.图像 = "mywl.png"
搜索状态.可视 = 真
否则如果 寻找文本(源码,"详细资料",0) <> -1 则
滑动页面框1.置现行页面2(1)
演员资料.清空项目()
视频图片列表1.清空项目()
如果 寻找文本(源码,"<div class='a-engine-body' data-logger='b=artist_so'>",0) <> -1 且 寻找文本(源码,"</dl></div>",0) <> -1 则
演员资料源码 = 取指定文本2(源码,"<div class='a-engine-body' data-logger='b=artist_so'>","</dl></div>")
图片 = 取指定文本2(演员资料源码,"<img src='","' alt=")
演员文本 = 取指定文本2(演员资料源码,"alt='","' />")
演员别名 = "别名：" & 取指定文本2(演员资料源码,"<span class='w-star-alias'>","</span>")
地区 = "地区：" & 取指定文本2(演员资料源码,"地区：</b><span>","</span>")
演员生日 = "生日：" & 取指定文本2(演员资料源码,"生日：</b><span>","</span>") & ""
演员星座 = "星座：" & 取指定文本2(演员资料源码,"星座：</b><span>","</span>")
演员血型 = "血型：" & 取指定文本2(演员资料源码,"血型：</b><span>","</span>")
演员身高 = "身高：" & 取指定文本2(演员资料源码,"身高：</b><span>","</span>") & ""
演员体重 = "体重：" & 取指定文本2(演员资料源码,"体重：</b><span>","</span>")
演员介绍 = "介绍：" & 取文本左边(取指定文本2(演员资料源码,"介绍：</dt><dd>","</dd>"),100) & "...."
演员资料.添加项目(图片,演员文本,演员别名 & "\n" &地区& "\n" & 演员生日 & 演员星座 & "\n" & 演员血型& "\n" & 演员身高 & 演员体重 & "\n" & 演员介绍 ,"","")
结束 如果
如果 寻找文本(源码,"<ul class=\"b-tab b-tab-kan g-clear\" id='js-b-tab'>",0) <> -1 且 寻找文本(源码,"<div class=' js-logger' >",0) <> -1 则
作品源码 = 取指定文本2(源码,"<ul class=\"b-tab b-tab-kan g-clear\" id='js-b-tab'>","<div class=' js-logger' >")
selflj = 取指定文本(作品源码,"href=\"","\">")
selfbt = 取指定文本(作品源码,"=\">","</a>")
Tab特效1.初始内容(selfbt)
结束 如果
正则公式 = 读入资源文件("z_yy.txt","gbk")
创建表达式(正则公式,真,真)
开始匹配(源码)
判断循环首 匹配下一个()
图片 = 取子匹配文本(2)
标题 = 子文本替换(子文本替换(取子匹配文本(3),"<b>",""),"</b>","")
年代 = 取子匹配文本(5)
内容地址 = 取子匹配文本(6)
评分 = 取指定文本2(取子匹配文本(7),"<b class='w-mfigure-score'>","</b>")
视频图片列表1.添加项目(图片,标题,年代,"",14,白色,&HFF0088FF,评分,14,&HFFFF0000,&H60000000,内容地址)
判断循环尾
视频图片列表1.刷新项目()
如果 视频图片列表1.取项目数() = 0 且 演员资料.取项目数() > 0 则
演员状态.图像 = "mynr.png"
演员状态.可视 = 真
否则如果 视频图片列表1.取项目数() = 0 且 演员资料.取项目数() = 0 则
搜索状态.图像 = "myso.png"
搜索状态.可视 = 真
结束 如果
否则
变量 第一行 为 文本型 = "<a href=\"(.*?)\" class=\"g-playicon js-playicon\" title=\"(.*?)\" data-logger=\'ctype=detail\'data-longrecord=\"(.*?)\">[\\s\\S]*?<img src=\"(.*?)\" alt=\"(.*?)\" />"
滑动页面框1.置现行页面2(0)
高级列表框1.清空项目()
正则公式 = 第一行
创建表达式(正则公式,真,真)
开始匹配(源码)
判断循环首 匹配下一个()
图片 = 取子匹配文本(4)
标题 = 取子匹配文本(2)
内容地址 = 取子匹配文本(1)
更多内容 = 取指定文本2(源码,取匹配文本(),"详细")
视频类型 = 取文本左边(取指定文本2(更多内容,"<span class=\"playtype\">","</span>"),2)
评分 = 取指定文本2(更多内容,"<div class=\"m-score\">","</div>")
如果 评分 = "" 则
评分 = "0.0"
结束 如果
'类型 = 取指定文本(取指定文本2(更多内容,"<b>类型：</b>","</li>"),"<span>","</span>")
类型文本 = ""
演员文本 = ""
'i = 0
'判断循环首 i < 取数组成员数(类型)
' 类型文本 = 类型文本 & 类型(i) & ","
' i = i + 1
'判断循环尾
年代 = 取文本右边(取指定文本2(更多内容,"<span class=\"playtype\">","</span>"),4)
地区 = 取指定文本2(取指定文本2(更多内容,"<b>地 区 ：</b>","</li>"),"<span>","</span>")
演员1 = 取指定文本(取指定文本2(更多内容,"<b>主 演 ：</b>","</li>"),"target=\"_self\">","</a>")
如果 视频类型 = "电视" 或 视频类型 = "动漫" 则
简介 = 取文本左边(取指定文本2(更多内容,"<i>简 介 ：</i>","</p>"),140)
否则
如果 视频类型 = "综艺" 则
简介 = 取文本左边(取指定文本2(更多内容,"<i>简 介 ：</i>","</p>"),140)
否则
简介 = 取文本左边(取指定文本2(取指定文本2(更多内容," <i>简 介 ：</i>","</div>"),"<p>","</p>"),140)
结束 如果
结束 如果
i = 0
判断循环首 i < 取数组成员数(演员1)
演员文本 = 演员文本 & 演员1(i) & ","
i = i + 1
如果 i = 5 则
演员文本 = 演员文本 & "..."
i = 取数组成员数(演员1)
结束 如果
判断循环尾
高级列表框1.添加项目(图片,标题,"类型：" & 视频类型 & "\n年代：" & 年代 & " ,地区：" & 地区 & " ,评分：" & 评分 & "\n演员：" & 演员文本 & "\n简介：" & 简介 & "...","",内容地址)
判断循环尾
如果 高级列表框1.取项目数() < 1 则
搜索状态.图像 = "myso.png"
搜索状态.可视 = 真
结束 如果
结束 如果
关闭进度对话框()
结束 事件 我也许可以，不过我要积分 jinchao 发表于 2019-3-31 13:14
我也许可以，不过我要积分
可以呀
你修复好就行
zhouw 发表于 2019-3-31 15:52
事件 多线程s.取网页源码完毕(源码 为 文本型)
变量 正则公式 为 文本型
变量 图片 为 文本型
谢谢 积分给你 好像搜索进度框还是跳不停 zhouw 发表于 2019-3-31 12:39
事件 多线程s.取网页源码完毕(源码 为 文本型)
变量 正则公式 为 文本型
变量 图片 为 文本型
你那个如意影视的改版能发一个给我？ 1113173074@qq.com
页:
[1]