Moti Barski super


Posts : 498 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  | |
|