| Rubrik: Variablen/Strings | VB-Versionen: VB2005, VB2008 | 08.11.10 |
 Anzahl Wörter eines Strings ermittelnEine kleine aber nützliche Funktion, mit der man schnell die Anzahl der Wörter eines Strings ermitteln kann. | ||
Autor:  Dieter Otter | Bewertung:   | Views: 10.977 |
| https://www.tools4vb.com | 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"
