Файлы, потоки и сериализация

Imports System.IO
Module Demo
    Function ReadConfig(path As String) As String
        Return File.ReadAllText(path, Text.Encoding.UTF8)
    End Function
End Module

Option Strict On
Imports System.IO
Namespace ReviewCase15_1
    Module Demo
        Function ReadConfig(reviewPath As String) As String
            Return File.ReadAllText(reviewPath, Text.Encoding.UTF8)
        End Function
    End Module
End Namespace

Option Explicit On
Option Infer On
Imports System.IO
Namespace BoundaryCase15_1
    Module Demo
        Function ReadConfig(edgePath As String) As String
            Return File.ReadAllText(edgePath, Text.Encoding.UTF8)
        End Function
    End Module
End Namespace

Imports System.IO
Module Demo
    Function ReadExact(stream As Stream, size As Integer) As Byte()
        Dim buffer(size - 1) As Byte
        Dim offset = 0
        While offset < buffer.Length
            Dim read = stream.Read(buffer, offset, buffer.Length - offset)
            If read = 0 Then Throw New EndOfStreamException()
            offset += read
        End While
        Return buffer
    End Function
End Module

Option Strict On
Imports System.IO
Namespace ReviewCase15_2
    Module Demo
        Function ReadExact(reviewStream As Stream, reviewSize As Integer) As Byte()
            Dim reviewBuffer(reviewSize - 1) As Byte
            Dim reviewOffset = 0
            While reviewOffset < reviewBuffer.Length
                Dim reviewRead = reviewStream.Read(reviewBuffer, reviewOffset, reviewBuffer.Length - reviewOffset)
                If reviewRead = 0 Then Throw New EndOfStreamException()
                reviewOffset += reviewRead
            End While
            Return reviewBuffer
        End Function
    End Module
End Namespace

Option Explicit On
Option Infer On
Imports System.IO
Namespace BoundaryCase15_2
    Module Demo
        Function ReadExact(edgeStream As Stream, edgeSize As Integer) As Byte()
            Dim edgeBuffer(edgeSize - 1) As Byte
            Dim edgeOffset = 0
            While edgeOffset < edgeBuffer.Length
                Dim edgeRead = edgeStream.Read(edgeBuffer, edgeOffset, edgeBuffer.Length - edgeOffset)
                If edgeRead = 0 Then Throw New EndOfStreamException()
                edgeOffset += edgeRead
            End While
            Return edgeBuffer
        End Function
    End Module
End Namespace

Imports System.Text.Json
Class Settings
    Public Property RetryCount As Integer
End Class
Module Demo
    Function Parse(raw As String) As Settings
        Dim value = JsonSerializer.Deserialize(Of Settings)(raw)
        If value Is Nothing OrElse value.RetryCount < 0 Then Throw New JsonException("invalid settings")
        Return value
    End Function
End Module

Option Strict On
Imports System.Text.Json
Namespace ReviewCase15_3
    Class Settings
        Public Property RetryCount As Integer
    End Class
    Module Demo
        Function Parse(reviewRaw As String) As Settings
            Dim value = JsonSerializer.Deserialize(Of Settings)(reviewRaw)
            If value Is Nothing OrElse value.RetryCount < 0 Then Throw New JsonException("invalid settings")
            Return value
        End Function
    End Module
End Namespace

Option Explicit On
Option Infer On
Imports System.Text.Json
Namespace BoundaryCase15_3
    Class Settings
        Public Property RetryCount As Integer
    End Class
    Module Demo
        Function Parse(edgeRaw As String) As Settings
            Dim value = JsonSerializer.Deserialize(Of Settings)(edgeRaw)
            If value Is Nothing OrElse value.RetryCount < 0 Then Throw New JsonException("invalid settings")
            Return value
        End Function
    End Module
End Namespace

Imports System.IO
Imports System.Text
Module Demo
    Sub Save(path As String, text As String)
        File.WriteAllText(path, text, New UTF8Encoding(False))
    End Sub
End Module

Option Strict On
Imports System.IO
Imports System.Text
Namespace ReviewCase15_4
    Module Demo
        Sub Save(reviewPath As String, reviewText As String)
            File.WriteAllText(reviewPath, reviewText, New UTF8Encoding(False))
        End Sub
    End Module
End Namespace

Option Explicit On
Option Infer On
Imports System.IO
Imports System.Text
Namespace BoundaryCase15_4
    Module Demo
        Sub Save(edgePath As String, edgeText As String)
            File.WriteAllText(edgePath, edgeText, New UTF8Encoding(False))
        End Sub
    End Module
End Namespace

Imports System.IO
Module Demo
    Sub ReplaceAtomically(target As String, content As String)
        Dim temp = target & ".tmp"
        File.WriteAllText(temp, content)
        File.Move(temp, target, True)
    End Sub
End Module

Option Strict On
Imports System.IO
Namespace ReviewCase15_5
    Module Demo
        Sub ReplaceAtomically(reviewTarget As String, reviewContent As String)
            Dim reviewTemp = reviewTarget & ".tmp"
            File.WriteAllText(reviewTemp, reviewContent)
            File.Move(reviewTemp, reviewTarget, True)
        End Sub
    End Module
End Namespace

Option Explicit On
Option Infer On
Imports System.IO
Namespace BoundaryCase15_5
    Module Demo
        Sub ReplaceAtomically(edgeTarget As String, edgeContent As String)
            Dim edgeTemp = edgeTarget & ".tmp"
            File.WriteAllText(edgeTemp, edgeContent)
            File.Move(edgeTemp, edgeTarget, True)
        End Sub
    End Module
End Namespace