Visual Basic

Dim asStream As FileStream = New FileStream(physicalPath, FileMode.Open, FileAccess.Read)
            Dim asLen As Long = asStream.Length
            Dim fileData As Byte() = New Byte(asLen) {}
            asStream.Read(fileData, 0, asLen)
            asStream.Close()
 
            Dim byteLine() As Byte = New Byte() {}
            Dim strArray() As String = New String() {}
            For bdx As Integer = 0 To fileData.Length - 1
 
                Dim byteVal As Byte = fileData(bdx)
                If Not (byteVal = &HD) Then
 
                    Array.Resize(byteLine, byteLine.Length + 1)
                    byteLine(byteLine.Length - 1) = byteVal
 
                Else
                    Array.Resize(byteLine, byteLine.Length + 1)
                    byteLine(byteLine.Length - 1) = byteVal
 
                    Dim charLine() As Char = New Char() {}
                    Array.Resize(charLine, byteLine.Length + 1)
 
                    For cdx As Integer = 0 To byteLine.Length - 1
 
                        charLine(cdx) = AsciiByteToChar(byteLine(cdx))
 
                    Next
 
                    Dim value As String = New String(charLine)
                    Array.Resize(strArray, strArray.Length + 1)
                    strArray(strArray.Length - 1) = value
 
                    Array.Resize(byteLine, 0)
                    bdx += 1
 
                End If
            Next