取中间文本问题，取不到是啥原因呢

a896989093

代码.zip (1.39 MB, 下载次数: 6)

2021-7-10 12:38 上传

点击文件名下载附件

我想取这个网页的文本到超极列表框，怎么添加到超级列表框不成功呢。是哪有问题么，大神帮看看。。还有取的汉字怎么是乱码呢

.版本 2
.支持库 iext

.程序集 窗口程序集_启动窗口

.子程序 _按钮1_被单击
.局部变量 网页内容, 文本型
.局部变量 返回内容数组, 文本型, , "0"
.局部变量 临时_索引, 整数型
.局部变量 a, 类_json
.局部变量 标题1, 文本型
.局部变量 b, 整数型
.局部变量 i, 整数型

网页内容 ＝ 到文本 (网页_访问 (“https://fundgz.1234567.com.cn/js/005827.js”, ))

编辑框2.内容 ＝ 网页内容
a.解析 (编辑框2.内容)
' 标题1 ＝ a.取通用属性 (“aaData[0].id”, )
.计次循环首 (a.成员数 (), i)
    b ＝ 超级列表框1.插入表项 (, , , , , )
    超级列表框1.置标题 (b, 0, a.取通用属性 (“jsonpgz[” ＋ 到文本 (i － 1) ＋ “].fundcode”, ))
    超级列表框1.置标题 (b, 1, a.取通用属性 (“jsonpgz[” ＋ 到文本 (i － 1) ＋ “].name”, ))
    超级列表框1.置标题 (b, 2, a.取通用属性 (“jsonpgz[” ＋ 到文本 (i － 1) ＋ “].dwjz”, ))
    超级列表框1.置标题 (b, 3, a.取通用属性 (“jsonpgz[” ＋ 到文本 (i － 1) ＋ “].gsz”, ))

    超级列表框1.置标题 (b, 4, a.取通用属性 (“jsonpgz[” ＋ 到文本 (i － 1) ＋ “].gszzl”, ))
    ' 超级列表框1.置标题 (b, 5, a.取通用属性 (“jsonpgz[” ＋ 到文本 (i － 1) ＋ “].nownum”, ))
    ' 超级列表框1.置标题 (b, 6, a.取通用属性 (“jsonpgz[” ＋ 到文本 (i － 1) ＋ “].endnum”, ))
    ' 超级列表框1.置标题 (b, 7, a.取通用属性 (“jsonpgz[” ＋ 到文本 (i － 1) ＋ “].time”, ))
    ' 超级列表框1.置标题 (b, 8, a.取通用属性 (“jsonpgz[” ＋ 到文本 (i － 1) ＋ “].orderstate”, ))
.计次循环尾 ()

a.清除 ()

' jsonpgz({"fundcode":"005827","name":"鏄撴柟杈捐摑绛圭簿閫夋贩鍚?,"jzrq":"2021-07-08","dwjz":"2.8359","gsz":"2.8294","gszzl":"-0.23","gztime":"2021-07-09 15:00"});

追风少年卡拉赞

这样试试呢

knowledge

大致如此~~~~~~~~~~~~

元老

基金.e (959.04 KB, 下载次数: 2)

2021-7-10 13:04 上传

点击文件名下载附件