Search a list: Difference between revisions
Content added Content deleted
Line 2,154: | Line 2,154: | ||
s$=lcase$(needle$) |
s$=lcase$(needle$) |
||
While exist(Haystack, s$, n) |
While exist(Haystack, s$, n) |
||
\\ number, key and position (zero based convert to one based) |
\\ number, key and position (zero based convert to one based) |
||
Print n, Eval$(HayStack!), Eval(HayStack!)+1 |
Print n, Eval$(HayStack!), Eval(HayStack!)+1 |
||
n++ |
n++ |
||
End While |
End While |
||
If n=1 Then Print needle$;" not found" |
If n=1 Then Print needle$;" not found" |