PureBoard

Code: Alles auswählen

OpenConsole()
a$="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Print (a$)
PrintN("")
;Ergebnis$ = LCase(String$) 
PrintN ((LCase(a$))+" = Lcase a$ =Umwandlung in Kleinbuchstaben")
PrintN("")
;Länge = Len(String$)
a=Len(a$)
PrintN ("Berechnung der Stringlaenge = Len(a$)=" +Str(a))
PrintN("")
c$="abcdefghijklmnopqrstuvwxyz"
Print (c$)
PrintN("")
;Ergebnis$ = UCase(String$) 
PrintN ((UCase(c$))+" = Ucase c$ =Umwandlung in Grossbuchstaben")
PrintN("")
;Ergebnis$ = Left(String$, Länge) 
PrintN ((Left(c$,5)) +" = Left(String$,Laenge) = Left(c$,5) =Stringausgabe von links")
PrintN ((Left(c$,10)) +" = Left(String$,Laenge) = Left(c$,10)")
PrintN("")
;Ergebnis$ = Right(String$, Länge) 
PrintN ((Right(c$,5)) +" = Right(String$,Laenge) = Right(c$,5) =Stringausgabe von rechts")
PrintN ((Right(c$,15)) +" = Right(String$,Laenge) = Right(c$,15)")
PrintN("")
;Ergebnis$ = Trim(String$) 
c$="   abcdefghijklmnopqrstuvwxyz     "
Print (c$)
PrintN("")
PrintN ((Trim(c$))+ " = Trim(String$)")
PrintN (" Entfernt alle Leerzeichen ('Space') vom Anfang und vom Ende des 'String$'")
PrintN("")
;Ergebnis$ = Mid(String$, StartPosition, Länge) 
a$="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Print (a$)
PrintN("")
PrintN ("=Mid(String$,StartPosition,Laenge)=(Mid(a$,10,10))=paar Zeichen von Stringmitte")
PrintN (Mid(a$,10,10))
PrintN("leerer String in der angegeb.'Laenge',der mit Leerz.('Space') gefuellt wird ")
PrintN ("Ergebnis$ = Space(Laenge)  erstellter Leerstring hier mit weiss gefuellt!") 
;Erstellt einen leeren String in der angegebenen 'Länge'
;der mit Leerzeichen ('Space') gefüllt wird. 
ConsoleColor(4,15)
x$= Space(30) 
PrintN (x$)
Input()
CloseConsole()

; ExecutableFormat=Windows
; EOF