Erstmal Guten Tag!
Ich ein Problem mit folgenden Code vielleicht findet jemand einen Fehler ich kann mir nicht erklären wieso der nicht funktioniert.
Das ist mal die Function fürs auslesen der einzelnen Zeilen
und das ist der Code der dann die jeweiligen werte zuteilt.
aber bei mir tuht sich da gar nichts, eigentlich sollte sich ja, falls Textbox1 (Das ist der Ordner in dem sich die Datei User befindet) existiert und das passwort das in der Datei User.txt steht richtig in Textbox2 eingegeben wurde, Die Form Gartenplanung öffnen wenns nicht so wäre eine Msgbox mit einer Meldung, aber keins von beiden passiert.
Ich ein Problem mit folgenden Code vielleicht findet jemand einen Fehler ich kann mir nicht erklären wieso der nicht funktioniert.
VB.NET-Quellcode
- Public Function ReadLine(ByVal filename As String, _ ByVal line As Integer) As String
- Try Dim lines As String() = My.Computer.FileSystem.ReadAllText( _ "C:\PCML\Gartenplanung 2\" & TextBox1.Text & "\User.txt", System.Text.Encoding.Default).Split(vbCrLf)
- If line > 0 Then ' n-te Zeile vom Anfang der Textdatei Return lines(line - 1) ElseIf line < 0 Then ' n-te Zeile beginnend am Ende der Textdatei Return lines(lines.Length + line - 1) Else ' ungültige Zeilennummer Return "" End If Catch ex As Exception Return "" End Try End Function
Das ist mal die Function fürs auslesen der einzelnen Zeilen
VB.NET-Quellcode
- Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Passwort Dim pfad pfad = "C:\PCML\Gartenplanung 2\" & TextBox1.Text & "\User.txt" If Len(Dir("C:\PCML\Gartenplanung 2\" & TextBox1.Text)) Then
- Passwort = ReadLine(pfad, 0) If TextBox2.Text = Passwort Then Gartenplanung.Show()
- Gartenplanung.lblCoins.Text = ReadLine(pfad, 3) Gartenplanung.lblGeld.Text = ReadLine(pfad, 2) Gartenplanung.lblKontostand.Text = ReadLine(pfad, 5) Gartenplanung.lblErfahrung.Text = ReadLine(pfad, 4) Gartenplanung.lblZinsen.Text = ReadLine(pfad, 6) Gartenplanung.lblKontonr.Text = ReadLine(pfad, 1) Gartenplanung.lblSonnenblumenStand.Text = ReadLine(pfad, 7) Gartenplanung.lblTulpenStand.Text = ReadLine(pfad, 8) Gartenplanung.lblRadischenStand.Text = ReadLine(pfad, 9) Gartenplanung.lblErdbeerenStand.Text = ReadLine(pfad, 10) Gartenplanung.lblKokosnussStand.Text = ReadLine(pfad, 11) Gartenplanung.lblZwiebelStand.Text = ReadLine(pfad, 12) Gartenplanung.lblSternenfruchtStand.Text = ReadLine(pfad, 13) Gartenplanung.lblPaprikaStand.Text = ReadLine(pfad, 14) Else MsgBox("Name oder Passwort falsch!", MsgBoxStyle.Critical, "Fehler") End If
- End If End Sub
und das ist der Code der dann die jeweiligen werte zuteilt.
aber bei mir tuht sich da gar nichts, eigentlich sollte sich ja, falls Textbox1 (Das ist der Ordner in dem sich die Datei User befindet) existiert und das passwort das in der Datei User.txt steht richtig in Textbox2 eingegeben wurde, Die Form Gartenplanung öffnen wenns nicht so wäre eine Msgbox mit einer Meldung, aber keins von beiden passiert.