紫猫学院社区

 找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 6953|回复: 35

[教程源码] [vbs]按键精灵电脑版解析json方法

[复制链接]

913

主题

2657

帖子

2677

积分

院长

Rank: 9Rank: 9Rank: 9

猫粮
5042
QQ
发表于 2019-2-27 15:31:11 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
按键精灵手机版有个table数据类型, 可以很轻松的解析json格式字符串内容, 而按键精灵电脑版只有数组, 如果要解析json, 一般是通过正则提取或者split分割提取的方法, 而这些方法都非常麻烦, 而且不通用, 所以我们采用另一种方案来解决.

自定义一个VBScript类来处理解析VBScript, 详见下方例子

[按键精灵] 纯文本查看 复制代码
Import "D:\vbsjson.vbs"

Dim json, str, o, i

str = Replace(Plugin.File.ReadFileEx("D:\json.txt"), "|", vbCrLf)

Set json = New vbsJson
Set o = json.Decode(str)
TracePrint o("Image")("Width")
TracePrint o("Image")("Height")
TracePrint o("Image")("Title")
TracePrint o("Image")("Thumbnail")("Url")

For Each i In o("Image")("IDs")
    TracePrint i
Next


这是用到的文件
VBScript类: 可以放到附件里, 然后释放到指定路径 vbsJson.vbs (10.81 KB, 下载次数: 150)
json文本例子: 可以是任意内容的json文本 json.txt (306 Bytes, 下载次数: 121)
回复

使用道具 举报

1

主题

101

帖子

101

积分

按键电脑&手机班学员

QQ 262832680

Rank: 8Rank: 8

猫粮
1234
发表于 2019-2-27 16:13:12 | 显示全部楼层
老师牛逼 又学习了 ................
全职接单[POST,滑块,去广告,云配置,收徒]办公 各种全自动脚本 游戏不接QQ 262832680
回复

使用道具 举报

13

主题

37

帖子

37

积分

易语言游戏编程班学员

Rank: 8Rank: 8

猫粮
144
发表于 2019-2-27 16:40:38 | 显示全部楼层
牛逼了,老师果然厉害
回复

使用道具 举报

5

主题

23

帖子

23

积分

学前班

Rank: 1

猫粮
90
发表于 2019-2-28 00:28:41 | 显示全部楼层
紫猫老师果然厉害
回复

使用道具 举报

5

主题

23

帖子

23

积分

学前班

Rank: 1

猫粮
90
发表于 2019-2-28 00:31:26 | 显示全部楼层
vbsJson.vbs 360爆木马( ̄△ ̄;)
回复

使用道具 举报

0

主题

1

帖子

1

积分

学前班

Rank: 1

猫粮
1
发表于 2019-2-28 20:00:28 | 显示全部楼层
333855555555555555
回复

使用道具 举报

10

主题

274

帖子

284

积分

初中生

Rank: 3Rank: 3

猫粮
480
QQ
发表于 2019-3-16 15:17:52 | 显示全部楼层
膜拜大佬1!!!!
回复

使用道具 举报

0

主题

17

帖子

17

积分

学前班

Rank: 1

猫粮
19
发表于 2019-7-17 21:29:04 | 显示全部楼层

6

主题       
225

帖子       
225

积分
初中生



猫粮345
发消息       
7#
发表于 2019-3-16 15:17:52 | 只看该作者
膜拜大佬1!!!!
回复

使用道具 举报

0

主题

15

帖子

15

积分

按键电脑&手机班学员

Rank: 8Rank: 8

猫粮
54
发表于 2019-7-18 11:46:06 | 显示全部楼层
冒泡的小猫 发表于 2019-2-27 16:13
老师牛逼 又学习了 ................

黑眼圈,是你啊
回复

使用道具 举报

1

主题

3

帖子

3

积分

按键电脑&手机班学员

Rank: 8Rank: 8

猫粮
45
发表于 2019-7-23 17:27:06 | 显示全部楼层
牛逼!

Set html = CreateObject("htmlfile")
Set window = html.parentWindow
window.execScript "var json = " & 字段, "JScript"
Set 对象 = window.json
content = 对象.name

比这个好使吗?
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|小黑屋|紫猫编程学院  

GMT+8, 2021-8-2 07:50

Powered by Discuz! X3.4

Copyright © 2012-2021 紫猫编程学院

快速回复 返回顶部 返回列表