Substring: Difference between revisions
Content added Content deleted
(Substring en BASIC256) |
(Completing homework for BASIC) |
||
| Line 1,037: | Line 1,037: | ||
=={{header|BASIC}}== |
=={{header|BASIC}}== |
||
{{works with|QBasic}} |
|||
<lang qbasic>DIM baseString AS STRING, subString AS STRING, findString AS STRING |
<lang qbasic>DIM baseString AS STRING, subString AS STRING, findString AS STRING |
||
DIM m AS INTEGER, n AS INTEGER |
DIM m AS INTEGER, n AS INTEGER |
||
| Line 1,057: | Line 1,058: | ||
' starting from a known character within the string and of m length; |
' starting from a known character within the string and of m length; |
||
subString = MID$(baseString, INSTR(baseString, "b"), m) |
|||
PRINT subString |
|||
' starting from a known substring within the string and of m length. |
' starting from a known substring within the string and of m length. |
||
findString = "pq" |
findString = "pq" |
||
| Line 1,068: | Line 1,072: | ||
lmnopqrstuvwxyz |
lmnopqrstuvwxyz |
||
abcdefghijklmnopqrstuvwxy |
abcdefghijklmnopqrstuvwxy |
||
bcdef |
|||
pqrst |
pqrst |
||
</pre> |
</pre> |
||