read only a part of txt file

[2009luca]

I already know the number of the first line to read and the last one.

without looping whole file line by line!

how to loop only the lines from the number of line 10 to the number line 100?

 

[MakeItSo]

You will have to read the file in some way.
Easiest (using FileSystemObject):

For i = 1 to 9
   if objTextFile.AtEndOfStream Exit For
   objTextFile.ReadLine
Next i

By reading 89 lines but doing nothing, you sort of "skip" over these lines. Now you can read the next 90 lines, then quit after line 100.

Another option would be (provided the file is not very big): Read the entire contents, split by CrLf, loop over indexes 9 through 99 of the resulting array.

See also: [faq333-504]

Would that be good enough?

"Knowledge is power. Information is liberating. Education is the premise of progress, in every society, in every family." (Kofi Annan)
Oppose SOPA, PIPA, ACTA; measures to curb freedom of information under whatever name whatsoever.

 

[strongm]

>provided the file is not very big

And how might we characterise "not very big"?

 

[MakeItSo]

And how might we characterise "not very big"?

Maybe a file in the kB range rather than MB, I guess?

"Knowledge is power. Information is liberating. Education is the premise of progress, in every society, in every family." (Kofi Annan)
Oppose SOPA, PIPA, ACTA; measures to curb freedom of information under whatever name whatsoever.

 

[2009luca]

im sorry...
really the txt file can have approx 2.500.XXX lines, and i need to get line by line from line number 589.458 to 600.000...

 

[strongm]

> the kB range

VB (and the Split function) happily handles much bigger text files than that.

>rather than MB

10s of megabytes will work quite happily. Indeed, I've certainly used your suggested solution in the past (read the entire contents, split by CrLf) with text files well over 100Mb in size

 

[MakeItSo]

I've certainly used your suggested solution in the past (read the entire contents, split by CrLf) with text files well over 100Mb in size

Wow! I will try to remember this rough range then, thanks!

the txt file can have approx 2.500.XXX lines, and i need to get line by line from line number 589.458 to 600.000...

In that case... ... is there any way you could access the original data source that produced this file rather than the txt file? Or: Is the txt of a specific delimited sort so that you could use it as a data source, querying the desired lines via an OLEDB connection?

"Knowledge is power. Information is liberating. Education is the premise of progress, in every society, in every family." (Kofi Annan)
Oppose SOPA, PIPA, ACTA; measures to curb freedom of information under whatever name whatsoever.

 

[Andrzejek]

I would start simply this way:

Dim strTextLine As String
Dim L As long

Open [red]"C:\Temp\MyTextFile.txt"[/red] For Input As #1
Do While Not EOF(1)
    L = L + 1
    Line Input #1, strTextLine   
    If L > [blue]589457[/blue] Then[green]
        'Do your magic here[/green]
    End If
    If L = [blue]600000[/blue] Then
        Exit Loop
    End If
Loop
Close #1

---- Andy

There is a great need for a sarcasm font.