|
Dobrý den, tak snad už do tohoto tématu píšu naposledy. Mám zase problém, včera mi to fachalo a dnes ne.
If jmeno.Text.Length > 0 And heslo.Text.Length > 0 Then
Dim otevreni_log As System.IO.StreamReader = File.OpenText("log.txt")
Dim uziv_log, datum_log As String
Dim rozdeleni_log() As String
Dim datum_dnes As String = Date.Now.ToString("dd.MM.yyyy")
Dim cas_dnes As String = DateTime.Now.ToString("HH:mm")
Dim text_log_zapis As String = ""
Dim dlouhodoby_log As String = ""
Dim dlouhodoby_log_zapis As New IO.StreamWriter("dlouhodoby_log.txt", True)
Dim nacteni_uziv As System.IO.StreamReader = File.OpenText("user.txt")
Dim user, pass As String
Dim skupina As Integer
Dim rozdeleni() As String
While Not nacteni_uziv.EndOfStream
rozdeleni = nacteni_uziv.ReadLine.Split("-")
user = rozdeleni(0)
pass = rozdeleni(1)
skupina = rozdeleni(2)
If user.Length > 0 And pass.Length > 0 And skupina > 0 Then
If jmeno.Text = user And heslo.Text = pass Then
If skupina = 1 Then
dlouhodoby_log = jmeno.Text & "-" & datum_dnes & "-" & cas_dnes
dlouhodoby_log_zapis.WriteLine(dlouhodoby_log)
Form1.user.Text = jmeno.Text
Form1.skupina.Text = skupina
heslo.Text = ""
vysledek.Visible = False
Form1.ShowDialog()
End If
If skupina >= 2 Then
While Not otevreni_log.EndOfStream
rozdeleni_log = otevreni_log.ReadLine.Split("-")
uziv_log = rozdeleni_log(0)
datum_log = rozdeleni_log(1)
If jmeno.Text = uziv_log And datum_dnes = datum_log Then
dlouhodoby_log = jmeno.Text & "-" & datum_dnes & "-" & cas_dnes & " - už byl(a) přihlašen(a)"
dlouhodoby_log_zapis.WriteLine(dlouhodoby_log)
vysledek.Visible = True
vysledek.Text = "Dnes jste již byl(a) přihlašen(a)."
heslo.Text = ""
End If
End While
otevreni_log.Close()
If vysledek.Text <> "Dnes jste již byl(a) přihlašen(a)." Then
dlouhodoby_log = jmeno.Text & "-" & datum_dnes & "-" & cas_dnes
dlouhodoby_log_zapis.WriteLine(dlouhodoby_log)
Form1.user.Text = jmeno.Text
Form1.skupina.Text = skupina
vysledek.Visible = False
heslo.Text = ""
Form1.ShowDialog()
End If
End If
Else
If zavreni.Text <> "po_prihlaseni" And vysledek.Text <> "Dnes jste již byl(a) přihlašen(a)." Then
vysledek.Visible = True
heslo.Text = ""
vysledek.Text = "Chybné heslo nebo jméno."
End If
End If
End If
End While
nacteni_uziv.Close()
dlouhodoby_log_zapis.Close()
zavreni.Text = ""
Else
vysledek.Visible = True
vysledek.Text = "Nebyli vyplněny všechny pole."
End If
Kouknul byste prosím na to někdo, neustále mi to načítá jen první řádek a nechápu proč.
|