Đọc một tệp nhị phân thành một mảng

Question

Cách nhanh nhất (sử dụng VB6) để đọc toàn bộ, tệp nhị phân lớn thành một mảng là gì?

Answer 1

Dưới đây là một cách, mặc dù bạn bị giới hạn ở các tệp có dung lượng khoảng 2 GB.

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

Bạn có thể so sánh hai

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 

tôi thích thứ hai nhưng nó có tác dụng phụ khó chịu này. Nếu sFile không tồn tại chế độ For Binary sẽ tạo một tệp trống bất kể Access Read được sử dụng.