读取数据的时候加入数据

lcy791365359

  

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

线程_初始化COM库 ()
临时文本 ＝ 编码_Utf8到Ansi (网页_访问 (编辑框1.内容))
正则.创建 ( #搜狐电视剧分集, 临时文本)
计次循环首 (正则.取匹配数量 (), A)
B ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (B, 0, 到文本 (B ＋ 1))
超级列表框1.置标题 (B, 1, 正则.取子匹配文本 (A, 3))
超级列表框1.置标题 (B, 2, 正则.取子匹配文本 (A, 1))
超级列表框1.置标题 (B, 3, 文本_取出中间文本 (编码_Utf8到Ansi (网页_访问 (超级列表框1.取标题 (超级列表框1.现行选中项, 2))), #搜狐VID, #引号 ))
计次循环尾 ()

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .局部变量 VID, 文本型<br /> <br /> 线程_初始化COM库 ()<br /> 临时文本 ＝ 编码_Utf8到Ansi (网页_访问 (编辑框1.内容))<br /> <br /> 正则.创建 (#搜狐电视剧分集, 临时文本)<br /> .计次循环首 (正则.取匹配数量 (), A)<br />     B ＝ 超级列表框1.插入表项 (, , , , , )<br />     超级列表框1.置标题 (B, 0, 到文本 (B ＋ 1))<br />     超级列表框1.置标题 (B, 1, 正则.取子匹配文本 (A, 3))<br />     超级列表框1.置标题 (B, 2, 正则.取子匹配文本 (A, 1))<br />     超级列表框1.置标题 (B, 3, 文本_取出中间文本 (编码_Utf8到Ansi (网页_访问 (超级列表框1.取标题 (超级列表框1.现行选中项, 2))), #搜狐VID, #引号))<br /> .计次循环尾 ()

想在 超级列表框1.置标题 (B, 3, 文本_取出中间文本 (超级列表框1.取标题 (超级列表框1.现行选中项, 2), #搜狐VID, #引号)) 这里 让他自动填写为获取到的VID 但是编译的内容为空~


读取的数据地址就是 超级列表框1.取标题 (超级列表框1.现行选中项, 2) 怎么搞的呢 每个地址的VID都是不同的 想让他自动读取显示

银河世纪

你难道不会把他放变量里吗 然后用信息框显示这个变量 看看他返回的是你要的值吗

lcy791365359

银河世纪 发表于 2016-11-10 20:44
你难道不会把他放变量里吗 然后用信息框显示这个变量 看看他返回的是你要的值吗

  

超级列表框1.置标题 (B, 0, 到文本 (B ＋ 1))
超级列表框1.置标题 (B, 1, 正则.取子匹配文本 (A, 3))
超级列表框1.置标题 (B, 2, 正则.取子匹配文本 (A, 1))
VID ＝ 文本_取出中间文本 (编码_Utf8到Ansi (网页_访问 (超级列表框1.取标题 (超级列表框1.现行选中项, 2))), #搜狐VID, #引号 )
超级列表框1.置标题 (B, 3, VID)

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br />     超级列表框1.置标题 (B, 0, 到文本 (B ＋ 1))<br />     超级列表框1.置标题 (B, 1, 正则.取子匹配文本 (A, 3))<br />     超级列表框1.置标题 (B, 2, 正则.取子匹配文本 (A, 1))<br />     VID ＝ 文本_取出中间文本 (编码_Utf8到Ansi (网页_访问 (超级列表框1.取标题 (超级列表框1.现行选中项, 2))), #搜狐VID, #引号)<br />     超级列表框1.置标题 (B, 3, VID)

这样么。。。囧。。我把他放在计次外 也是空内容。。放里面还是。。

lcy791365359

沉底了。。。。

银河世纪

  

子程序名	返回值类型	公开	备 注
子程序1

变量名	类 型	静态	数组	备 注
要的数据	文本型

超级列表框1.置标题 (B, 0, 到文本 (B ＋ 1))
超级列表框1.置标题 (B, 1, 正则.取子匹配文本 (A, 3))
超级列表框1.置标题 (B, 2, 正则.取子匹配文本 (A, 1))
要的数据=编码_Utf8到Ansi (网页_访问 (超级列表框1.取标题 (超级列表框1.现行选中项, 2))) '
信息框 (要的数据, 0, , )  ' 这是要编译后查看的
VID ＝ 文本_取出中间文本 (, #搜狐VID, #引号 )
超级列表框1.置标题 (B, 3, VID)

.版本 2<br /> <br /> .子程序 子程序1<br /> .局部变量 要的数据, 文本型<br /> <br /> 超级列表框1.置标题 (B, 0, 到文本 (B ＋ 1))<br /> 超级列表框1.置标题 (B, 1, 正则.取子匹配文本 (A, 3))<br /> 超级列表框1.置标题 (B, 2, 正则.取子匹配文本 (A, 1))<br /> 要的数据=编码_Utf8到Ansi (网页_访问 (超级列表框1.取标题 (超级列表框1.现行选中项, 2)))'<br /> 信息框 (要的数据, 0, , )  ' 这是要编译后查看的<br /> VID ＝ 文本_取出中间文本 (, #搜狐VID, #引号)<br /> 超级列表框1.置标题 (B, 3, VID)

lcy791365359

银河世纪 发表于 2016-11-10 22:06

  

子程序名	返回值类型	公开	备 注
子程序1

[/quote]
[e=0].版本 2

子程序名	返回值类型	公开	备 注
搜狐读取

变量名	类 型	静态	数组	备 注
要的数据	文本型
VID	文本型

线程_初始化COM库 ()
超级列表框1.置标题 (B, 0, 到文本 (B ＋ 1))
超级列表框1.置标题 (B, 1, 正则.取子匹配文本 (A, 3))
超级列表框1.置标题 (B, 2, 正则.取子匹配文本 (A, 1))
要的数据 ＝ 编码_Utf8到Ansi (网页_访问 (超级列表框1.取标题 (超级列表框1.现行选中项, 2)))
调试输出 (要的数据)
VID ＝ 文本_取出中间文本 (要的数据, #搜狐VID, #引号 )
超级列表框1.置标题 (B, 3, VID)

i支持库列表	支持库注释
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br /> <br /> .子程序 子程序1</blockquote></div><br /> [e=0].版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .子程序 搜狐读取<br /> .局部变量 要的数据, 文本型<br /> .局部变量 VID, 文本型<br /> <br /> 线程_初始化COM库 ()<br /> 超级列表框1.置标题 (B, 0, 到文本 (B ＋ 1))<br /> 超级列表框1.置标题 (B, 1, 正则.取子匹配文本 (A, 3))<br /> 超级列表框1.置标题 (B, 2, 正则.取子匹配文本 (A, 1))<br /> 要的数据 ＝ 编码_Utf8到Ansi (网页_访问 (超级列表框1.取标题 (超级列表框1.现行选中项, 2)))<br /> 调试输出 (要的数据)<br /> VID ＝ 文本_取出中间文本 (要的数据, #搜狐VID, #引号)<br /> 超级列表框1.置标题 (B, 3, VID)

按照这么写的话 是没反应的  读取到的内容为空

整个过程是这样的

编辑框1输入视频介绍页
超级列表框1 自动获取当前视频页的地址  现在地址已经获取到了 就差VID了
VID需要从介绍页内的播放地址内获取
然后显示到超级列表框1中

已注销295604

前面   线程_初始化COM库 ()   相同 DLL CoInitialize (0)

下面 就要在 计次循环尾 ()
线程_卸载COM库 ()   相同 DLL CoUninitialize ()

lcy791365359

AngelsandDemo 发表于 2016-11-11 22:45
前面   线程_初始化COM库 ()   相同 DLL CoInitialize (0)

下面 就要在 计次循环尾 ()

我上面发的代码有什么问题没有

yt0814

首先你要确认你链接取对了，其次是返回是不是空的。

NOCOL

附件发在上个帖子了，可以一起采纳不