all tasks

Task/Substring/BASIC/substring-1.basic

@@ -0,0 +1,24 @@
+DIM baseString AS STRING, subString AS STRING, findString AS STRING
+DIM m AS INTEGER, n AS INTEGER
+
+baseString = "abcdefghijklmnopqrstuvwxyz"
+n = 12
+m = 5
+
+' starting from n characters in and of m length;
+subString = MID$(baseString, n, m)
+PRINT subString
+
+' starting from n characters in, up to the end of the string;
+subString = MID$(baseString, n)
+PRINT subString
+
+' whole string minus last character;
+subString = LEFT$(baseString, LEN(baseString) - 1)
+PRINT subString
+
+' starting from a known character within the string and of m length;
+' starting from a known substring within the string and of m length.
+findString = "pq"
+subString = MID$(baseString, INSTR(baseString, findString), m)
+PRINT subString

Task/Substring/BASIC/substring-2.basic

@@ -0,0 +1,13 @@
+10 LET A$="abcdefghijklmnopqrstuvwxyz"
+15 LET n=10: LET m=7
+20 PRINT A$(n TO n+m-1)
+30 PRINT A$(n TO )
+40 PRINT A$( TO LEN (A$)-1)
+50 FOR i=1 TO LEN (A$)
+60 IF A$(i)="g" THEN PRINT A$(i TO i+m-1): LET i=LEN (A$): GO TO 70
+70 NEXT i
+80 LET B$="ijk"
+90 FOR i=1 TO LEN (A$)-LEN (B$)+1
+100 IF A$(i TO i+LEN (B$)-1)=B$ THEN PRINT A$(i TO i+m-1): LET i=LEN (A$)-LEN (B$)+1:  GO TO 110
+110 NEXT i
+120 STOP