Function WordCount(text As String) Dim pattern As String = "\b(\w+)\b" Dim r As Regex = New Regex(pattern) Return r.Matches(text).Count End Function
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)