Initials: Unterschied zwischen den Versionen

Aus Thomas Wiki
Zur Navigation springen Zur Suche springen
 
(7 dazwischenliegende Versionen desselben Benutzers werden nicht angezeigt)
Zeile 14: Zeile 14:
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 ===


  FUNCTION Initials(Value AS String) AS String
  FUNCTION Initials(Value AS String) AS String
Zeile 24: Zeile 24:
   result = ""
   result = ""
   IF Value THEN
   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
     nc = TRUE
 
     FOR i = 1 TO Len(Value)
     FOR i = 1 TO Len(Value)
    
    
Zeile 41: Zeile 74:
    
    
   END IF
   END IF
 
   RETURN result
   Initials = result
    
    
  END FUNCTION
  END FUNCTION
Zeile 60: Zeile 93:
== Besonderheiten einzelner Dialekte ==
== Besonderheiten einzelner Dialekte ==


Keine bekannt.  
Gambas weit den Funktionswert mit dem RETURN Statement zu, Visual Basic durch Zuweisung an den Funktionsnamen.


{| class="wikitable" style="width: 80%"
|-
! Konstrukt !! Gambas !! Visual Basic !! Bemerkung
|-
| Rückgabe des Ergebnisses
| RETURN result
| Initials = result
| Beide Dialekte sind in diesem Punkt unverträglich. Kein work-a-round bekannt.
|}




[[Kategorie:Basic]]
[[Kategorie:Basic]]
[[Kategorie:Gambas]]
[[Kategorie:Gambas]]
[[Kategorie:LibreOffice]]

Aktuelle Version vom 11. Januar 2012, 19:46 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.

Konstrukt Gambas Visual Basic Bemerkung
Rückgabe des Ergebnisses RETURN result Initials = result Beide Dialekte sind in diesem Punkt unverträglich. Kein work-a-round bekannt.