Ich möchte sehr große Dateien (>= 10MB) nach einer Zeichenfolge durchsuchen. Damit das sehr schnell geht, lese ich über
<--CODE-->
Dim Daten as String * 65000
Dim i as integer
For i = 1 to Dateilänge Step 65000
Get #1, i, Daten
If Instr(Daten, "TEST") <> 0 then MsgBox "Gefunden!"
Next i
<--CODE-->
...das Problem an der Sache ist, obwohl ich den festen String auf 65000 gesetzt habe (damit das sehr schnell geht), werden nicht alle 65000 Zeichen in die Variable eingelesen, nur so um die 32644 Zeichen, der Rest sind Leerstellen. Wenn ich nun meine 65000 auf 32000 reduziere, dann geht das auch nicht immer, weil er den Übergang nicht immer genau trifft und dann alle Folgezeichen zerhackt.
Hat jemand evtl. eine bessere/sauberere Idee?
Danke
Christian