XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
String-Teile ausgeben
Lauffähig ab Profan-Version 5.0
Erklärung:
----------
Dieses Beispiel demonstriert, wie man Teile eines Strings von links, von der Mitte
oder von rechts ausgeben kann.
Es bedeuten:
------------
cls          - erstellt Standardfenster (640 * 480)
print        - stellt folgende Zeichen auf Hauptfenster dar
@Left$(S,N)       siehe Profan - Hilfe
@Mid$(S,N1,N2)    siehe Profan - Hilfe
@Right$(S,N)      siehe Profan - Hilfe
-----------------------------------------------
declare string$                     Variablen declarieren
let string$=123456789            Zuweisungen
cls
print string$
print --------------------------------------------
print
print @Left$(string$,3),    drei Zeichen von links
print @Mid$(string$,6,1),      das sechste Zeichen
print @Right$(string$,2),     ab demzweiten Zeichen von rechts
print
waitinput                               warten auf Eingabe