Jaki jest najszybszy sposób (przy użyciu VB6) do odczytu całego, dużego pliku binarnego do tablicy?Odczytaj plik binarny do tablicy
7
A
Odpowiedz
8
Oto jeden ze sposobów, choć ograniczasz się do plików o rozmiarze około 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
5
Można porównać te dwa
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
wolę drugi, ale ma ten przykry efekt uboczny. Jeśli sFile
nie istnieje, tryb For Binary
tworzy pusty plik niezależnie od tego, czy jest używany Access Read
.
Powiązane problemy
- 1. Odczytaj plik do tablicy
- 2. Odczytaj plik binarny za pomocą Numpy fromfile i danego offsetu
- 3. C++ Odczytaj plik do spacji
- 4. Odczytaj binarny kod QR z AVFoundation
- 5. odczytać cały plik binarny do tablicy w pojedynczy połączeń C++
- 6. Odczytaj żądanie HTTP do tablicy bajtów
- 7. Odczytaj plik XML jako DataSet
- 8. RESTful produkuje plik binarny
- 9. plik binarny ciąg
- 10. Jak scalić plik binarny?
- 11. Napisz surowy plik binarny z danymi tablicy NumPy
- 12. Skompiluj plik binarny do łączenia OSX
- 13. Podziel i dołącz plik binarny do java
- 14. Plik obiektowy na kod binarny
- 15. Jak zainstalować plik binarny sequelize.js?
- 16. Odczytaj plik JSON w Objective C
- 17. Odczytaj plik tekstowy z PCLStorage w Xamarin.Forms
- 18. Odczytaj zdalny plik .csv przy użyciu opencsv
- 19. Odczytaj plik XML MS Excel do pandasowej ramki danych?
- 20. Odczytaj plik HTML do zmiennej łańcuchowej w pamięci
- 21. Java - Odczytaj plik i podziel na kilka plików
- 22. bash/procesor binarny/binarny strumień toolchain binarny
- 23. VB - Jak mogę odczytać i zapisać plik binarny?
- 24. Jak mogę utworzyć plik binarny w Perlu?
- 25. Nieprawidłowy plik binarny po aktualizacji Xcode 8.2
- 26. Prześlij duży plik binarny do Java Spring RestTemplate
- 27. Zapisz plik binarny do pliku blob z pliku httppostedfilmu
- 28. dekompilować plik binarny aplikacji, aby powrócić do kodu źródłowego
- 29. jak sprawnie odczytać plik binarny do wektora C++
- 30. Automatycznie otwórz plik jako plik binarny z Ruby
Dlaczego pętla? Po prostu 'Get fileNum,, bytes' i przyspieszenie go 100x – wqw
W' Get fileNum, data' otrzymuję 'Run-time Error 458, Variable używa typu Automation nieobsługiwanego w Visual Basic'. Masz pojęcie, co się dzieje? Czy brakuje mi odniesienia do biblioteki? – user2173353
OK. Rozumiem! Zmień to na: 'ReDim bytes (1 To lenF) As Byte'. Najwyraźniej używałem Warianta i wcale mu się to nie podobało ... – user2173353