Alle Wörter eines Strings ermitteln Mit dieser schlanken aber nützlichen Funktion lassen sich sehr schnell alle Wörter eines Strings ermitteln.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  11.110
https://www.tools4vb.com	System:  Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 3 Bewertung insgesamt: nützlich Durchschnittliche Bewertung: 3.3 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Im letzten Tipp haben wir gezeigt, wie sich die Anzahl der Wörter eines Strings ermitteln lässt.
Heute zeigen wir, wie man alle Wörter eines Strings als "Liste" ermitteln lassen.

Imports System.Text.RegularExpressions

''' <summary>
''' Gibt alle Wörter eines Strings als String-Liste zurück.
''' </summary>
''' <param name="Text">Text</param>
''' <returns>Liste aller Wörter des Strings als List(Of String)</returns>
Public Function GetStringWords(ByVal Text As String) As List(Of String)
  Dim WordList As New List(Of String)
 
  For Each Word As Match In Regex.Matches(Text, "\w{1,}")
    WordList.Add(Word.ToString)
  Next 
 
  Return WordList
End Function

Aufrufbeispiel:
Es sollen alle Wörter des Textes in einer MultiLine-TextBox ermittelt und in einer ListBox angezeigt werden:

ListBox1.Items.Clear()
ListBox1.Items.AddRange(GetStringWords(TextBox1.Text).ToArray)