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