Word count : Regular Expressions « Regular Expressions « VB.Net Tutorial

Imports System.Text.RegularExpressions
Public Class Tester
    Public Shared Sub Main
        Dim quote As String = "q d e w "

        Do While (quote.IndexOf(Space(2)) >= 0)
            quote = quote.Replace(Space(2), Space(1))
        Loop

        Dim wordCount As Integer = Split(quote, Space(1)).Length
        Console.WriteLine(quote & vbNewLine & "Number of words: " & wordCount.ToString)   
    
    End Sub

End Class

q d e w
Number of words: 5

20.1.Regular Expressions
	20.1.1.	Regex Matches
	20.1.2.	Word count
	20.1.3.	Regex('\w+')
	20.1.4.	Count chars: Regex.Matches(quote, .)
	20.1.5.	Word count: Regex.Matches(quote, '\w+')
	20.1.6.	Count line: Regex.Matches(quote, '.+\n*')
	20.1.7.	Regex.CompileToAssembly
	20.1.8.	Match regular expression to string and print out all matches
	20.1.9.	Using Regex method Replace: substituted for *
	20.1.10.	Using Regex method Replace: Replace one string with another
	20.1.11.	Every word replaced by another word
	20.1.12.	Replace first 3 digits
	20.1.13.	String split at commas