Question

如何比较其他服务器的数组值我使用vbscript但是其他服务器的数组是用php构建的.. 在我收到的阵列下面..

{"VALUE1":"yes","VALUE2":"success","VALUE3":"34","VALUE4":"1","VALUE5":"377"}.

我想检查VALUE1到VALUE4的值..这里是我的代码..

Set dict = CreateObject("Scripting.Dictionary")

For Each x in Test1
  xSplit = Split(x, ":")

  dict.Add xSplit(0), xSplit(1)

Next

If dict.Exists("VALUE1") Then


  response.Write dict("VALUE1") 

Else

  response.Write( "Index VALUE1 does not exist.")

End If
%>

Answer 1

您获得的字符串是JSON字符串，因此您需要一个JSON解析器。
您可以使用ASPJSON之类的解析器，而不是编写自己的解析器

<!--#include file="aspJSON1.17.asp" -->
<%
Dim oJSON
Set oJSON = New aspJSON

oJSON.loadJSON(x) 'x is the JSON string

If oJSON.data.Exists("VALUE1") Then
    Response.Write oJSON.data("VALUE1")
Else
    Response.Write "Index VALUE1 does not exist."
End If
%>

Vbscript检查来自其他服务器的数组值

1 个答案: