InputB geht lange

26/11/2008 - 08:55 von Thomas | Report spam
Hallo,
ich will per InputB eine Datei binàr einlesen.
Das geht auch alles normalerweise problemlos.
Jedoch manchmal (nicht nachvollziebar wann) wenn eine große Datei eingelesen
werden soll, dann geht es unverhàltnismàßig lange:
Normalerweise geht eine ca. 8 MB große Datei ca. 40 Sekunden.
Für die gleiche Datei wird jedoch manchmal über 10 Minuten gebraucht.
(gleiches System, gleiche Datei)

Jemand eine Idee woran das liegt?

Thomas

Hier mein VB6 Code


Private Sub Command1_Click()
Dim data() As Byte
Dim f As Long
Dim FileSize As Long
Dim FName As String
Dim i As Integer
Dim BytesRead As Long
Const BLOCK_SIZE = 16384

FName = "C:\Text.xls"

For i = 0 To 1
Debug.Print "Anzahl: " & i & " Zeit Anfang: " & Now
BytesRead = 0
f = FreeFile
Open FName For Binary As #f
FileSize = LOF(f)
Do While FileSize <> BytesRead
If FileSize - BytesRead < BLOCK_SIZE Then
data = InputB(FileSize - BytesRead, f)
BytesRead = FileSize
Else
data = InputB(BLOCK_SIZE, f)
BytesRead = BytesRead + BLOCK_SIZE
End If
'Daten in Datenbank wegschreiben
'm_rst(Feld).AppendChunk data


Loop
'data = InputB(FileSize, f)
Close #f
Debug.Print "Anzahl: " & i & " Zeit Ende: " & Now
DoEvents
Next i
End Sub
 

Lesen sie die antworten

#1 Jens Müller
29/11/2008 - 19:14 | Warnen spam
"Thomas" schrieb:
Hallo,
ich will per InputB eine Datei binàr einlesen.



"Binàr" einlesen? Ich benutze dafür "Get" und auch Open For Binary (Access
Read). Probier mal ob das schneller geht.

HTH,
Jens

Ähnliche fragen