UserInitials: Unterschied zwischen den Versionen

Aus Thomas Wiki
Zur Navigation springen Zur Suche springen
(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…“)
 
(Weiterleitung auf Initials erstellt)
 
(4 dazwischenliegende Versionen desselben Benutzers werden nicht angezeigt)
Zeile 1: Zeile 1:
 
#REDIRECT [[Initials]]
== 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

Aktuelle Version vom 11. Januar 2012, 18:52 Uhr

Weiterleitung nach: