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,