Imports System

Imports YamlDotNet.Core

Imports YamlDotNet.Core.Events

Imports YamlDotNet.Serialization

​

Public Class Program

​

    Public Class GuidConverter

        Implements IYamlTypeConverter

​

        Public Function Accepts(type As Type) As Boolean Implements IYamlTypeConverter.Accepts

            Return type = GetType(Guid)

        End Function

​

        Public Function ReadYaml(parser As IParser, type As Type) As Object Implements IYamlTypeConverter.ReadYaml

            Dim reader = New EventReader(parser)

            Dim scalar = reader.Expect(Of Scalar)()

            Return Guid.Parse(scalar.Value)

        End Function

​

        Public Sub WriteYaml(emitter As IEmitter, value As Object, type As Type) Implements IYamlTypeConverter.WriteYaml

            emitter.Emit(New Scalar(value.ToString()))

        End Sub

    End Class

​

    Public Shared Sub Main()

        Dim serializer = New Serializer()

        serializer.RegisterTypeConverter(New GuidConverter())

        serializer.Serialize(Console.Out, New With {.id = Guid.NewGuid()})

    End Sub

End Class

​