[RESOLVED] Count # of lines in a file?

[kandieman101]

I am making a game, and info is stored in a text file. I need to know how many lines are in the text file, and it will never be a "set number".

Is there anyway to quickly count the lines? Currently, I am reading the file and increasing a counter, and then reading the file again for the data. Another option I thought about was to write the number of lines to the first line in the file (-1 of course... since you don't want that piece of info).

Any more information or suggestions would help!

Thanks

[James Stanich]

Basic textfile readin example :

Open SFILE For Input As #1
                    
    Dim STRING1 As String, STRING2 As String
                                
    Do Until EOF(1) = True
 
        Input #1, STRING1, STRING2
                    
        Msgbox String1 & " - " & String2
                    
    Loop
                                
    Close #1

[Muddy]

or you can read the file into one big string and:

intNumberOfLines = Ubound(Split(strFileText,vbcrlf))+1

[kandieman101]

Which is the fastest way?

[scr0p]

Option Explicit
 
Private Sub Command1_Click()
LineCount (Text1.Text)
End Sub
 
Public Function LineCount(TheBody As String) As Long
    Dim TotalChars As Long
    Dim Letter, I
    TotalChars = Len(TheBody)
    LineCount = 0
    
    For I = 1 To TotalChars
        Letter = Mid(TheBody, I, 1) 'This goes through every letter in TheBody
        If Letter = Chr(13) Then
        LineCount = LineCount + 1
        I = I + 1 'This skips chr(10) which always follows chr(13)
        End If
    Next I
 
    MsgBox (LineCount)
End Function

[Muddy]

Originally posted by kandieman101
Which is the fastest way?

ive got to think using the ubound(split) is the fastest

[The Hobo]

'function:
Private Function NumberofLines(strFileName As String) As Integer
Dim f As Integer
 
  f = FreeFile
  Open strFileName For Input As #f
    NumberofLines = UBound(Split(Input(LOF(1), 1), vbCrLf)) + 1
  Close #f
End Function
 
'example use:
Private Sub Command1_Click()
  MsgBox NumberofLines("C:\file.txt")
End Sub

[kandieman101]

Thanks Hobo.