loop into array

[sal21]

2 question...
1- how to loop the array A just created from code (line by line)
2- the code work with a file arround 25mg but if have a file arround 2 gb?

Code: Select all

Sub TRE()

Dim A() As Long
Dim Test As String ' IS MY LINE

Open "C:\TEMP\TEST.TXT" For Binary As #1
ReDim A(0 To LOF(1) - 1)
Get #1, , A
Close #1

End Sub

[HansV]

Why do you want to do this? You're trying to load an entire disk file into memory! With 2GB that's a bit much...

[sal21]

Why do you want to do this? You're trying to load an entire disk file into memory! With 2GB that's a bit much...

i m sorry.... 20 mb no 2gb

[HansV]

The line

Get #1, , A

loads the file into memory as one big array, not as a series of lines. What exactly do you want to do?

[sal21]

The line

Get #1, , A

loads the file into memory as one big array, not as a series of lines. What exactly do you want to do?

STORE into array the complete txt file (line by line) and loop similar Ubound Lbonud ecc...

I think is a good way to work with a big number of lines , or not?

[HansV]

I think it's easier to read the file line by line, for if you open it as binary, you have to go through it character by character instead of line by line.