Lesen einer binären Datei in ein array

Was ist der Schnellste Weg (mit VB6) zum Lesen einer ganzen, großen, binäre Datei in ein array?

InformationsquelleAutor Dave | 2010-03-16
  1. 8

    Hier ist ein Weg, obwohl Sie beschränkt sind, um die Dateien von 2 GB Größe.

      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
    • Warum Schleife? Nur Get fileNum, , bytes und Geschwindigkeit, die es bis 100x
    • Auf der Get fileNum, , data ich eine Run-time Error 458, Variable uses an Automation Type not supported in Visual Basic. Keine Ahnung, was Los ist??? Bin ich fehlt ein Verweis Bibliothek?
    • OK. Es habe! Wechseln Sie in dieses: ReDim bytes(1 To lenF) As Byte. Anscheinend war ich mit Variante, und es hat nicht, wie es überhaupt...
    InformationsquelleAutor raven
  2. 5

    Vergleichen kann man 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

    Bevorzuge ich die zweite ein, aber es hat einen bösen Nebeneffekt. Wenn sFile existiert nicht For Binary - Modus erzeugt eine leere Datei egal, dass Access Read verwendet wird.

    InformationsquelleAutor wqw
Schreibe einen Kommentar