VB.NET Word Count FunctionDevelop a Function to count words. Get count results similar to Microsoft Word.
How can we count words in a String? Words are delimited by spaces and some types of punctuation. The easiest way to count words is with a regular expression. We use a Regex with a pattern that matches non-word characters.Regex.MatchStrings
First, this program imports the System.Text.RegularExpressions namespace. This allows us to use the Regex type directly in the CountWords function. In CountWords, we use the Regex.Matches shared function with the pattern "\S+".
Regex pattern: This means each match consists of one or more non-whitespace characters.
Main: We use two String literals as arguments to CountWords. Then we write the word counts that were received.
Result: The first sentence, from Shakespeare's play Hamlet, has ten words. The second sentence, from a nursery rhyme, has five words.
VB.NET program that counts words
' Count words in this string.
Dim value As String = "To be or not to be, that is the question."
Dim count1 As Integer = CountWords(value)
' Count words again.
value = "Mary had a little lamb."
Dim count2 As Integer = CountWords(value)
' Display counts.
''' Use regular expression to count words.
Public Function CountWords(ByVal value As String) As Integer
' Count matches.
Dim collection As MatchCollection = Regex.Matches(value, "\S+")
The critical issue with word-counting functions is their closeness to standard functionality found in programs like Microsoft Word. In most schools, for example, the count from Microsoft Word is acceptable.
Note: The function here was run through a battery of tests against Microsoft Word. It was found to have a difference of 0.022%.Word Count
Summary. We implemented a word count function in the VB.NET language using the Regex type. By using the Count property on the MatchCollection, we can count the number of words in a way that is close to other programs such as Microsoft Word.
© 2007-2020 Sam Allen. Every person is special and unique. Send bug reports to email@example.com.