NCR GW-BASIC Betriebsanleitung Seite 233

MID$-Funktion
Syntax:
Verwendung:
Bemerkungen:
Beispiel:
GW-BASIC
MID$(X$,n[,m] )
Gibt eine Zeichenfolge mit einer Länge von m Zei­
chen aus X$ zurück, wobei mit dem n-ten Zeichen
begonnen wird.
n und m müssen ganzzahlige Ausdrücke in dem
Bereich von 1 bis 255 sein. Wird m weggelassen
oder sind weniger als m Zeichen rechts von dem
n-ten Zeichen vorhanden, so werden sämtliche
rechtsbündigen Zeichen ab dem n-ten Zeichen
zurückgegeben. Ist n größer als die Anzahl von Zei­
chen in X$ (LEN(X$)), so gibt ME)$ eine Nullfolge
zurück.
10 A$ = "GUTEN"
20 B$ = "MORGEN MITTAG ABEND"
30 PRINT A$;MID$(B$,9,7)
ergibt
GUTEN ABEND
Die MID$-Funktion wird insbesondere dazu
benutzt, die Zeichen einer Zeichenfolge nacheinan­
der zu überprüfen. Mit dem folgenden Programm
werden Sie aufgefordert, einen Text einzugeben.
Das Programm prüft, ob in dieser Zeichenfolge Zei­
chen vorhanden sind, bei denen es sich nicht um
Buchstaben handelt. Sobald ein derartiges Zeichen
gefunden wird, wird .seine Position auf dem Bild­
schirm angezeigt.
10 INPUT "Bitte geben Sie einen Text ein";T$
20 IF LEN(T$) = 0 THEN GOTO 10
30 FOR L°/o= 1 TO LEN(T$)
40 CHAR$ = MID$(T$,L0 /(H)
50 IF CHAR$<"A" OR CHAR$>"z" OR
CHAR$>"Z" AND CHAR$<"a" THEN
P%= L°/o: GOTO 100
60 NEXT L°/o
70 PRINT "Der Text besteht nur aus
Buchstaben" :END
GW-BASIC-BEFEHLE UND FUNKTIONEN
MID$
4-159