battle programmers alliance

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

Display results as :
 
Rechercher Advanced Search
Latest topics
» android mobile app dev APK
Yesterday at 10:01 pm by Moti Barski

» battle programmers alliance new features :
Yesterday at 5:25 pm by Admin

» urban prepper grimoire
Sat Aug 18, 2018 1:03 pm by Moti Barski

» broadcast receiver dead
Sat Aug 04, 2018 7:51 am by Moti Barski

» programming tool : find dif between 2 texts
Tue Jul 31, 2018 6:32 am by Moti Barski

» java class that filter numbers out of a string
Mon Jul 30, 2018 11:20 am by Moti Barski

» android studio execises
Mon Jul 09, 2018 1:43 pm by Moti Barski

» problem with firebase authentication
Thu Jun 28, 2018 9:52 am by Moti Barski

» text art canvas
Wed Jun 20, 2018 8:55 pm by Moti Barski

August 2018
SunMonTueWedThuFriSat
   1234
567891011
12131415161718
19202122232425
262728293031 
CalendarCalendar
Social bookmarking
Social bookmarking digg  Social bookmarking delicious  Social bookmarking reddit  Social bookmarking stumbleupon  Social bookmarking slashdot  Social bookmarking yahoo  Social bookmarking google  Social bookmarking blogmarks  Social bookmarking live      

Bookmark and share the address of battle programmers alliance on your social bookmarking website
Share | 
 

 vb.net word counter

Go down 
AuthorMessage
Moti Barski

avatar

Posts : 177
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 Online
 
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: