Moti Barski
Posts : 177
Join date : 2011-08-02
 |  Subject: vb.net word counter  Wed Feb 06, 2013 8:42 pm | |
| the following program counts the amount of words in a richtextbox form controls : button richtextbox all of the control properties are set to default. paste the text using ctrl+v in the richtextbox and click the button. - Code:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim nEnter As String = "qwertyuiopasdfghjklzxcvbnm,.1234567890-=\"
nEnter &= "`~!@#$%^&*()_+|QWERTYUIOPASDFGHJKLZXCVBNM<>?:{}[];'./"
nEnter &= """" ' the string does not contain enter and space
Dim wasSpecialChar As Boolean = True
Dim counter As Integer = 0
For index = 0 To RichTextBox1.TextLength - 1
If nEnter.Contains(RichTextBox1.Text(index)) And wasSpecialChar Then
counter += 1
wasSpecialChar = False
ElseIf Not nEnter.Contains(RichTextBox1.Text(index)) Then
wasSpecialChar = True
End If
Next
MsgBox(counter)
End Sub
End Class
 _________________ MB over and out _______________________  |
|
Calendar
