lostyazilim
tr.link

VB2013 - txt dosyasından satır satır nasıl okuma yaptırabilirim ?

3 Mesajlar 938 Okunma
acebozum
tr.link

Aday Aday WM Aracı Kullanıcı
  • Üyelik 26.03.2014
  • Yaş/Cinsiyet 62 / E
  • Meslek İnş. Müh.
  • Konum İstanbul Anadolu
  • Ad Soyad A** Y**
  • Mesajlar 11
  • Beğeniler 0 / 1
  • Ticaret 0, (%0)
Aşağıdaki kodlarla "Yaz" butonuna tıkladığımda, bir txt dosyasına, 4 textboxa girdiğim ad, soyad, evtel, ceptel bilgilerinin tamamını tek bir satıra yazdırıyorum. Bunu 100 küsür kişi için yapıyorum.

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
 

 

elektronikssl
webimgo

yakupqqq yakupqqq Kimlik Onayı Bekliyor Banlı Kullanıcı
  • Üyelik 25.10.2014
  • Yaş/Cinsiyet 33 / E
  • Meslek üniversite öğrencisi
  • Konum İstanbul Anadolu
  • Ad Soyad Y** K**
  • Mesajlar 963
  • Beğeniler 33 / 285
  • Ticaret 11, (%100)

 

 

Aday Aday WM Aracı Kullanıcı
  • Üyelik 26.03.2014
  • Yaş/Cinsiyet 62 / E
  • Meslek İnş. Müh.
  • Konum İstanbul Anadolu
  • Ad Soyad A** Y**
  • Mesajlar 11
  • Beğeniler 0 / 1
  • Ticaret 0, (%0)
Teşekkürler, sağolun...
 

 

wmaraci
wmaraci
Konuyu toplam 1 kişi okuyor. (0 kullanıcı ve 1 misafir)
Site Ayarları
  • Tema Seçeneği
  • Site Sesleri
  • Bildirimler
  • Özel Mesaj Al