Breadcrumbs

[SumCode]

So I have a text file that contains every word on this list ("C:\ListOfWords.txt") and I have a program with this code:

Code: Select all

Dim allWords As New Specialized.StringCollection

    Sub Main()
        Dim hits As Integer = 0
        Dim sw As IO.StreamWriter = New IO.StreamWriter("C:\log.txt")
        allWords.AddRange(IO.File.ReadAllLines("C:\ListOfWords.txt"))
        Dim theLetters() As String = {"h", "e", "?", "?", "o"}

        For Each i As String In allWords
            If Not i.Length <> theLetters.Count Then
                For k As Integer = 0 To theLetters.Count - 1
                    If i(k) = theLetters(k) Then
                        hits += 1
                    End If
                Next
                If hits = 2 Then
                    Console.WriteLine(i & " - " & hits)
                    sw.WriteLine(i & " - " & hits)
                    hits = 0
                Else : hits = 0
                End If
            End If
        Next
        sw.Close()
        Console.Read()
    End Sub

After I run the program it will give me

Cello - 2
Gecko - 2
Hello - 2
Negro - 2
Tempo - 2
Zeppo - 2

in the log.

Now 'hello' should have 3 hits because it has the h,e, and o, but it doesn't.

Any help is appreciated, thanks

[CodenStuff]

I believe the problem is it's checking for lower case letters in here..

Code: Select all

Dim theLetters() As String = {"h", "e", "?", "?", "o"}

But some of your words contain upper case letters.

Just a quick edit but try changing this:

Code: Select all

If i(k) = theLetters(k) Then

To this:

Code: Select all

If i(k).ToString.ToLower = theLetters(k) Then

See if that helps :?