正则取网易云MV视频地址播放

tyler998

需要精易模块自行下载
源码：

.版本 2
.支持库 spec
.支持库 wmp9
.支持库 iext

.程序集 窗口程序集_启动窗口
.程序集变量 源码xx, 文本型

.子程序 __启动窗口_创建完毕



.子程序 _按钮1_被单击
.局部变量 文件内容, 文本型
.局部变量 源码xx1, 文本型

' 文件内容 ＝ 到文本 (编码转换 (网页_访问S (“https://music.163.com/#/mv?id=10912537”), #编码_UTF_8, #编码_GB2312, ))
源码xx ＝ 编码_utf8到gb2312 (到文本 (网页_访问 (编辑框1.内容)))
调试输出 (源码xx)
获取视频地址 ()


.子程序 获取视频地址
.局部变量 局_正则, 正则表达式类, , , 此类为精易模块里面的正则类，精易模块下载地址：http://ec.125.la/
.局部变量 局_匹配数, 整数型
.局部变量 局_计次, 整数型
.局部变量 视频地址, 文本型

.如果真 (局_正则.创建 (“<meta property=#引号og:video#引号 content=#引号([\s|\S]*?)#引号 />”, 源码xx, 假, 假, 真, 真) ＝ 假)
    信息框 (“正则创建失败，请检查正则表达式语句是否有误！”, #错误图标, , )
    返回 ()
.如果真结束
局_匹配数 ＝ 局_正则.取匹配数量 ()
.如果真 (局_匹配数 ＝ 0)
    信息框 (“匹配失败，请检检查正则语句是否有误，数量：0”, #错误图标, , )
    返回 ()
.如果真结束
.计次循环首 (局_匹配数, 局_计次)
    输出调试文本 (“匹配文本 ” ＋ 到文本 (局_计次) ＋ “ 中的子匹配文本 1：” ＋ 局_正则.取子匹配文本 (局_计次, 1))
    ' 编辑框2.加入文本 (局_正则.取子匹配文本 (局_计次, 1))
    视频地址 ＝ 局_正则.取子匹配文本 (局_计次, 1)
    视频地址 ＝ 子文本替换 (视频地址, “%3A”, “:”, , , 真)
    视频地址 ＝ 子文本替换 (视频地址, “%2F”, “/”, , , 真)
    视频地址 ＝ 子文本替换 (视频地址, “%3F”, “?”, , , 真)
    视频地址 ＝ 子文本替换 (视频地址, “%3D”, “=”, , , 真)
    视频地址 ＝ 子文本替换 (视频地址, “%26”, “&”, , , 真)
.计次循环尾 ()
播放器1.地址 ＝ 视频地址
状态条1.置文本 (1, 视频地址)

效果图

三晨

2313291647 发表于 2020-3-19 06:10
666666666666666666666666

66666666666666

三晨

送君一死 发表于 2020-5-16 18:11
66666666666

6666666666666666666666

13145313103

666666666666

送君一死

66666666666

繁琐

66666666666666666

2313291647

666666666666666666666666