reading from a text file

can anyone check and see what wrong with this code. i'm trying to read from a usernames and passwords from that file which i have coded in a text file.

Dim mAttempts As Integer
Dim Uname, pass As String
Dim sr As IO.StreamReader = IO.File.OpenText("user.txt")
Do While (sr.Peek <> -1)
Uname = sr.ReadLine
pass = sr.ReadLine

If txtUsername.Text = "" Then
MsgBox("User Name cannot be blank", MsgBoxStyle.Information)
Exit Sub
End If
If TxtPassword.Text = "" Then
MsgBox("Password cannot be blank", MsgBoxStyle.Information)
Exit Sub
End If

mAttempts = mAttempts + 1
If Uname <> txtUsername.Text Or pass = TxtPassword.Text Then
MsgBox("Please verify User Name and Password", MsgBoxStyle.Information)
ElseIf Uname = txtUsername.Text And pass = TxtPassword.Text Then
MsgBox("Logged in", MsgBoxStyle.Information)
If mAttempts = 3 Then
MsgBox("You had just 3 chances to verify")
End
End If
End If
Loop
sr.Close()
Exit Sub

Quote:

---

Originally posted by freddie_26
can anyone check and see what wrong with this code. i'm trying to read from a usernames and passwords from that file which i have coded in a text file.

Dim mAttempts As Integer
Dim Uname, pass As String
Dim sr As IO.StreamReader = IO.File.OpenText("user.txt")
Do While (sr.Peek <> -1)
Uname = sr.ReadLine
pass = sr.ReadLine

If txtUsername.Text = "" Then
MsgBox("User Name cannot be blank", MsgBoxStyle.Information)
Exit Sub
End If
If TxtPassword.Text = "" Then
MsgBox("Password cannot be blank", MsgBoxStyle.Information)
Exit Sub
End If

mAttempts = mAttempts + 1
If Uname <> txtUsername.Text Or pass = TxtPassword.Text Then
MsgBox("Please verify User Name and Password", MsgBoxStyle.Information)
ElseIf Uname = txtUsername.Text And pass = TxtPassword.Text Then
MsgBox("Logged in", MsgBoxStyle.Information)
If mAttempts = 3 Then
MsgBox("You had just 3 chances to verify")
End
End If
End If
Loop
sr.Close()
Exit Sub

---

what is the problem u get any error.. be specify to get help faster...

the code is being run but when i enter the username and password and error is generated and a grenn line appear over the

dim sr as io.streamreader =

currently i am away from my desk... so cannot test it... what is the message u get try using try ....catch...end try and see what is the error message u get

I do not have .Net on this machine, but I think it should be:

VB Code:

Dim sr As IO.StreamReader = New IO.File.OpenText("user.txt")

Make sure you are referring to the right path .