Initials: Unterschied zwischen den Versionen
Root (Diskussion | Beiträge) |
Root (Diskussion | Beiträge) |
||
Zeile 93: | Zeile 93: | ||
== Besonderheiten einzelner Dialekte == | == Besonderheiten einzelner Dialekte == | ||
Gambas weit den Funktionswert mit dem RETURN Statement zu, Visual Basic durch Zuweisung an den Funktionsnamen. | |||
{| class="wikitable" | |||
|- | |||
! Gambas !! Visual Basic | |||
|- | |||
|style="width : 500px"| RETURN result | |||
|style="width : 500px"| Initials = result | |||
|} | |||
[[Kategorie:Basic]] | [[Kategorie:Basic]] | ||
[[Kategorie:Gambas]] | [[Kategorie:Gambas]] |
Version vom 11. Januar 2012, 19:38 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
Gambas weit den Funktionswert mit dem RETURN Statement zu, Visual Basic durch Zuweisung an den Funktionsnamen.
Gambas | Visual Basic |
---|---|
RETURN result | Initials = result |