Vbscript 将查询字符串转换为对象

我正在开发一个用vbscript编写的遗留应用程序。其中我没有任何经验

我有一个返回字符串的函数

{“Success”：true，“CVVMatch”：false，“Message”：“Success”，“AuthCode”：“010203”，“ResponseMessage”：“Approved”，“PnRef”：“AXXXXXX”，“ResultCode”：0}

如何快速解析这个字符串并创建一个可用的对象

---

我应该使用

Scripting.Dictionary

对象吗？

是的，字典可能是您最好的选择

从输入字符串中删除花括号

在逗号处拆分字符串以将键/值对彼此分开

在冒号处拆分每个键/值对

向字典中添加键和值

像这样的方法应该会奏效：

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

---

Split

可能会派上用场，但这实际上取决于“可用对象”的含义。我必须删除键上的引号，以便引用dict.Item（“Success”）等