battle programminga forum for elite programmerswith extreme will powerto sharpen theire skills
 
HomeCalendarFAQSearchMemberlistUsergroupsRegisterLog in
Share | 
 

 vb.net word counter

Go down 
AuthorMessage
Moti Barski

avatar

Posts : 238
Join date : 2011-08-02

PostSubject: 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
Sleep

_________________
MB over and out _______________________     
Back to top Go down
View user profile
 
vb.net word counter
Back to top 
Page 1 of 1
 Similar topics
-
» Win a Sharp Tv!
» My Best Horse Story Contest
» Need to do a simple Left Click in a text box
» The word jumble game
» ForumTshiab no

Permissions in this forum:You cannot reply to topics in this forum
battle programmers alliance :: battle programming alliance :: battle programming-
Jump to: