find number of lines in .txt file

dgr7 · January 29th, 2007, 11:25 AM

hello,
I have a file C:\test\test.txt that I'd like to, using a Function where you pass in the Directory and Filename that you want to utilize, in this case C:\test and test.txt, calculate the number of lines in the text file and return that value from the Function.
Could someone share with me the code that would do this?

ex. if test.txt looked like

lskdjflskjf
lksdflksdj
slkdjf
lksjdf

the Function would return the value 4.

thanks in advance,
david

dhua · January 29th, 2007, 10:48 PM

anyone solve this problem yet. it would be nice to know

gbianchi · January 30th, 2007, 08:33 AM

hi there..

can you just open the file and read line by line???

HTH

Gonzalo

================================================== =========
Read this if you want to know how to get a correct reply for your question:
http://www.catb.org/~esr/faqs/smart-questions.html
^^Took that from dparsons signature and he Took that from planoie's profile
================================================== =========

BbCasey · February 2nd, 2007, 03:09 PM

David, do you want to count physical lines (i.e. a long line that wraps counts as two lines) or logical lines (i.e. a long line that wraps counts as one line)?

If you want to count physical lines, try this:

Code:

Private Function CountLines() As Integer
    Dim myLines() As String

    myLines = Split(Text1.Text, vbCrLf)
    CountLines = UBound(myLines) + 1
End Function

dgr7 · February 2nd, 2007, 03:17 PM

BBcasey,

thanks for the code, it looks helpful......now what would the code be to open the Text1 file from
the hard drive to then use in the code you supplied?

thanks in advance,
david

dgr7 · February 5th, 2007, 05:50 PM

can anyone help me with my question?

thanks,
david

dgr7 · February 5th, 2007, 06:10 PM

just found some help on another VB forum....

Private Function LineCount(FileName As String) As Long
Open FileName For Input As #1
Do While Not EOF(1)
I = I + 1
Line Input #1, D
Loop
Close #1
LineCount = I
End Function

Private Sub Command1_Click()
MsgBox LineCount(Environ$("WinDir") & "\Win.INI")
End Sub

Uppaluri · February 29th, 2012, 10:38 PM

Open text file. Click on Edit>Go To. Give a huge number than expected number of lines. say if you expect to have 2000 lines, give 5000 or just give 200000. It gives an eror "The Line number is beyond the total number of lines" and shows up the the immediately available line. If you have 2379 lines it gives 2380. So whatever it shows up minus 1 is the actual number of lines in the text file. Cheers!!

yunda · July 16th, 2014, 05:11 AM

I think TextFinding.com may help you! It is a useful tool to find multiple text in all types of files.