[Inhalt] [Zurück] [Weiter] [Thema] [Index]

Funktionen auf dem AZUR-Typ String





[Inhalt] [______] [Weiter] [Thema] [Index]

Beispiel zu Length, UpCase, LowCase, '*' und '+'


 
# 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

Ausgabe:

 
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!




[Inhalt] [Zurück] [Weiter] [Thema] [Index]

Beispiel zu Str, StrToReal und '+'


 
# 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

Ausgabe:

 
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




[Inhalt] [Zurück] [Weiter] [Thema] [Index]

Beispiel zu Pos, SubStr, '+' und '-'


 
# 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

Ausgabe:

 
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.




[Inhalt] [Zurück] [______] [Thema] [Index]

Beispiel zu SIGroesse


 
# 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

Ausgabe:

 
1000 m <==> km
1 N <==> km/s^2*g



toposoft GmbH 1. Oktober 2012