Option Explicit
Sub grossesdatenfeld()
Dim i As Long
Dim t
Dim s As String
Const maxFelder = 500000 'Anzahl der einzulesenden Zeilen bzw. _
die gewünschte Größe Deines Datenfeldes
ReDim t(1) 'um eine Redimensionierung zu ermöglichen
'Zuerst die Datei erstellen
Open "test.dat" For Output As #1
For i = 1 To maxFelder
Print #1, "Zeile " & i
Next
Close #1
MsgBox "Daten vorbereitet, werden nun eingelesen"
'Einlesen der Datei Zeile für Zeile. Code ist langsam,
'weil das Datenfeld Schritt für Schritt vergrößert werden muß
Open "test.dat" For Input As #1
i = 0
Do
i = i + 1
Line Input #1, s
ReDim Preserve t(1 To i)
t(i) = s
Loop Until EOF(1)
MsgBox "Einlesen Zeile für Zeile" & vbCrLf & "Obergrenze des Datenfeldes: " & UBound(t)
Close #1
'Einlesen auf einen Schlag. Das Einlesen an sich dauert genauso lange wie oben,
'aber da das Datenfeld nur 1x durch die Split- anweisung dimensioniert wird,
'wird der Gesamtvorgang enorm beschleunigt
Open "test.dat" For Binary As #1
s = Space(LOF(1))
Get #1, , s
t = Split(s, vbCrLf)
MsgBox "Einlesen auf einen Schlag" & vbCrLf & "Obergrenze des Datenfeldes: " & UBound(t)
Close #1
Kill "test.dat"
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen