Initials: Unterschied zwischen den Versionen

Aus Thomas Wiki
Zur Navigation springen Zur Suche springen
Zeile 16: Zeile 16:
== Gambas ==
== Gambas ==


  FUNCTION Initials( Value AS String ) AS String
  FUNCTION Initials(Value AS String) AS String
   
   
   DIM result AS String
   DIM result AS String
   DIM nc AS Boolean
   DIM nc AS Boolean
   DIM i AS Integer
   DIM i AS Integer
 
   result = ""
   result = ""
   IF uname THEN
   IF Value THEN
   
 
     nc = TRUE
     nc = TRUE
 
     FOR i = 1 TO Len(uname)
     FOR i = 1 TO Len(Value)
    
    
       IF Mid(uname, i, 1) = " " THEN
       IF Mid(Value, i, 1) = " " THEN
         nc = TRUE
         nc = TRUE
       ELSE  
       ELSE  
         IF nc THEN
         IF nc THEN
           result = result & Mid(uname, i, 1)
           result = result & Mid(Value, i, 1)
           nc = FALSE
           nc = FALSE
         END IF
         END IF
Zeile 41: Zeile 41:
    
    
   END IF
   END IF
 
   RETURN result
   RETURN result
    
    

Version vom 11. Januar 2012, 19:03 Uhr

Definition

FUNCTION Initials( Value AS String ) AS String

Funktion Initials bestimmen die Anfangsbuchstaben (Initialien) der Wörter eines Textes, z.B. Username.


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.


Quelltext

Eine Initiale ist 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.

Gambas

FUNCTION Initials(Value AS String) AS String

  DIM result AS String
  DIM nc AS Boolean
  DIM i AS Integer
  
  result = ""
  IF Value THEN
    nc = TRUE
    FOR i = 1 TO Len(Value)
 
     IF Mid(Value, i, 1) = " " THEN
       nc = TRUE
     ELSE 
       IF nc THEN
         result = result & Mid(Value, i, 1)
         nc = FALSE
       END IF
     END IF
    
  NEXT
 
  END IF
  RETURN result
 
END FUNCTION

Beispiel

Aufruf

Print Initials( "Dies ist kein Satz")

Ausgabe

DikS

Dialekte

Besonderheiten einzelner Dialekte

Keine bekannt.