马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。
您需要 登录 才可以下载或查看，没有账号？立即注册
×
按键精灵手机版有个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, 下载次数: 386)
json文本例子: 可以是任意内容的json文本
json.txt
(306 Bytes, 下载次数: 269)
| 
发表于 2019-2-27 15:31:11
发表于 2019-2-27 16:13:12
