Question

如何在.vbs文件中创建JSON对象？

我试过这个：

set json = CreateObject("Scripting.Dictionary")

但是这个对象不支持json.AddStringAt属性。如何创建支持json.AddStringAt的JSON对象？

我的示例文件是

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.json", True)

set json = CreateObject("Scripting.Dictionary")

index = -1

success = json.AddStringAt(-1,"Title","Pan's Labyrinth")
success = json.AddStringAt(-1,"Director","Guillermo del Toro")
success = json.AddStringAt(-1,"Original_Title","El laberinto del fauno")
success = json.AddIntAt(-1,"Year_Released",2006)

json.EmitCompact = 0
outFile.WriteLine(json.Emit())

outFile.Close

Answer 1

看起来有一个库有你正在寻找的方法。

set json = CreateObject("Chilkat_9_5_0.JsonObject")

https://www.chilkatsoft.com/refdoc/xChilkatJsonObjectRef.html

Answer 2

32位

set json = CreateObject("Chilkat_9_5_0.JsonObject")

对于64位

set json = CreateObject64("Chilkat_9_5_0.JsonObject")

如何在vbscript文件中创建json对象？

2 个答案: