Eine Binärdatei in ein Array lesen

Question

Was ist der schnellste Weg (mit VB6), um eine ganze große Binärdatei in ein Array zu schreiben?

Answer 1

Hier ist ein Weg, obwohl Sie auf Dateien um 2 GB beschränkt sind.

Dim fileNum As Integer 
    Dim bytes() As Byte 

    fileNum = FreeFile 
    Open "C:\test.bin" For Binary As fileNum 
    ReDim bytes(LOF(fileNum) - 1) 
    Get fileNum, , bytes 
    Close fileNum 

Answer 2

Sie können diese beiden

Private Function ReadFile1(sFile As String) As Byte() 
    Dim nFile  As Integer 

    nFile = FreeFile 
    Open sFile For Input Access Read As #nFile 
    If LOF(nFile) > 0 Then 
     ReadFile1 = InputB(LOF(nFile), nFile) 
    End If 
    Close #nFile 
End Function 

Private Function ReadFile2(sFile As String) As Byte() 
    Dim nFile  As Integer 

    nFile = FreeFile 
    Open sFile For Binary Access Read As #nFile 
    If LOF(nFile) > 0 Then 
     ReDim ReadFile2(0 To LOF(nFile) - 1) 
     Get nFile, , ReadFile2 
    End If 
    Close #nFile 
End Function 

ich die zweite bevorzugen vergleichen, aber es hat diese unangenehme Nebenwirkung. Wenn sFile nicht existiert For Binary Modus erstellt eine leere Datei, egal Access Read wird verwendet.