在vb6中已知字符串[{"HosId":"0101"}，{"HosId":"0102"}],怎么取到对象数组

在VB6中处理JSON字符串并将其转换为对象数组是一个相对复杂的过程，因为VB6本身并不支持JSON解析。通常，需要使用第三方库，比如JSONConverter，或者自己编写函数来解析JSON字符串。

首先，你需要确保你的VB6项目中包含了处理JSON的库或者你的项目有访问到能够解析JSON的方法。假设你已经有了一个可以解析JSON的函数或组件，处理步骤大致如下：

1. 解析JSON字符串：使用库函数或自定义代码解析给定的JSON字符串，将它转换为VB6中的某种数据结构，比如字典或对象数组。

2. 访问对象数组：一旦JSON被解析，就可以像操作VB6数组一样访问和操作这些数据了。

这里提供一个简化的示例代码，假设使用了一个假设的JSON解析函数`JSONToArray`：

Dim jsonString As String
Dim jsonArray() As Object

jsonString = "[{""HosId"":""0101""},{""HosId"":""0102""}]"

' 假设JSONToArray是用于解析JSON字符串的函数，这里仅为示例，实际上需要一个真实的JSON解析器
jsonArray = JSONToArray(jsonString)

' 遍历对象数组
Dim i As Integer
For i = LBound(jsonArray) To UBound(jsonArray)
    ' 假设每个对象都有一个名为"HosId"的属性
    Debug.Print jsonArray(i)("HosId")
Next i

请注意，上面的`JSONToArray`函数和`jsonArray(i)("HosId")`语法都是为了示例而假设的。在实际应用中，你需要用到真实的库或者自定义的解析方法来实现相同的功能。