Oncelikle 2 adet buton ekliyoruz 1.si kayıt eklemek (btBul) icIn, 2.si ise kayıt silmek (btEkle) icIn kullanılacak.
'yerel disk C 'de liste adında bir Text dosyası acıyoruz.
'5 adet textbox ekliyoruz .bunlar aranacak nosu ,memleket,boy,Doğum tarihi ve adsoyad icIn.
'evet bu kadar size kolay gelsin ......
'tbad=adının gosterileceği textbox anlamına gelir kısaltılmıştır diğerleride aynısıdır.


Imports System.IO 'bunu Public formun ustune yani en uste yazıyoruz.


btBul_Click 'bul butonuna tıkladığımızda aşşagıdaki kod calışacak

Kod:
Dim fs As New FileStream("C:/liste.txt", FileMode.Open) Dim r As New StreamReader(fs) Dim bilgiler() As String While Not r.EndOfStream() bilgiler = Split(r.ReadLine(), ",") 'bilgileri , (virgul) ile ayırıyoruz. If tbno.Text = bilgiler(0) Then tbad.Text = bilgiler(1) tbmemleket.Text = bilgiler(2) tbtarih.Text = bilgiler(3) tbboy.Text = bilgiler(4) Exit While End If End While If r.EndOfStream Then MsgBox("aradığınız kişi listede yoktur") End If fs.Close() r.Close() End Sub




btEkle_Click 'Ekle butonuna bastıgımızda aşşagıdaki kod calışacak ....
'Bu arada şuna dikkat edin, siz kesinlikle bilgiler icine , (virgul) karakteri girmemelisiniz
'Cunku bilgiler aralarına virgul atılarak dosyaya kaydedilecek ve bu virguller bu bilgiler arasında sınır gorevi gorecek.
'Daha sonra kayıtlar aranıp bulunduğunda virguller arasındaki bilgiler kayıt bilgileri olarak kabul edilecek.
Kod:
Dim fs2 As New FileStream("C:/liste.txt", FileMode.Append) Dim w As New StreamWriter(fs2) w.WriteLine(tbno.Text & "," & tbad.Text & "," & tbmemleket.Text & "," & tbtarih.Text & "," & tbboy.Text) w.Close() fs2.Close() End Sub

__________________