Der Binary befehl ist zihmlich langssam. Gebts da was Schnelleres?
Der Binary befehl ist zihmlich langssam. Gebts da was
Schnelleres?
Hallo Frank,
das geht eigentlich recht flink, alles andere ist IMHO noch langsamer.
Oder liest Du die Bytes einzeln in einer Schleife?
Mit …
Private Sub Command1\_Click()
CommonDialog1.ShowOpen
na = CommonDialog1.FileName
fl = FileLen(na)
Open na For Binary As #1
txt = Input(fl, #1)
Close #1
End Sub
… hat mein Compi (PII/1000) gerade 1.3MB in drei Sekunden geladen.
Gruß, Rainer
ich habs so gemacht:
…
Open … For Binary as 1
For i = 1 to FileLen(…)
Get #1, tmp
text = text & tmp
Next i
Close
Ich glaub meine Variante isch da doch noch langermer.
Ich glaub meine Variante isch da doch noch langermer.
Ja…, fast 100.000 mal langsamer.
Hallo Frank,
Ich glaub meine Variante isch da doch noch langermer.
ja, Du liest jedes Byte einzeln. Das ist langsam. 
Die Länge vorher ermitteln und dann diese Anzahl Bytes auf einmal lesen geht schneller. … Hast Du ja jetzt.
Gruß, Rainer