Sonra bu txt dosyasını sırayla satır satır okutmak istediğimde, txt dosyasının sonuna kadar bir anda okuma yapıyor textboxlara sadece en son satırda okuduklarını yazıyor.
Oysa benim yapmak istediğim; "Oku" butonuna her tıklamada tek bir satır okunsun ve satırdaki 4 ayrı bilgi sırayla 4 textboxa yazılsın. Bir sonraki tıklamada ise kaldığı yerden bir sonraki satırı okusun.
Okuma işlemini yaparken, her satırda durup okuduklarını textboxlara yazmasını, bir sonraki satır için "Oku" butonuna basmamı beklemesini nasıl sağlayabilirim ?
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
FileOpen(1, Application.StartupPath & "\Kayitlar.txt", OpenMode.Append)
WriteLine(1, TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text)
FileClose(1)
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim Ad As String, Soyad As String, Tel1 As String, Tel2 As String, Ayikla() As String
FileOpen(1, Application.StartupPath & "\Kayitlar.txt", OpenMode.Input)
While Not EOF(1)
Ayikla = Split(LineInput(1), Chr(34) & "," & Chr(34))
Ad = Mid(Ayikla(0), 2, Len(Ayikla(0)) - 1)
Soyad = Ayikla(1)
Tel1 = Ayikla(2)
Tel2 = Mid(Ayikla(3), 1, Len(Ayikla(3)) - 1)
TextBox1.Text = Ad
TextBox2.Text = Soyad
TextBox3.Text = Tel1
TextBox4.Text = Tel2
End While
FileClose(1)
End Sub