read specific line from bottom of text file 1

[mirror152]

Hi,

I have text files that store data. Once open (no problem there) I need to read the fourth line from the bottom for use in my program. I'm using text files of varying length so going from the top won't work. Ideas?

 

[gmmastros]

I suggest you use arrays for this. Store each line in an element of an array. Then you can simply use uBound -3. Like this:

    Dim Data() As String
    
    Data = Split(CreateObject("Scripting.FileSystemObject").OpenTextFile("[!]C:\Lines.txt[/!]").ReadAll, vbCrLf)
    Call MsgBox(Data(UBound(Data) - 3))

Make sure you replace the filename without whatever file you are using.

-George

"The great things about standards is that there are so many to choose from." - Fortune Cookie Wisdom

 

[softhemc]

Alternatively (a slighly more .Net-ish way) ...

		Try
			Dim lines() As String = IO.File.ReadAllLines(My.Computer.FileSystem.SpecialDirectories.Desktop + "\lines.txt")
			MessageBox.Show(lines(lines.Length - 4))
		Catch ex As Exception
			MessageBox.Show(ex.Message)
		End Try

 

[gmmastros]

I got a little confused. I thought this was the VB6 forum. I see now that I was mistaken. Sorry.

-George

"The great things about standards is that there are so many to choose from." - Fortune Cookie Wisdom