How many English words contain Q not followed by U ?
These are in the word list I use:
I don't know if I'd call them all English words, but they are purported to be. But the famously used in Words With Friends word QI is not on the list.
Open "c:\words\words.txt" For Input As #1
Line Input #1, l$
ix = 0: found = 0
ix = InStr(ix + 1, l, "q")
If ix = 0 Then Exit Do
If q = Len(l) Then found = 1: Exit Do
If Mid(l, ix + 1, 1) <> "u" Then found = 1: Exit Do
Loop Until ix = 0
If found Then
Text1.Text = Text1.Text & l & crlf
Loop Until EOF(1)
Posted by Charlie
on 2015-03-17 15:21:53