UserInitials

Aus Thomas Wiki
Zur Navigation springen Zur Suche springen

Gambas

Funktion zum Bestimmen der Anfangsbuchstaben (Initialien) der Wörter eines Textes, z.B. Username. Ein initialie ist wird dadurch bestimmt, dass sie am Anfang der Zeichenkette oder nach einem Leerzeichen steht. Sollen Sonderzeichen als Initialien ausgeschlossen werden, sind zusätzliche Prüfungen erforderlich.


FUNCTION Initials( Value AS String ) AS String

  DIM result AS String
  DIM nc AS Boolean
  DIM i AS Integer

  result = ""
  IF uname THEN
    
    nc = TRUE

    FOR i = 1 TO Len(uname)
 
     IF Mid(uname, i, 1) = " " THEN
       nc = TRUE
     ELSE 
       IF nc THEN
         result = result & Mid(uname, i, 1)
         nc = FALSE
       END IF
     END IF
    
  NEXT
 
  END IF

  RETURN result
 
END FUNCTION