Rubrik: Variablen/Strings | VB-Versionen: VB2005, VB2008 | 08.11.10 |
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: | Views: 10.499 |
www.tools4vb.de | System: Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
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"