Ok, first off my program is working fine i just need help with my next step of my program.
Dim y As Variant
Dim v As Variant
For Each v In myArray
For Each y In strArray
If (Len(v) = Len(y)) Then
For i = 1 To Len(y)
If (InStr(v, Format$(Mid$(y, i, 1), ""))) Then
List1.AddItem "FOUND: " + v
End If
Next i
End If
Next y
Next v
ok so im making a brute force program which basically searches a text file of all the possible answers and then from a array of jumbled up words finds words dependent of the characters of the word has all the same characters in the scrambled words.
so for example:
wlciadt - unscrambles to wildcat.
But my problem is that when adding the item to list box it will add "FOUND: wildcat" 7 times to the list box because there is 7 characters found in wlciadt.
Is there a way i can say or possible to do,
if (word in list box is found len("wlciadt") times) then
text1.text = the found word
end if
hope this is explained well enough,
Many Thanks,
Alan