.NET 3.x Считывание файла по строкам - Visual Basic .NET
Формулировка задачи:
Снова я с файлами.Извиняюсь за то, что расплодил тем .-. Программа после авторизации пользователя/админа запускает личный кабинет. Я никак не пойму, как считываются файлы.
У меня в файле
Хранятся логины и пароли в виде
Как я сделал вход для админа ( осторожно,велосипед!11)
Но как реализовать считывание логина и пароля пользователей? Это всё теперь хранится в одном файле =_\\
Правильно ли я понимаю, что надо организовывать какой-нибудь динамический массив строк, а потом этот массив сравнивать с введеным чудом в текстбоксах?
Попытка чудо обработки для пользователя(надеялся на то, что можно осуществить "поиск" логина и пароля в файле. Я понимаю, что мы должны считывать отдельно ДО разделителя, а только потом ПОСЛЕ него - либо я снова изобретаю велосипед)
"C:\temp\USERS.txt"
NYAN|123123
MYAN|123123
Листинг программы
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 'Вход для админа'
- Dim PATH_ALOG As String = "C:\temp\LoginADMIN.txt" 'путь'
- Dim PATH_APAS As String = "C:\temp\PasswordADMIN.txt" 'путь'
- Dim Login As String
- Dim Password As String
- Using readerLogin As New StreamReader(PATH_ALOG) 'считывание логина'
- Login = (readerLogin.ReadToEnd())
- readerLogin.Close()
- End Using
- Using readerPass As New StreamReader(PATH_APAS) 'считывание пароля'
- Password = (readerPass.ReadToEnd())
- readerPass.Close()
- End Using
- If (Login = CStr(TextBox1.Text)) Or (Password = CStr(TextBox2.Text)) Then
- Form3.Show()
- Else
- MsgBox("Неверный логин и/или пароль")
- End If
- End Sub
Листинг программы
- Dim PATH_USERS As String = "C:\temp\USERS.txt"
- Dim Login As String
- Dim Password As String
- Using Login_PARSER As New FileIO.TextFieldParser(PATH_USERS)
- Login_PARSER.TextFieldType = FileIO.FieldType.Delimited
- Login_PARSER.SetDelimiters("|")
- End Using
Решение задачи: «.NET 3.x Считывание файла по строкам»
textual
Листинг программы
- Dim Line() As String = IO.File.ReadAllLines("C:\TNIY-TNIM.txt", System.Text.Encoding.Default)
- Dim Ind As Integer = 1
- MsgBox(Line(Ind).Split("|")(0) & vbCrLf & Line(Ind).Split("|")(1))
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д