Inspired by mdijkens comment here: https://qb64phoenix.com/forum/showthread...9#pid40209
This is really easy way to confirm if a word is in a file list of words say from Collins Dictionary:
"Words.txt" is a text file using CRLF's to end lines. All I had to do was insert a blank line at beginning of file so that the word "AA" could be verified as a word from the file.
This is way better IMHO than using a Random Access file!
Here is the file to run your own tests:
This is really easy way to confirm if a word is in a file list of words say from Collins Dictionary:
Code: (Select All)
_Title "Test IsWord function" 'bplus 2026-02-25
Dim Shared FStr$
FStr$ = _ReadFile$("Words.txt") ' once and for all time
While 1
Input "Enter a word to see if in Collins Dictionary"; w$
If IsWord%(w$) Then Print w$; ", is a word." Else Print w$; ", is Not a word"
Wend
Function IsWord% (test$)
testeol$ = Chr$(13) + Chr$(10) + UCase$(test$) + Chr$(13) + Chr$(10)
If InStr(FStr$, testeol$) Then IsWord% = -1 Else IsWord% = 0
End Function"Words.txt" is a text file using CRLF's to end lines. All I had to do was insert a blank line at beginning of file so that the word "AA" could be verified as a word from the file.
This is way better IMHO than using a Random Access file!
Here is the file to run your own tests:
724 855 599 923 575 468 400 206 147 564 878 823 652 556 bxor cross forever