Character Count & Word Count

[lavarock09]

How Do I do this with a richtextbox and make it display either character or word count in another textbox

Thanks for your help,

lavarock09

[manavo11]

To find the length of the text in a textbox you can use :

RichTextBox.Text = Len(Text1.Text)

That should be in the _Change event of Text1.

[manavo11]

For word count you can do something like this (if you assume that every word is separated by a space and not other characters) :

Private Sub Text1_Change()
    Text2.Text = UBound(Split(Text1.Text, " "))
End Sub

[Hack]

To take manavo11's suggestion just a little step further, try this:

Private Function GetWordCount(ByVal pstrText As String) As Long
 
    pstrText = Trim(Replace(pstrText, "-" & vbNewLine, ""))
   
    pstrText = Trim(Replace(pstrText, vbNewLine, " "))
   
    Do While pstrText Like "*  *"
        pstrText = Replace(pstrText, "  ", " ")
    Loop
   
    GetWordCount = 1 + UBound(Split(pstrText, " "))
End Function
 
Private Sub Command1_Click()
MsgBox GetWordCount(RichTextBox1.Text)
End Sub

[lavarock09]

Excellent, Exactly what I wanted,

Thanks