German Jeden 1. Buchstaben eines Wortes

[so27]

Hallo zusammen,

weiß jemand wie ich aus einem String mit mehreren Wörtern jeweils die Anfangsbuchstaben der Wörter herausfiltern kann?

Beispiel:
Das Wetter ist hier schön.

Ergebnis:
DWihs

 

[klaus]

Private Sub ErsteBuchStaben(Text As String) As String
    Private i As Int
    Private Buchstaben(), BuchstabenWort As String
    
    Buchstaben = Regex.Split(" ", Text)
    For i = 0 To Buchstaben.Length - 1
        BuchstabenWort = BuchstabenWort & Buchstaben(i).CharAt(0)
    Next
    Return BuchstabenWort
End Sub

 

[so27]

Danke Klaus.

 

[OliverA]

Private Sub ErsteBuchStaben(Text As String) As String
   Dim sb As StringBuilder
   sb.Initialize
   Dim m As Matcher = Regex.Matcher("\b\w", Text)
   Do While m.Find
       sb.Append(m.Match)
   Loop
   Return sb.ToString
End Sub