假如得到了json数据，怎么把数据批量填入高级列表框
假如得到了json数据，还未unicode转中文,怎么把数据批量填入高级列表框里面。事件 按钮1.被单击()
多线程1.开始取网页源码2("你需要访问的地址","utf-8")
结束 事件
事件 多线程1.取网页源码完毕(源码 为 文本型)
变量 数据 为 文本型
变量 数据分组 为 文本型()
变量 电影数据 为 文本型
变量 数量 为 整数型
变量 图片 为 文本型
变量 标题 为 文本型
变量 项目总数 为 整数型
高级列表框1.清空项目()
项目总数=高级列表框1.取项目数()
数据=取指定文本2(源码,":[","],")
数据分组=取指定文本(数据,"{","}")
变量循环首 数量=0 至 取数组成员数(数据分组)-1 步进 1
电影数据="{" & 数据分组(数量) & "}"
图片=JSON解析(电影数据,"","vod_pic",1)
标题=JSON解析(电影数据,"","vod_name",1)
高级列表框1.添加项目(图片,标题)
变量循环尾
结束 事件
如此这般，代码就自己敲吧。我就不给你上传了，你练练手。 假如我需要批量填入标题和图片，标题是 "vod_name" ，图片是"vod_pic" ，只需要把这两个批量填入高级列表框就好了 事件 多线程_获取电视剧.取网页源码2完毕(源码 为 文本型)
如果 源码 ="" 则
如果 取网络状态() 则
弹出提示("网络不给力,请稍后重试...")
否则
弹出提示("请链接无线网络或开启数据流量")
结束 如果
否则
变量 josn对象 为 对象 = JSON操作1.解析(源码)
变量 data 为 对象 = JSON操作1.取数组(josn对象,"list")
变量 数组 为 对象
变量 i 为 整数型
变量 地址 为 文本型
变量 图片地址 为 文本型
变量 标题 为 文本型
变量 集数 为 文本型
变量 演员 为 文本型
变量循环首 i = 0 至 JSON操作1.取数组内成员数(data) - 1 步进 1
数组 = JSON操作1.取数组内对象(data,i)
集数 = JSON操作1.取文本值(数组,"vod_remarks")
图片地址 = JSON操作1.取文本值(数组,"vod_pic")
标题 = JSON操作1.取文本值(数组,"vod_name")
演员 = "主演:"&JSON操作1.取文本值(数组,"vod_actor")'vod_director:导演
地址 = JSON操作1.取文本值(数组,"vod_id")'视频Id
电视剧列表.添加项目(图片地址,标题,演员,"",14,白色,&HFF0088FF,集数,14,&HFFFF0000,&H60000000,地址)
变量循环尾
结束 如果
结束 事件 1585364631 发表于 2020-8-9 20:44
假如我需要批量填入标题和图片，标题是 "vod_name" ，图片是"vod_pic" ，只需要把这两个批量填入高级列表框 ...
用我的吧，干嘛还要使用取指定文本2（）呢
666666666666666666666666
页:
[1]