# Beispielprogramm zu den String-Funktionen Length, UpCase, LowCase und
# den Operatoren * +
AZUR (String text="Aber jeder nur einen winzigen Schluck!")
# Laenge des Textes bestimmen
laenge := Length (text)
# Text ausgeben und unterstreichen
Print (text)
Print (laenge*"-")
grosstext := UpCase (text)
kleintext := LowCase (text)
Print (grosstext)
Print (kleintext)
langtext := grosstext + " " + kleintext
Print (langtext)
END
Aber jeder nur einen winzigen Schluck! -------------------------------------- ABER JEDER NUR EINEN WINZIGEN SCHLUCK! aber jeder nur einen winzigen schluck! ABER JEDER NUR EINEN WINZIGEN SCHLUCK! aber jeder nur einen winzigen schluck!
# Beispielprogramm zu den String-Funktionen Str, StrToReal und zum Operator +
AZUR (String text="3.14159)
Print ("Am Anfang war der Text : ", text)
Print () HREF="explizit/.html">
# Umwandlung einer Zahl in einen String und umgekehrt
zahl := StrToReal(text)
Print ("Aus dem Text wurde die Zahl: ", zahl)
Print ("Reelle Addition : ", zahl, " + 111 = ", zahl+111)
Print () HREF="explizit/.html">
ziffern := Str (zahl)
Print ("Aus der Zahl wurde der Text: ", ziffern)
Print ("String-Addition : ", ziffern, " + 111 = ", ziffern+"111")
END
Am Anfang war der Text : 3.14159 Aus dem Text wurde die Zahl: 3.14159 Reelle Addition : 3.14159 + 111 = 114.142 Aus der Zahl wurde der Text: 3.14159 String-Addition : 3.14159 + 111 = 3.14159111
# Beispielprogramm zu den String-Funktionen Pos, SubStr und
# den Operatoren + -
AZUR () HREF="explizit/.html">
text := "Es gr\o\unt so gr\o\un, wenn Spaniens Bl\o\uten bl\o\uhen."
Print (text)
Print () HREF="explizit/.html">
umlaut := "\o"
# Die "\o"s entfernen
text1 := " "
teiltext := text
position := Pos (teiltext, umlaut)
WHILE (position>-1)
# Den Teilstring vom Anfang bis zum ersten "\o" ausschliesslich an
# den String text1 anhaengen
text1 := text1 + SubStr(teiltext, 0, position-1)
Print (text1)
# Den Teilstring verkuerzen
teiltext := SubStr(teiltext,position+Length(umlaut),Length(teiltext)-1)
position := Pos (teiltext, umlaut)
ENDWHILE
text1 := text1 + teiltext
text1 := text1 - " "
Print () HREF="explizit/.html">
Print (text1)
END
Es gröünt so gröün, wenn Spaniens Blöüten blöühen. Es gr Es grünt so gr Es grünt so grün, wenn Spaniens Bl Es grünt so grün, wenn Spaniens Blüten bl Es grünt so grün, wenn Spaniens Blüten blühen.
# Beispielprogramm zu der String-Funktion SIGroesse
AZUR () HREF="explizit/.html">
groesse_meter := "1000 m"
Print (groesse_meter, " <==> ", SIGroesse (groesse_meter))
groesse_newton := "1 N"
Print (groesse_newton, " <==> ", SIGroesse (groesse_newton))
END
1000 m <==> km 1 N <==> km/s^2*g
toposoft GmbH 1. Oktober 2012