VBScript把json字符串解析成json对象的2个方法

asp/vbscript将json字符解析为json对象的方法，如果asp使用jscript来编写服务器端代码操作json字符串就简单了，vbscript需要MSScriptControl.ScriptControl或者服务器端的jscript来作为中间体才行。

vbscript将json字符解析为json对象的方法一

使用MSScriptControl.ScriptControl组件，请用IE浏览器运行本示例，会有安全提示，需要点击“是”允许创建。

MSScriptControl.ScriptControl组件的用法实例

MSScriptControl.ScriptControl组件属性、方法、事件介绍

script language="vbscript">
    Dim sc4JsonSub InITScriptControl  Set sc4JSON = CreateObject("MSScriptControl.ScriptControl")  sc4Json.Language = "JavaScript"  sc4Json.AddCode "VAR itemTemp=null;
function getJSArray(arr, index){
    itemTemp=arr[index];
}
    "End Sub Function getJSONObject(strJSON)  sc4Json.AddCode "var jsonObject = " &
 strJSON  Set getJSONObject = sc4Json.CodeObject.jsonObjectEnd Function Sub getJSArrayItem(objDest,objJSArray,index)  On Error Resume Next  sc4Json.Run "getJSArray",objJSArray, index  Set objDest = sc4Json.CodeObject.itemTemp  If Err.number=0 Then Exit Sub  objDest = sc4Json.CodeObject.itemTempEnd Sub Dim strteststrTest = "{
name:""alonely"", age:24,hello:function(){
    return '你好！';
}
, email:[""ycplxl1314@163.COM"",""ycplxl1314@gmail.com""], family:{
parents:[""父亲"",""母亲""],toString:function(){
    return ""家庭成员"";
}
}
}
    "Dim objTestCall InitScriptControl'初始化MSScriptControl.ScriptControl组件Set objTest = getJSONObject(strTest)'创建JSON对象'对象属性操作msgbox objTest.name&
    "-"&
    objTest.age'数组操作getJSArrayItem email,objTest.email,0msgbox email'执行方法msgbox objTest.hello()msgbox objTest.family.toString()/script>
    

vbscript将json字符解析为json对象的方法二

用jscript作为中间体

script language="javascript">
//运行在服务器端时，增加runat="server"属性Array.PRototyPE.get = function(x) {
     return this[x];
 }
    ;
 function parseJSON(strJSON) {
     return eval("(" + strJSON + ")");
 }
     /script>
     script language="vbscript">
Dim json, obj json = "{
a:""aaa"", b:{
 name:""bb"", value:""text"" }
, c:[""item0"", ""item1"", ""item2""]}
    " Set obj = parseJSON(json) /script>
    

这篇文章就介绍到这了，需要的朋友可以参考一下。

• Json_decode 解析json字符串为NULL的解决方法(必看)
• 解析错误富文本json字符串(带双引号)的快速解决方法
• JS中Eval解析JSON字符串的一个小问题
• jquery解析json格式数据的方法(对象、字符串)
• Jquery解析json字符串及json数组的方法
• php解析http获取的json字符串变量总是空白null
• 解析JSON对象与字符串之间的相互转换
• js 将json字符串转换为json对象的方法解析
• jQuery怎么解析Json字符串(Json格式/Json对象)
• JS解析json数据并将json字符串转化为数组的实现方法
• 解析Json字符串的三种方法日常常用

声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！