将查询字符串转换为对象 [英] Convert Query String to Object

问题描述

我正在开发一个用 vbscript 编写的遗留应用程序.其中我的经验为零.

I'm working on a legacy application that is written in vbscript. Of which I have zero experience.

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

I have a function that returns a string

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

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

How can I quickly parse through this string and create a usable object?

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

Should I use the Scripting.Dictionary object?

推荐答案

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

Yes, a dictionary is probably your best option here.

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

这样的事情应该可以工作:

Something like this should work:

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

这篇关于将查询字符串转换为对象的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！