按键精灵手机版有个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                                                                                                                                                                                                                                                    (, 下载次数:1419)