使用vb6语言怎么在取值之前把json串中的数值转换成字符串

在 VB6 中，你可以使用 Microsoft Script Control 来解析 JSON，并将数值转换为字符串。下面是一个示例代码：

Dim sc As Object
Set sc = CreateObject("MSScriptControl.ScriptControl")
sc.Language = "JScript"

Dim jsonString As String
jsonString = "{""number"": 123}"

sc.Eval "var json = " & jsonString
Dim numberAsString As String
numberAsString = sc.Eval("json.number.toString()")

MsgBox numberAsString

在上面的示例中，我们使用 Script Control 创建了一个 JScript 环境。然后，我们通过 `Eval` 方法将 JSON 字符串解析为一个名为 `json` 的 JScript 对象。最后，我们使用 `Eval` 方法将 `json.number` 转换为字符串并存储在 `numberAsString` 变量中。

注意：在使用 Script Control 之前，你需要确保已经安装了 "Microsoft Script Control" 组件。你可以在 "项目" -> "引用" 中找到并选中该组件。

希望这可以帮助到你！如果有任何进一步的问题，请随时提问。