dotNETportal.cz

Ahoj,zbastlil jsem kód,který má z database.txt ověřit heslo.Pokud je shoda ,pokračovat podle kódu,pokud shoda není tak také,problém je že ještě dnes mi to fungovalo,ale najednou jsem zapnul PC že to doprogramuji a ono to najednou hlásí pouze že není shoda kde je chyba?

Dim heslo_kontrola As String = TextBox4.Text
        Dim heslo As String
 Dim soubor As New IO.StreamReader("database.txt")       'otevřít soubor
        While Not soubor.EndOfStream        'číst, dokud nejsme na konci souboru
heslo = (soubor.ReadLine())       'načíst první
        End While
If heslo = heslo_kontrola Then
            MsgBox("kontrola proběhla úspěšně")
        Else
            MsgBox("špatné kontrolní heslo!")

        End If
        soubor.Close()

Děkuji ,s trochou štěstí,snahy a pomoci jsem to vyřešil takto a funguje to do jisté míry k uspokojení (ještě pořád neumim data zapisovat,přesněji,přepisovat)

 Dim nalezeno As Boolean

        Dim heslo_kontrola As String = TextBox4.Text
        Dim heslo As String
        Dim soubor As New IO.StreamReader("database.txt") 'otevřít soubor

        While Not soubor.EndOfStream 'číst, dokud nejsme na konci souboru
            heslo = (soubor.ReadLine()) 'načíst první řádek z textu
            If heslo = heslo_kontrola Then
                nalezeno = True
            End If
End While

        soubor.Close()

        If nalezeno = True Then
            MsgBox("kontrola proběhla úspěšně")
        Else
            MsgBox("špatné kontrolní heslo!")

        End If