German Jeden 1. Buchstaben eines Wortes

Discussion in 'German Forum' started by so27, Apr 22, 2018.

  1. so27

    so27 Active Member Licensed User

    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
     
  2. klaus

    klaus Expert Licensed User

    Code:
    Private Sub ErsteBuchStaben(Text As StringAs 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
     
    OliverA, so27 and Johan Hormaza like this.
  3. so27

    so27 Active Member Licensed User

    Danke Klaus.
     
  4. OliverA

    OliverA Well-Known Member Licensed User

    Code:
    Private Sub ErsteBuchStaben(Text As StringAs 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
     
    so27, klaus, MaFu and 1 other person like this.
Loading...
  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice