UserInitials: Unterschied zwischen den Versionen
Zur Navigation springen
Zur Suche springen
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…“) |
(kein Unterschied)
|
Version vom 11. Januar 2012, 16:49 Uhr
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