Count Lines In textbox

How do i count how many lines someone has typed into a text box?

Thanx in Advance
LVL 1
burnttimeAsked:
Who is Participating?
 
vinnyd79Commented:
you could try using split:

Private Sub Command1_Click()
Dim NumLines As Integer
Dim arrLines() As String
arrLines = Split(Text1.Text, vbCrLf)
NumLines = UBound(arrLines) + 1
MsgBox NumLines
End Sub
0
 
vinnyd79Commented:
If you need to disregard blank lines then use:

Private Function CountLines(txtBox As TextBox) As Long
Dim NumLines As Integer, i As Integer
Dim arrLines() As String
arrLines = Split(txtBox, vbCrLf)
NumLines = 0
For i = 0 To UBound(arrLines)
    If Trim$(arrLines(i)) <> "" Then
        NumLines = NumLines + 1
    End If
Next i
CountLines = NumLines
End Function


Private Sub Command1_Click()
MsgBox CountLines(Text1)
End Sub
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.