battle programmers alliance

battle programming a forum for elite programmers with extreme will power to sharpen theire skills
 
HomeCalendarFAQSearchMemberlistUsergroupsRegisterLog in
Share | 
 

 vb.net word counter

View previous topic View next topic Go down 
AuthorMessage
Moti Barski

avatar

Posts : 74
Join date : 2011-08-02

PostSubject: vb.net word counter   Thu Feb 07, 2013 1:42 am


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
Back to top Go down
View user profile
 
vb.net word counter
View previous topic View next topic Back to top 
Page 1 of 1
 Similar topics
-
» Counter-Strike Template
» Word game : nature words
» Win a Sharp Tv!
» My Best Horse Story Contest
» Need to do a simple Left Click in a text box

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