Anzahl Wörter eines Strings ermitteln Eine kleine aber nützliche Funktion, mit der man schnell die Anzahl der Wörter eines Strings ermitteln kann.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  10.669
www.tools4vb.de	System:  Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Bisher wurde noch keine Bewertung abgegeben.

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Nachfolgend zeigen wir Ihnen, wie sich mit Hilfe regulärer Ausdrücke sehr schnell die Anzahl der Wörter eines Strings ermitteln lässt:

Imports System.Text.RegularExpressions

''' <summary>
''' Gibt die Anzahl der Wörter eines Strings zurücks.
''' </summary>
''' <param name="Text">Text, dessen Wörter gezählt werden sollen.</param>
Public Function GetStringWordCount(ByVal Text As String) As Integer
  Return Regex.Matches(Text, "\w{1,}").Count
End Function

Aufrufbeispiel:
Es soll die Anzahl der Wörter des Textes in einer MultiLine-TextBox gezählt werden:

Dim WordCount As Integer = GetStringWordCount(TextBox1.Text)
lblWordCount.Text = CStr(WordCount) & " Wörter"