假如得到了json数据，怎么把数据批量填入高级列表框

1585364631

  假如得到了json数据，还未unicode转中文,怎么把数据批量填入高级列表框里面。

oncall24

1. 事件 按钮1.被单击()
   
2.         多线程1.开始取网页源码2("你需要访问的地址","utf-8")
   
3. 结束 事件
   
4. 
   
5. 事件 多线程1.取网页源码完毕(源码 为 文本型)
   
6.         变量 数据 为 文本型
   
7.         变量 数据分组 为 文本型()
   
8.         变量 电影数据 为 文本型
   
9.         变量 数量 为 整数型
   
10.         变量 图片 为 文本型
    
11.         变量 标题 为 文本型
    
12.     变量 项目总数 为 整数型
    
13.        
    
14.         高级列表框1.清空项目()
    
15.         项目总数=高级列表框1.取项目数()
    
16.         数据=取指定文本2(源码,":[","],")
    
17.         数据分组=取指定文本(数据,"{","}")
    
18.         变量循环首 数量=0 至 取数组成员数(数据分组)-1 步进 1
    
19.                 电影数据="{" & 数据分组(数量) & "}"
    
20.                 图片=JSON解析(电影数据,"","vod_pic",1)
    
21.                 标题=JSON解析(电影数据,"","vod_name",1)
    
22.                 高级列表框1.添加项目(图片,标题)
    
23.         变量循环尾
    
24. 
    
25. 结束 事件

复制代码

如此这般，代码就自己敲吧。我就不给你上传了，你练练手。

1585364631

假如我需要批量填入标题和图片，标题是 "vod_name" ，图片是"vod_pic" ，只需要把这两个批量填入高级列表框就好了

小恒哥

1. 事件 多线程_获取电视剧.取网页源码2完毕(源码 为 文本型)
   
2.         如果 源码 ="" 则
   
3.                 如果 取网络状态() 则
   
4.                         弹出提示("网络不给力,请稍后重试...")
   
5.                         否则
   
6.                         弹出提示("请链接无线网络或开启数据流量")
   
7.                 结束 如果
   
8.         否则
   
9.                 变量 josn对象 为 对象 = JSON操作1.解析(源码)
   
10.                 变量 data 为 对象 = JSON操作1.取数组(josn对象,"list")
    
11.                 变量 数组 为 对象
    
12.                 变量 i 为 整数型
    
13.                 变量 地址 为 文本型
    
14.                 变量 图片地址 为 文本型
    
15.                 变量 标题 为 文本型
    
16.                 变量 集数 为 文本型
    
17.                 变量 演员 为 文本型
    
18.                 变量循环首 i = 0 至 JSON操作1.取数组内成员数(data) - 1 步进 1
    
19.                         数组 = JSON操作1.取数组内对象(data,i)
    
20.                         集数 = JSON操作1.取文本值(数组,"vod_remarks")
    
21.                         图片地址 = JSON操作1.取文本值(数组,"vod_pic")
    
22.                         标题 = JSON操作1.取文本值(数组,"vod_name")
    
23.                         演员 = "主演:"&JSON操作1.取文本值(数组,"vod_actor")'vod_director:导演
    
24.                         地址 = JSON操作1.取文本值(数组,"vod_id")'视频Id
    
25.                         电视剧列表.添加项目(图片地址,标题,演员,"",14,白色,&HFF0088FF,集数,14,&HFFFF0000,&H60000000,地址)
    
26.                 变量循环尾
    
27.         结束 如果
    
28. 结束 事件

复制代码

小恒哥

1585364631 发表于 2020-8-9 20:44
假如我需要批量填入标题和图片，标题是 "vod_name" ，图片是"vod_pic" ，只需要把这两个批量填入高级列表框 ...

用我的吧，干嘛还要使用取指定文本2（）呢

zhanleiqq00

666666666666666666666666