将查询字符串转换为对象

Question

我正在研究用vbscript编写的遗留应用程序。其中我没有经验。

我有一个返回字符串

的函数

{"Success":true,"CVVMatch":false,"Message":"Success","AuthCode":"010203","ResponseMessage":"Approved","PnRef":"AXXXXXX","ResultCode":0}

如何快速解析此字符串并创建可用对象？

我应该使用Scripting.Dictionary对象吗？

Answer 1

是的，字典可能是你最好的选择。

1. 从输入字符串中删除大括号。
2. 以逗号分隔字符串以将键/值对彼此分开。
3. 拆分冒号处的每个键/值对。
4. 向字典添加键和值。

这样的事情应该有效：

str = "..."
str = Mid(str, 2, Len(str)-2)

Set dict = CreateObject("Scripting.Dictionary")

For Each pair In Split(str, ",")
  arr = Split(pair, ":", 2)
  If UBound(arr) = 1 Then dict(arr(0)) = arr(1)
Next