Initials: Unterschied zwischen den Versionen
Zur Navigation springen
Zur Suche springen
Root (Diskussion | Beiträge) |
Root (Diskussion | Beiträge) |
||
Zeile 13: | Zeile 13: | ||
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. | 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 === | === Gambas === |
Version vom 11. Januar 2012, 19:21 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
Visual Basic / Libre Office Basic
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 Initials = result END FUNCTION
Beispiel
Aufruf
Print Initials( "Dies ist kein Satz")
Ausgabe
DikS
Dialekte
Besonderheiten einzelner Dialekte
Keine bekannt.