按键精灵手机版有个table数据类型, 可以很轻松的解析json格式字符串内容, 而按键精灵电脑版只有数组, 如果要解析json, 一般是通过正则提取或者split分割提取的方法, 而这些方法都非常麻烦, 而且不通用, 所以我们采用另一种方案来解决.
假设在D:\json.txt文件里存放着一段json格式的内容
- {
- "Image": {
- "Width": 800,
- "Height": 600,
- "Title": "View from 15th Floor",
- "Thumbnail": {
- "Url": "http://www.example.com/image/481989943",
- "Height": 125,
- "Width": "100"
- },
- "IDs": [116, 943, 234, 38793]
- }
- }
复制代码现在我们利用一个VBScript的自定义类来处理解析这段json, 详见下方例子
- //加载VBScript类
- Import "D:\vbsjson.vbs"
- Dim json, str, o, i
- //读取json文本内容, 把按键转换的|字符改成回车换行符
- 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")
- //这是对json中数组内容的遍历
- For Each i In o("Image")("IDs")
- TracePrint i
- Next
复制代码这是用到的类文件
VBScript类: 下载后请把后缀名.txt修改为.vbs
- vbsJson.txt (, 下载次数:1170)