VB.net examples with System.Text.Json

BasicJSON.vb

Dim Options = New JsonWriterOptions

With options
    .Indented = True
End With

Dim MemStream As New MemoryStream
Dim Writer As New Utf8JsonWriter(MemStream, Options)

Writer.WriteStartObject()
Writer.WriteString("date", DateTimeOffset.UtcNow)
Writer.WriteNumber("temp", 42)
Writer.WriteEndObject()

Console.WriteLine(Writer.BytesPending)
Writer.Flush()
Console.WriteLine(MemStream.Length)

MemStream.Close()

Dim JSON As String = Encoding.UTF8.GetString(MemStream.ToArray())

Console.WriteLine(Json)