31 lines
817 B
Plaintext
31 lines
817 B
Plaintext
10 REM SUBSTRING ... ROSETTACODE.ORG
|
|
20 A$ = "THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG"
|
|
30 X$ = "J" : S$ = "FOX"
|
|
40 N = 5: M = 11
|
|
50 PRINT "THE STRING:"
|
|
60 PRINT A$
|
|
70 PRINT
|
|
80 PRINT "SUBSTRING STARTING FROM" N "CHARACTERS IN AND OF" M "LENGTH:"
|
|
90 PRINT MID$(A$,N,M)
|
|
100 PRINT
|
|
110 PRINT "STARTING FROM" N "CHARACTERS IN, UP TO THE END OF THE STRING:"
|
|
120 PRINT RIGHT$(A$,LEN(A$)+1-N)
|
|
130 PRINT
|
|
140 PRINT "WHOLE STRING MINUS LAST CHARACTER:"
|
|
150 PRINT LEFT$(A$,LEN(A$)-1)
|
|
160 PRINT
|
|
170 PRINT "STARTING FROM '";X$;"' AND OF" M "LENGTH:"
|
|
180 I = 1
|
|
190 IF MID$(A$,I,1)=X$ THEN 220
|
|
200 I = I+1
|
|
210 GOTO 190
|
|
220 PRINT RIGHT$(A$,LEN(A$)+1-I)
|
|
230 PRINT
|
|
240 PRINT "STARTING FROM '";S$;"' AND OF" M "LENGTH:"
|
|
250 I = 1
|
|
260 IF MID$(A$,I,LEN(S$))=S$ THEN 290
|
|
270 I = I+1
|
|
280 GOTO 260
|
|
290 PRINT RIGHT$(A$,LEN(A$)+1-I)
|
|
300 END
|