We help IT Professionals succeed at work.

Check out our new AWS podcast with Certified Expert, Phil Phillips! Listen to "How to Execute a Seamless AWS Migration" on EE or on your favorite podcast platform. Listen Now

x

Count Lines In textbox

burnttime
burnttime asked
on
Medium Priority
299 Views
Last Modified: 2008-03-17
How do i count how many lines someone has typed into a text box?

Thanx in Advance
Comment
Watch Question

Commented:
Unlock this solution and get a sample of our free trial.
(No credit card required)
UNLOCK SOLUTION

Commented:
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
Unlock the solution to this question.
Thanks for using Experts Exchange.

Please provide your email to receive a sample view!

*This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

OR

Please enter a first name

Please enter a last name

8+ characters (letters, numbers, and a symbol)

By clicking, you agree to the Terms of Use and Privacy Policy.