[TheSolid]

Ok, So I am making this awesome Notepad type thing, and I am making it have a statusbar that tells you How many Characters, Words, and Lines are in the textbox.

Here is the code for it...

	Public Shared Function CountWords(ByVal Text As String) As Integer
		Dim Regex As New System.Text.RegularExpressions.Regex("\w+")
		Return Regex.Matches(Text).Count
	End Function
	Private Sub doc_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles doc.TextChanged
		Lbl_Characters.Text = Len(doc.Text)
		Lbl_Words.Text = CountWords(doc.Text)
	End Sub

As you may see...I have Characters and Words, but for some reason I cannot get the lines to count
If I could have any help that would be great. Thankz

[June7]

If the text is wrapping then probably just one continuous line. If the textbox is set to start new line when users press Enter then perhaps can count a return character?

Check this link: http://www.vbforfree.com/?p=375

This post has been edited by June7: 09 September 2009 - 08:25 PM