UserInitials

Aus Thomas Wiki
Version vom 11. Januar 2012, 16:49 Uhr von Root (Diskussion | Beiträge) (Die Seite wurde neu angelegt: „ == Gambas == Bestimmen der Anfangsbuchstaben der Wörter eines Textes, z.B. Username. FUNCTION Initials( Value AS String ) AS String DIM result AS Str…“)
(Unterschied) ← Nächstältere Version | Aktuelle Version (Unterschied) | Nächstjüngere Version → (Unterschied)
Zur Navigation springen Zur Suche springen

Gambas

Bestimmen der Anfangsbuchstaben der Wörter eines Textes, z.B. Username.

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