json提取值，怎么写入选择列表框？

阳光小八

在json取得了需要的值，现在想：写入选择列表框，


补充内容 (2018-12-8 20:26):
现在想：1、写入选择列表框 2、点击按钮，刷新写入（不要重复写入了）。样本在1楼

大司命

思路如此~

阳光小八

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

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

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



.子程序 _按钮1_被单击

启动线程 (&请求数据, , )


.子程序 请求数据
.局部变量 文本, 文本型
.局部变量 json, 类_json
.局部变量 e, 整数型
.局部变量 title, 文本型
.局部变量 index, 整数型
.局部变量 url, 文本型



url ＝ “http://937707mltg.sjdzp.cn/Mobile/Index/getDamoYlxsTimeList.json?goods_id=1843845&play_date=2018%2F12%2F09”

文本 ＝ 编码_Utf8到Ansi (网页_访问_对象 (url))
标签1.标题 ＝ 到文本 (index)

.判断开始 (取反 (json.解析 (文本)))
    调试输出 (“解析失败”)
    返回 ()

.默认
    e ＝ 0
    .循环判断首 ()
        .如果真 (json.取通用属性 (“list._100000000013[” ＋ 到文本 (e) ＋ “].text”) ＝ “”)
            跳出循环 ()
        .如果真结束


        title ＝ json.取通用属性 (“list._100000000013[” ＋ 到文本 (e) ＋ “].text”)

        超级列表框1.插入表项 (, , , , , )

        超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 1, title)

        e ＝ e ＋ 1
    .循环判断尾 (e ≥ 0)
.判断结束




输出调试文本 (title)

易正易则

小小栗子仅供参考！

Demo.e (948.28 KB, 下载次数: 5)

2018-12-8 20:27 上传

点击文件名下载附件

易正易则

阳光小八 发表于 2018-12-8 20:26
.版本 2
.支持库 EThread
.支持库 spec

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

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

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



.子程序 _按钮1_被单击

启动线程 (&请求数据, , )


.子程序 请求数据
.局部变量 文本, 文本型
.局部变量 json, 类_json
.局部变量 e, 整数型
.局部变量 title, 文本型
.局部变量 index, 整数型
.局部变量 url, 文本型

超级列表框1.全部删除（）

url ＝ “http://937707mltg.sjdzp.cn/Mobile/Index/getDamoYlxsTimeList.json?goods_id=1843845&play_date=2018%2F12%2F09”

文本 ＝ 编码_Utf8到Ansi (网页_访问_对象 (url))
标签1.标题 ＝ 到文本 (index)

.判断开始 (取反 (json.解析 (文本)))
    调试输出 (“解析失败”)
    返回 ()

.默认
    e ＝ 0
    .循环判断首 ()
        .如果真 (json.取通用属性 (“list._100000000013[” ＋ 到文本 (e) ＋ “].text”) ＝ “”)
            跳出循环 ()
        .如果真结束


        title ＝ json.取通用属性 (“list._100000000013[” ＋ 到文本 (e) ＋ “].text”)

        超级列表框1.插入表项 (, , , , , )

        超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 1, title)

        e ＝ e ＋ 1
    .循环判断尾 (e ≥ 0)
.判断结束

秀才遇到兵

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

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

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



.子程序 _按钮1_被单击

启动线程 (&请求数据, , )


.子程序 请求数据
.局部变量 文本, 文本型
.局部变量 json, 类_json
.局部变量 e, 整数型
.局部变量 title, 文本型
.局部变量 index, 整数型
.局部变量 url, 文本型
.局部变量 bx, 整数型


url ＝ “http://937707mltg.sjdzp.cn/Mobile/Index/getDamoYlxsTimeList.json?goods_id=1843845&play_date=2018%2F12%2F09”

文本 ＝ 编码_Utf8到Ansi (网页_访问_对象 (url))
标签1.标题 ＝ 到文本 (index)

.判断开始 (取反 (json.解析 (文本)))
     调试输出 (“解析失败”)
     返回 ()

.默认
    e ＝ 0
     .循环判断首 ()
         .如果真 (json.取通用属性 (“list._100000000013[” ＋ 到文本 (e) ＋ “].text”) ＝ “”)
             跳出循环 ()
         .如果真结束


        title ＝ json.取通用属性 (“list._100000000013[” ＋ 到文本 (e) ＋ “].text”)

         bx=超级列表框1.插入表项 (, , , , , )

         超级列表框1.置标题 (bx, 1, title)

         e ＝ e ＋ 1
     .循环判断尾 (e ≥ 0)
.判断结束




输出调试文本 (title)

大司命

  

url ＝ “http:” ＋ “//937707mltg.sjdzp.cn/Mobile/Index/getDamoYlxsTimeList.json?goods_id=1843845&play_date=2018%2F12%2F09”
文本 ＝ 编码_Utf8到Ansi (网页_访问_对象 (url))
标签1.标题 ＝ 到文本 (index)
判断 (取反 (json.解析 (文本)))
调试输出 (“解析失败”)
返回 ()
超级列表框1.全部删除 ()
计次循环首 (json.成员数 (“list['_100000000013']”), i)
title ＝ json.取通用属性 (“list._100000000013[” ＋ 到文本 (e) ＋ “].text”)
e ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (e, 1, title)
计次循环尾 ()

url ＝ “http:” ＋ “//937707mltg.sjdzp.cn/Mobile/Index/getDamoYlxsTimeList.json?goods_id=1843845&play_date=2018%2F12%2F09”<br /> 文本 ＝ 编码_Utf8到Ansi (网页_访问_对象 (url))<br /> 标签1.标题 ＝ 到文本 (index)<br /> .判断开始 (取反 (json.解析 (文本)))<br />     调试输出 (“解析失败”)<br />     返回 ()<br /> .默认<br />     超级列表框1.全部删除 ()<br />     .计次循环首 (json.成员数 (“list['_100000000013']”), i)<br />         title ＝ json.取通用属性 (“list._100000000013[” ＋ 到文本 (e) ＋ “].text”)<br />         e ＝ 超级列表框1.插入表项 (, , , , , )<br />         超级列表框1.置标题 (e, 1, title)<br />     .计次循环尾 ()<br /> .判断结束

补充内容 (2018-12-8 20:32):

  

title ＝ json.取通用属性 (“list['_100000000013'][” ＋ 到文本 (e) ＋ “].text”)

        title ＝ json.取通用属性 (“list['_100000000013'][” ＋ 到文本 (e) ＋ “].text”)

阳光小八

大司命 发表于 2018-12-8 20:31
[e=5]
url ＝ “http:” ＋ “//937707mltg.sjdzp.cn/Mobile/Index/getDamoYlxsTimeList.json?goods_id=18 ...

我是要到 选择列表框，不是超级列表框

阳光小八

秀才遇到兵 发表于 2018-12-8 20:31
版本 2
.支持库 EThread
.支持库 spec

我是要到 选择列表框，不是超级列表框

阳光小八

易正易则 发表于 2018-12-8 20:29
.版本 2
.支持库 EThread
.支持库 spec

我是要到 选择列表框，不是超级列表框