如何取当前网页正在播放的视频标题

海南婉儿

如何取当前网页正在播放的视频标题
代码可以适用于各种视频网站


补充内容 (2022-12-8 12:41):
只差一个不足的地方了，就是影片名字后面的文字也显示出来了

补充内容 (2022-12-8 12:41):
标签_剧名.标题 ＝ 文本_取出中间文本 (到文本 (编码_Utf8到Ansi (HTTP读文件 (地址栏.内容))), “<title>”, “</title>”, , )

海南婉儿

其他尚未解决的帖子
【 问 题 1 】
【 问 题 2 】
【 问 题 3 】
【 问 题 4 】
【 问 题 5 】
【 问 题 6 】
【 问 题 7 】
【 问 题 8 】
【 问 题 9 】
【 问 题 10 】
【 问 题 11 】

易小方

网页采集，看看是不是你需要的

  

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
a	文本型

a ＝ 转换编码 (获取数据 (“https://v.qq.com/x/cover/mzc00200ev2ves7/x0044png6ku.html”))
调试输出 (取中间文本 (a, “”))

子程序名	返回值类型	公开	备 注
转换编码	文本型		UTF-8转GBK
参数名	类 型	参考	可空	数组	备 注
数据	字节集				要转换的数据

变量名	类 型	静态	数组	备 注
对象	对象
变体型	变体型
新数据	文本型

对象.创建 (“adodb.stream”, )
对象.写属性 (“Type”, 1)  ' Type 1字节集 2文本型
对象.写属性 (“Mode”, 3)
对象.方法 (“Open”, )
变体型.置类型 (7)
变体型.创建数组 (1, 取字节集长度 (数据))
变体型.赋值 (数据, )
对象.方法 (“Write”, 变体型)
对象.写属性 (“Position”, 0)
对象.写属性 (“Type”, 2)
对象.写属性 (“Charset”, “UTF-8”)
新数据 ＝ 对象.文本方法 (“ReadText”, )
对象.方法 (“Close”, )
返回 (新数据)

子程序名	返回值类型	公开	备 注
取中间文本	文本型
参数名	类 型	参考	可空	数组	备 注
原文本	文本型
左边文本	文本型
右边文本	文本型

变量名	类 型	静态	数组	备 注
正则	正则表达式
搜索结果	搜索结果		0
文本	文本型

如果 (原文本 ＝ “”)
文本 ＝ “”



正则.创建 (“(?<=\Q” ＋ 左边文本 ＋ “\E)(.*?)(?=\Q” ＋ 右边文本 ＋ “\E)”, )
搜索结果 ＝ 正则.搜索全部 (原文本)
文本 ＝ 搜索结果 [1].取匹配文本 (原文本, )

返回 (文本)

子程序名	返回值类型	公开	备 注
获取数据	字节集
参数名	类 型	参考	可空	数组	备 注
预采集地址	文本型

变量名	类 型	静态	数组	备 注
对象	对象
变体	变体型

对象.创建 (“Microsoft.XMLHTTP”, )
对象.方法 (“Open”, “get”, 预采集地址, 假)
对象.方法 (“Send”, “”)
变体 ＝ 对象.读属性 (“responseBody”, )
返回 (子字节集替换 (变体.取字节集 (), { 0 }, {  }, , ))

i支持库列表	支持库注释
spec	特殊功能支持库
RegEx	正则表达式支持库

.版本 2<br /> .支持库 spec<br /> <br /> .支持库 RegEx<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> .局部变量 a, 文本型<br /> <br /> a ＝ 转换编码 (获取数据 (“<a href="https://v.qq.com/x/cover/mzc00200ev2ves7/x0044png6ku.html" rel="nofollow" rel="nofollow" target="_blank">https://v.qq.com/x/cover/mzc00200ev2ves7/x0044png6ku.html</a>”))<br /> <br /> 调试输出 (取中间文本 (a, “”))<br /> <br /> .子程序 转换编码, 文本型, 公开, UTF-8转GBK<br /> <br /> .参数 数据, 字节集, 可空, 要转换的数据<br /> <br /> .局部变量 对象, 对象<br /> <br /> .局部变量 变体型, 变体型<br /> <br /> .局部变量 新数据, 文本型<br /> <br /> 对象.创建 (“adodb.stream”, )<br /> <br /> 对象.写属性 (“Type”, 1)  ' Type 1字节集 2文本型<br /> <br /> 对象.写属性 (“Mode”, 3)<br /> <br /> 对象.方法 (“Open”, )<br /> <br /> 变体型.置类型 (7)<br /> <br /> 变体型.创建数组 (1, 取字节集长度 (数据))<br /> <br /> 变体型.赋值 (数据, )<br /> <br /> 对象.方法 (“Write”, 变体型)<br /> <br /> 对象.写属性 (“Position”, 0)<br /> <br /> 对象.写属性 (“Type”, 2)<br /> <br /> 对象.写属性 (“Charset”, “UTF-8”)<br /> <br /> 新数据 ＝ 对象.文本方法 (“ReadText”, )<br /> <br /> 对象.方法 (“Close”, )<br /> <br /> 返回 (新数据)<br /> <br /> .子程序 取中间文本, 文本型<br /> <br /> .参数 原文本, 文本型<br /> <br /> .参数 左边文本, 文本型<br /> <br /> .参数 右边文本, 文本型<br /> <br /> .局部变量 正则, 正则表达式<br /> <br /> .局部变量 搜索结果, 搜索结果, , "0"<br /> <br /> .局部变量 文本, 文本型<br /> <br /> .如果 (原文本 ＝ “”)<br /> <br />     文本 ＝ “”<br /> <br /> .否则<br /> <br />     正则.创建 (“(?<=\Q” ＋ 左边文本 ＋ “\E)(.*?)(?=\Q” ＋ 右边文本 ＋ “\E)”, )<br /> <br />     搜索结果 ＝ 正则.搜索全部 (原文本)<br /> <br />     文本 ＝ 搜索结果 [1].取匹配文本 (原文本, )<br /> <br /> .如果结束<br /> <br /> 返回 (文本)<br /> <br /> .子程序 获取数据, 字节集<br /> <br /> .参数 预采集地址, 文本型<br /> <br /> .局部变量 对象, 对象<br /> <br /> .局部变量 变体, 变体型<br /> <br /> 对象.创建 (“Microsoft.XMLHTTP”, )<br /> <br /> 对象.方法 (“Open”, “get”, 预采集地址, 假)<br /> <br /> 对象.方法 (“Send”, “”)<br /> <br /> 变体 ＝ 对象.读属性 (“responseBody”, )<br /> <br /> 返回 (子字节集替换 (变体.取字节集 (), { 0 }, {  }, , ))

易小方

你是想网页采集吧，比如想采集哪个网站？需要采集标题，图片，播放地址么

afu45

窗口_取标题 ()

一般窗口标题会包含视频的标题

luoxiaowei

从返回值里找呗，你可以给个网址

海南婉儿

afu45 发表于 2022-12-8 10:19
窗口_取标题 ()

一般窗口标题会包含视频的标题

大佬这个代码怎么运用
例如这个视频：
编辑框1.内容 = "https://v.qq.com/x/cover/mzc00200ev2ves7.html"
透明标签1.标题 ＝ 窗口_取标题 (编辑框1.内容)
错误(10044): 不能将“文本型”数据转换到“整数型”数据。

海南婉儿

luoxiaowei 发表于 2022-12-8 10:19
从返回值里找呗，你可以给个网址

.版本 2
.支持库 internet
.支持库 iext
.支持库 spec
.子程序 _按钮1_被单击
.局部变量 text, 文本型
.局部变量 w, 整数型
text ＝ 到文本 (HTTP读文件 (“https://v.qq.com/x/cover/mzc00200ev2ves7.html”))
w ＝ 寻找文本 (text, “<title>”, , 假)
text ＝ 取文本右边 (text, 取文本长度 (text) － w － 取文本长度 (“<title>”) ＋ 1)
w ＝ 寻找文本 (text, “</title>”, , 假) － 1
text ＝ 取文本左边 (text, w)
标签1.标题 ＝ text

原始结果：四平青年往事_电影_高清1080P在线观看平台_腾讯视频
提取结果；鍥涘钩闈掑勾寰€浜媉鐢靛奖_楂樻竻1080P鍦ㄧ嚎瑙傜湅骞冲彴
需求结果：四平青年往事

海南婉儿

易小方 发表于 2022-12-8 10:14
你是想网页采集吧，比如想采集哪个网站？需要采集标题，图片，播放地址么 ...

请这位大佬认真审题，谢谢！

海南婉儿

luoxiaowei 发表于 2022-12-8 10:19
从返回值里找呗，你可以给个网址

标签1.标题 ＝ 文本_取出中间文本 (到文本 (HTTP读文件 (地址栏.内容)), “<title>”, “</title>”, , )

原始内容：四平青年往事_电影_高清1080P在线观看平台_腾讯视频
提取内容：鍥涘钩闈掑勾寰€浜媉鐢靛奖_楂樻竻1080P鍦ㄧ嚎瑙傜湅骞冲彴
最终结果：四平青年往事