UserInitials: Unterschied zwischen den Versionen
Zur Navigation springen
Zur Suche springen
Root (Diskussion | Beiträge) (→Gambas) |
Root (Diskussion | Beiträge) K (→Gambas) |
||
Zeile 15: | Zeile 15: | ||
nc = TRUE | nc = TRUE | ||
FOR i = 1 TO Len(uname) | FOR i = 1 TO Len(uname) | ||
Zeile 30: | Zeile 30: | ||
END IF | END IF | ||
RETURN result | RETURN result | ||
END FUNCTION | END FUNCTION |
Version vom 11. Januar 2012, 18:41 Uhr
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