2017-01-04 99 views
-1

JSONオブジェクトを.vbsファイルに作成する方法は?vbscriptファイルで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 
+2

あなたは[コードサンプル](https://www.example-code.com/vbscript/create_json.asp)を取る場合は、単に置き換えることはできません特定のCOMオブジェクトを使用しますそのオブジェクトを任意の他のCOMオブジェクトで置き換えます。 –

答えて

1

です。

set json = CreateObject("Chilkat_9_5_0.JsonObject") 

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

+0

これを試しましたが、このエラーが発生しました。 ActiveXコンポーネントがオブジェクトを作成できません: 'Chilkat_9_5_0.JsonObject' – Shine

+3

ActiveXライブラリをダウンロードしてインストールしましたか? –

+0

https://www.example-code.com/vbscript/create_json.asp あなたが投稿したほぼ同じ例は、ダウンロードリンクです。 –

関連する問題