Grosse Textdatei in einen String einlesen
11.10.2003 16:38:00
Reinhard
mit nachstehendem Code erzeuge ich eine Ascii-Datei mit ca.1,9MB Zeichen
mit
Dim Zeile as String
open "dateiname" for input as #1
while not eof(1)
input #1, Zeile
...
kann ich sie einlesen aber wegen der 200.000 Dateizugriffe dauert das ewig.
Nun ist String(feste Länge) mit maximal ca. 65.400 Bytes beschrieben aber
String(variable Länge) mit 0 bis 2 Milliarden.
Nun meine Frage, wie lese ich auf einen Rutsch eine Datei in einen String (variabler Länge) ein?
Dim weglassen? was sagt dann option explicit, außerdem habe ich es nicht geschafft, dies mit binary, random len=usw.
Gruß
Reinhard
Sub erzeugen()
Open "c:\temp\riesig.txt" For Output As #1
For n = 1 To 200000
Print #1, n
Next n
Close
End Sub
Anzeige