adodb.stream json

ADODB.Stream 是一款用于处理二进制数据的 COM 组件，它可以读取、写入和操作二进制数据。在处理 JSON 数据时，我们可以使用 ADODB.Stream 来读取和解析 JSON 数据。

当我们需要将 JSON 数据写入文件时，可以使用 ADODB.Stream 来创建一个新的文件流，并将 JSON 数据写入文件流中，以便后续处理。代码示例如下：

Dim oStream As New ADODB.Stream
Dim sJSON As String

sJSON = "{""name"": ""Tom"",""age"": 20}"

With oStream
	.Type = adTypeBinary
	.Open
	.WriteText sJSON
	.SavetoFile "C:\data.json",adSaveCreateOverWrite
	.Close
End With

在读取 JSON 数据时，我们可以使用 ADODB.Stream 来读取文件流中的 JSON 数据，并将 JSON 数据解析为 VBScript 对象。代码示例如下：

Dim oStream As New ADODB.Stream
Dim oJSON As Object

With oStream
	.Type = adTypeBinary
	.Open
	.LoadFromFile "C:\data.json"
	.Position = 0
	.Charset = "utf-8"
End With

Set oJSON = CreateObject("Scripting.Dictionary")
With CreateObject("MSXML2.DOMDocument").createElement("root")
	.async = False
	.LoadXML oStream.ReadText
	oJSON.Add "root",ParseJSON(.FirstChild.Text)
End With

oStream.Close

ADODB.Stream 是一款非常方便的二进制数据处理组件，可以用于读取、写入和操作各种类型的数据。在处理 JSON 数据时，使用 ADODB.Stream 可以提高代码效率，让我们更方便地解析和使用 JSON 数据。