XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Stringlänge ermitteln (Textlänge)
Lauffähig ab Profan-Version 5.0
Erklärung:
-----------------
Es wird demonstriert, mit welchem Befehl man die Länge eines Strings ermitteln kann.
Len(S)  : der Rückgabewert ist ein Integer
-----------------
declare Zeichen$   Speicher für Variablen wird reserviert
Cls   Standardfenster (640*480 Pixel) wird geöffnet
let Zeichen$ = Das ist eine sehr, sehr schöne Zeichenkette.   dem String Zeichen wird die Zeichenkette zugeordnet
Print Zeichen$   Variable Zeichen$ wird auf das Hauptfenster geschrieben
Print     Es wird eine Leerzeile erzeugt
----------
Len(Zeichen$)     Der Befehl gibt die Anzahl der Zeichen zurück
----------
Print str$(Len(Zeichen$)) +  Zeichen ist diese sehr, sehr schöne Zeichenkette lang.
Waitinput   Es wird auf eine Eingabe gewartet
End  reservierter Speicher wird freigegeben