Hey, I have a code that takes a user input from Text1.Text and searches a dictionary.txt file for all words containing character values. My problem is, however, if I put in the letters "BORDER", in the return List1 box, I I don't want results that have two "E"'s, three "O"'s, etc. I just want the return result to contain all of the characters, or use those EXACT input characters to list all other words, like "RODE". THis is the code that i"m currently using..
Private Sub cmdFind_Click()
'******
'Find Matches
'******
myStr = Text1.Text
Dim i As Integer
Dim j As Integer
Dim KeepGoing As Boolean
For i = 0 To UBound(searchArray())
j = 1: KeepGoing = True
While j <= Len(myStr) And KeepGoing
If InStr(1, myStr, Mid$(searchArray(i), j, 1)) = 0 Then KeepGoing = False
j = j + 1
Wend
If KeepGoing Then List1.AddItem searchArray(i)
Next i
End Sub
Any help, again, would be greatly appreciated
Thanks
Private Sub cmdFind_Click()
'******
'Find Matches
'******
myStr = Text1.Text
Dim i As Integer
Dim j As Integer
Dim KeepGoing As Boolean
For i = 0 To UBound(searchArray())
j = 1: KeepGoing = True
While j <= Len(myStr) And KeepGoing
If InStr(1, myStr, Mid$(searchArray(i), j, 1)) = 0 Then KeepGoing = False
j = j + 1
Wend
If KeepGoing Then List1.AddItem searchArray(i)
Next i
End Sub
Any help, again, would be greatly appreciated
Thanks