04-25-2024, 04:45 AM
(04-25-2024, 01:28 AM)bplus Wrote: +1 that's pretty cool pete, here is quickerWow! That is off the planet! Thanks so much guys. Even though I've been messing with basic on and off since 1989, when I see some of the examples here I feel similar to when I watch some people playing guitar on youtube. Makes me wonder why i even try... BTW the purpose of this is to find anagrams in a long list of words. Thanks again.
Code: (Select All)a$ = "lots of letters repeated"
For i% = 1 To 26
seed% = InStr(LCase$(a$), Chr$(96 + i%))
While seed%
Print Chr$(96 + i%);
seed% = InStr(seed% + 1, LCase$(a$), Chr$(96 + i%))
Wend
Next