Benutzer:Arbol01/Programmieren für Überflieger: Tabelle Stringoperationen

   BASIC:  CHR$(65) == "A"
   REXX:   D2C(65)  == 'A'
   PERL:   chr 65   == 'A'

   Verkettung (concatenation) zweier Strings:
   PYTHON:   "wort" + "folge" == "wortfolge" 
   REXX:     'wort'||'folge'  == 'wortfolge'
             'wort' 'folge'   == 'wort folge'
             'wortfolge'    == 'wortfolge'
   tcl:      set a "wort"
             set b "folge"
             append a $b

   Länge eines Strings:
   BASIC:   LEN("Dies ist ein String!")         == 20
   Python:  LEN("Dies ist ein String!")         == 20
   REXX:    LENGTH('Dies ist ein String!')      == 20
   PERL:    length 'Dies ist ein String!'       == 20
   TCL:     string length "Dies ist ein String" == 20

   Separation eines Strings von Links:
   BASIC:  LEFT$("Dies ist ein String!",7)          == "Dies is"
   REXX:   LEFT('Dies ist ein String!',7)           == 'Dies is'
   PERL:   substr 'Dies ist ein String!' 0 
   TCL:    string range "Dies ist ein String!" 0 6  == "Dies is"

   Separation eines Strings irgendwo dazwischen:
   BASIC:  MID$("Dies ist ein String!",3,9)         == "es ist ei"
   REXX:   SUBSTR('Dies ist ein String!',3,9)       == 'es ist ei'
   PERL:   substr 'Dies ist ein String!' 2 9        == 'es ist ei'
   Python: "Dies ist ein String!"[2:11]             == "es ist ei"
   TCL:    string range "Dies ist ein String!" 2 11 == "es ist ei"

   Separation eines Strings nach Rechts:
   BASIC:  RIGHT$("Dies ist ein String!",11) == "in String!"
   REXX:   RIGHT('Dies ist ein String!',11)  == 'in String!"

   Anzahl der 'Wörter in einem String:
   REXX: WORDS('Dies ist ein String!') == 4
   TCL: llength "Dies ist ein String"  == 4

   Ausgabe des n.ten Wortes eines Strings:
   REXX: WORD('Dies ist ein String!',3) == 'ein'
   TCL: lindex "Dies ist ein String" 3  == "ein"

   Ausgabe der ersten Position eines gesuchten Zeichen
   in einem String:
   REXX: POS('S','Dies ist ein String!')          == 14
   TCL:  string first "S" "Dies ist ein String!"  == 14

   Ausgabe der letzen Position eines gesuchten Zeichen
   in einem String:
   REXX: LASTPOS('i','Dies ist ein String!')     == 17
   TCL:  string last "i" "Dies ist ein String!"  == 17
   
   Ausgabe der Position des n.ten Seperatorenzeichen
   in einem String:
   REXX: WORDINDEX('Dies ist ein String!',2) ==  9

   Ausgabe der Länge des n.ten Wortes in einem String:
   REXX: WORDLENGTH('Dies ist ein String!',4) == 7

   REXX: WORDPOS('ist','Dies ist ein String!') == 2