• Home
 · 
• Files/File Controls/Input/Output
 · 
• File Conversion to Bytes and String

File Conversion to Bytes and String

File Conversion to Bytes and String

API Declarations


' 2 functions to write the file as Bytes and another to String
' 2 functions to read the file as bytes and other as string



Rate File Conversion to Bytes and String

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

' Purpose: ReadByte Array from Binary File
' Remarks: Converting a file to binary file in Bytes()

Private Function ReadByteArrayFromBinaryFile(ByVal Filename As String) As Byte()
    Dim FileNo As Integer, FileSize As Long
    Dim ByteArray() As Byte
    
    FileNo = FreeFile
    Open Filename For Binary Access Read Shared As #FileNo
    'Open Filename For Input As #FileNo
        FileSize = LOF(FileNo)  ' get the file size
        
        ReDim ByteArray(1 To FileSize)
        
        Get #FileNo, , ByteArray()
        
        ReadByteArrayFromBinaryFile = ByteArray()
        
    Close #FileNo
End Function


' Purpose: WriteByte Array To Binary File
' Remarks: 

Private Sub WriteByteArrayToBinaryFile(ByVal Filename As String, ByRef ByteArray() As Byte)
    Dim FileNo As Integer
    
    FileNo = FreeFile ' get next available file number
    Open Filename For Binary Access Write Shared As #FileNo
        
        Put #FileNo, , ByteArray()
        
    Close #FileNo
End Sub


' Purpose: Read Binary File to String
' Remarks: Convert to String datatype

Private Function ReadBinaryFile(ByVal Filename As String) As String
    Dim FileNo As Integer, FileSize As Long
    Dim i As Long, Loops As Long, Remainder As Long
    Dim Buffer As String
    Dim BinaryData As String
    
    Const BUFFER_SIZE As Integer = 30000
    
    FileNo = FreeFile
    Open Filename For Binary Access Read Shared As #FileNo
        
        FileSize = LOF(FileNo)  ' get the file size
        Loops = Int(FileSize / BUFFER_SIZE)  ' calculate number of loops required
        
        For i = 1 To Loops
            Buffer = String$(BUFFER_SIZE, Chr$(0))
            Get #FileNo, , Buffer
            BinaryData = BinaryData & Buffer
        Next
        
        ' fill in the leftovers
        '
        Remainder = FileSize Mod BUFFER_SIZE
        If Remainder > 0 Then
            Buffer = String$(Remainder, Chr$(0))
            Get #FileNo, , Buffer
            BinaryData = BinaryData & Buffer
        End If
        
        ReadBinaryFile = BinaryData
        
    Close #FileNo
End Function



' Purpose: Write Binary File
' Remarks: Convert to String datatype

Private Sub WriteBinaryFile(ByVal Filename As String, ByVal BinaryData As String)
    Dim FileNo As Integer, FileSize As Long
    Dim i As Long, Loops As Long, Remainder As Long
    Dim Buffer As String
    
    Const BUFFER_SIZE As Integer = 30000
    
    FileNo = FreeFile ' get next available file number
    Open Filename For Binary Access Write Shared As #FileNo
        
        Loops = Int(Len(BinaryData) / BUFFER_SIZE)   ' calculate number of loops
        
        For i = 1 To Loops
            Buffer = String$(BUFFER_SIZE, Chr$(0))
            Buffer = Mid$(BinaryData, (BUFFER_SIZE * (i - 1)) + 1, BUFFER_SIZE)
            Put #FileNo, , Buffer
            Buffer = ""
        Next
        
        ' fill in the leftovers
        '
        Remainder = Len(BinaryData) Mod BUFFER_SIZE
        If Remainder > 0 Then
            Buffer = String$(Remainder, Chr$(0))
            Buffer = Right(BinaryData, Remainder)
            Put #FileNo, , Buffer
            Buffer = ""
        End If
        
    Close #FileNo
End Sub