It seems to work OK if don't try anything illegal but I tried BAD right after BIG, by sound it knew it was incorrect but left BAD word up on screen. Nope haven't figured out how it handles words off by more than 1 letter, I suppose you have to count wrong words on the way?
BTW use escape key for quit Ascii 27, so you can use Q words. Nope it works as is.
1411 Q words, there were 24,347 lines in the file, takes longer than it has to.
I used following code to remove all the blank lines in the Letter Files:
BTW use escape key for quit Ascii 27, so you can use Q words. Nope it works as is.
1411 Q words, there were 24,347 lines in the file, takes longer than it has to.
Code: (Select All)
For i = 1 To 26
letter$ = Chr$(i + 64)
filename$ = letter$ + "-Words.txt" ' <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< fix line 207 select dictionary file of first letter of try-word
Open filename$ For Input As #1
Open "temp.txt" For Output As #2
While Not EOF(1)
Input #1, fline$
If _Trim$(fline$) <> "" Then Print #2, fline$
Wend
Close
Kill filename$
Name "temp.txt" As filename$
Next
724 855 599 923 575 468 400 206 147 564 878 823 652 556 bxor cross forever