level 7
几月前我也搜寻过相关的问题，可惜没找到。
（借帖寻法）
2020年05月21日 07点05分
level 9
level 8
level 8
level 7
tzchf
楼主
Set JSON = CreateObject("MSScriptControl.ScriptControl")
JSON.Language = "JScript"
用微软的jscript也差不多应该
上传只能自己组装字符串了
2020年05月21日 10点05分
5
JSON.Language = "JScript"
用微软的jscript也差不多应该
上传只能自己组装字符串了
下载 json.js
2020年05月21日 23点05分
@mijing2000 vb6怎么用json.js？
2020年05月22日 01点05分
@tzchf 你上面代码怎么用js，就可以怎么用json.js。你要这样理解，json.js 只是一个将一些js代码写在一起的文本文件
2020年05月22日 01点05分
vb也用不了json对象啊。我只要找到如果返回值key里有出错误的码，给用户显示一下，别的不管
2020年05月22日 04点05分
level 8
![[大拇指]](/static/emoticons/u5927u62c7u6307.png)
谢了 备用
ScriptControl是啥
2020年05月23日 00点05分
@tzchf 可以理解成脚本解释器
2020年05月23日 01点05分
@mijing2000 怎么引用
2020年05月23日 05点05分
level 13
level 12
level 7
tzchf
楼主
Public Function JSONSet(ByVal JSONPath As String, ByVal JSONString As String, ByVal JSONValue As String) As Variant
Dim JSON As Object
Set JSON = CreateObject("ScriptControl")
JSON.Language = "JavaScript"
JSONSet = JSON.Eval("J=" & JSONString & ";J." & JSONPath & "=" & JSONValue & ";JSON.stringify(J);")
Set JSON = Nothing
End Function
调用，值是改成功了，JSON对象转字符串出不来了。不认JSON
Print JSONSet("a", "{a:10}", 20)
2020年05月31日 11点05分
13
Dim JSON As Object
Set JSON = CreateObject("ScriptControl")
JSON.Language = "JavaScript"
JSONSet = JSON.Eval("J=" & JSONString & ";J." & JSONPath & "=" & JSONValue & ";JSON.stringify(J);")
Set JSON = Nothing
End Function
调用，值是改成功了，JSON对象转字符串出不来了。不认JSON
Print JSONSet("a", "{a:10}", 20)
level 1
