VBScript 에서 json 문자열 을 json 대상 으로 해석 하 는 두 가지 방법

asp/vbscript 은 json 문 자 를 json 대상 으로 해석 하 는 방법 입 니 다.asp 가 jscript 를 사용 하여 서버 엔 드 코드 를 작성 하면 json 문자열 을 조작 하 는 것 이 간단 합 니 다.vbscript 은 MSScriptControl.script Control 또는 서버 엔 드 의 jscript 를 중간체 로 해 야 합 니 다.
vbscript 에서 json 문 자 를 json 대상 으로 해석 하 는 방법 1
MSScriptControl.ScriptControl 구성 요 소 를 사용 합 니 다.IE 브 라 우 저 로 이 예제 를 실행 하 십시오.보안 알림 이 있 을 것 입 니 다."예"를 누 르 면 만 들 수 있 습 니 다.

MSScriptControl.ScriptControl 구성 요소 의 사용법 실례
MSScriptControl.ScriptControl 구성 요소 속성,방법,이벤트 소개

<script language="vbscript">
Dim sc4Json
Sub 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.jsonObject
End 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.itemTemp
End Sub
 
Dim strTest
strTest = "{name:""alonely"", age:24,hello:function(){return '  ！';}, email:[""[email protected]"",""[email protected]""], family:{parents:[""  "",""  ""],toString:function(){return ""    "";}}}"
Dim objTest
Call InitScriptControl'   MSScriptControl.ScriptControl  
Set objTest = getJSONObject(strTest)'  JSON  
'      
msgbox objTest.name&"-"&objTest.age
'    
getJSArrayItem email,objTest.email,0
msgbox email
'    
msgbox objTest.hello()
msgbox objTest.family.toString()
</script>

vbscript 에서 json 문 자 를 json 대상 으로 해석 하 는 방법 2
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>

이 글 은 여기까지 소개 되 었 으 니 필요 한 친 구 는 참고 하 셔 도 됩 니 다.