Ara:

Şu an misafir modundasın. YazılımDevi olmak ister misin? Giriş Yap / Kayıt Ol

Makale Hakkında!

Vb. net?te Text Dosyaya Yazma, Okuma Ve Düzenleme Islemleri Makale Yazarı Okunma Sayısı Eklenme Tarihi
Oğuz Sarıçam 2508 05.05.2009

Makale Detayı

Vb. net’te Text Dosyaya Yazma, Okuma Ve Düzenleme Islemleri
 
Arkadaslar merhabalar bu makalemizde Vb.Net ‘i kullanarak Bir text dosya nasil olusturulur ve olusturmus oldugumuz text dosyasina nasil kayit eklenir bunlar üzerinde duracagiz.
            Ilk olarak kullanacagimiz kütüphaneyi ve bu kütüphanenin class’larini taniyalim.
Herhangi bir text dosyasini açmak ve yazmaya yada okumaya hazirlamak için filestream class’i kullanilir.
Tabiî ki bu class’lari kullanabilmek için sayfamizin en üst bölümüne
Imports System.IO
Kütüphanesini çagirmak gerekecektir. Bizim text dosyasina yazi yazmada kullanacagimiz class’larin yer aldigi kütüphane’dir.
Biz bu kütüphanenin 3 tane class’ini kullanacagiz, FileStream, StreamWriter ve StreamReader

1-FileStream

 
Filestream class’ inin genel kullanimi asagidaki gibidir. Bu class’ta dosyalari yazmak için mi? Okumak için mi açicagimiz’ i belirtmemiz gerekir. Aksi takdir’ de hataya neden olacaktir.
Örnegin bir text dosyasina yazi eklemek istiyorsak bunu Append Modunda açmak gerekir.
Eger o text dosyasindan sadece yazi okuyacaksak bu dosyayi Open Modunda açmamiz yeterli olacaktir. Dosya Olusturmak içinse;
 
Dim fs as filestream = new filestream(“dosyaadi ve yolu”,Filemode.OpenOrcreate)
 

Kullanimi :

           
Dim Degisken adi as Filestream = new Filestream(“dosya yolu ”, dosya açma mod’ u)
 
Dosya’dan okumak için;
Dim fs as filestream = new filestream(“dosya_adi.txt”, Filemode.open)
 
Dosya’ ya yazmak için;
Dim fs as filestream = new filestream(“dosya_adi.txt”, Filemode.Append)
 

2-StreamWriter

 
StreamWriter class’ inin genel kullanimi asagidaki gibidir. Bu class’i kullanabilmek için ilk olarak bir filestream tanimlamak gerekir ve tanimladiginiz streamwriter’a bu filestream atanir.
 
Kullanimi :
 
Dim Degisken Adi as streamWriter = new streamwriter(fs)
 
               Örnek:
 
Dim fs as filestream = new filestream(“dosya.txt”,filemode.append)
Dim sw as streamwriter = new streamwriter(fs)
               Sw.writeline(“Yazilacak deger”)
 
Streamwriter class’inin writeline metodu text dosyasinda bir satira yazar, eger birden çok satira veri girmek istenirse, birden çok writeline kullanilmalidir.
 
 Asagidaki gibi:
 
Sw.writeline(“Yazilacak deger”)
Sw. writeline(“Yazilacak deger”)
 
 
3-StreamReader
 
 
         StreamReader class’i text dosyasindan veriyi satir satir okumaya yarar.
 
Kullanimi:
 
Dim Degisken Adi as StreamReader = new StreamReader(fs)
Örnek:
Dim satir1
Dim fs as filestream = new filestream(“dosya.txt”,filemode.open)
Dim sr as streamreadet = new streamreader(fs)
               Satir1=sr.ReadLine()
 
StreamReader class’inin Readline metodu text dosyasindaki sadece bir satiri okur ve okunan satirin bir degisken’e yada bir nesneye atanmasi gerekir. Birden fazla satir okumak için bir döngü kurmak ve okuma islemini çogaltmak gerekmektedir.
 
Asagidaki Gibi:
Sr.readline
Sr.readline
 
Ögrendiklerimizi Anlamamiz Açisindan birde Örnek Verelim:
Bunun için bos bir proje açalim. Ve Asagidaki gibi tasarlayalim.
Ama Tabiî ki tasarim size kalmis siz kafaniza göre tasarim yapabilirsiniz.

 
Evet form tasarimini tamamladiktan sonra oku butonunun click event’ine geliyoruz.
Ve kodumuz su sekilde olacak
Oku Butonu Click Event’i
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
 
        Dim file As String
 
        Dim tmp As String
 
        file = "deneme.txt"
        Dim fs As FileStream = New FileStream(file, FileMode.Open)
        Dim r As StreamReader = New StreamReader(fs)
 
        TextBox1.Text = ""
 
        Do
            tmp = r.ReadLine
            TextBox1.Text = TextBox1.Text & tmp & Microsoft.VisualBasic.ControlChars.CrLf
 
        Loop Until tmp Is Nothing
        r.Close()
        fs.Close()
 
    End Sub
 
Yaz Butonu Click Event’i
   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
 
        Dim file As String
 
        file = "deneme.txt"
        Dim fs As FileStream = New FileStream(file, FileMode.Append)
        Dim w As StreamWriter = New StreamWriter(fs)
        w.WriteLine(TextBox1.Text)
        w.Close()
        fs.Close()
 
    End Sub
 
Olustur Butonu Click Event’ine
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim fs As FileStream = New FileStream("dosya.txt", FileMode.CreateNew)
        fs.Close()
 
    End Sub
 
Evet en son olarak projemizi build edip çalistiriyoruz.
Bu makaleninde sonuna geldik. Bir sonraki makalemizde görüsmek üzere esen kalin.
Olusan hatalar ve sorulariniz için


Makale Tagları

Makale Dosyası

Makaleye Ait Dosya Bulunamamıştır

Paylaş


Yazar Hakkında
Genel Bilgiler   Yazar Hakkında
Ad: Oğuz Sarıçam 1991 Doğumlu Oğuz Sarıçam, Erciyes Üniversitesi Bilgisayar Programcılığı okumaktadır, Yazılım tutkusu lise 1'de ilk bilgisayarla tanışması ve ona ilgi duyması ile başlamıştır. Yazarımız şimdi okuluna bitirmeye çalışırken aynı zamanda özel bir şirkette Özel Kurum ve Kuruluşlara Yazılım Çözümleri sunmaktadır. Uzmanlık Alanları ise; Asp, Php, Asp.Net, MsSql, MySql, Css, Html, Javascript, Delphi Grafik konusunda ise Photoshop, Flash, İllustrator ve bütün bunların yanında Windows uygulamalarında da projeler yürütmeye başlamıştır.
Kurum: Teknopark Kayseri
Meslek: Yazılım Geliştirici
E-Mail: ouzsrcm@hotmail.com.tr
Web Sitesi: http://www.ouzsrcm.com
Makale-Video: 3

Bu makale için yapılmış yorumlar

Bu makale hakkında yorum yapınız!...

Bu makale hakkında yorum yapabilmek için lütfen üye olunuz veya giriş yapınız.

Konular

Yazarlar

Son Eklenen Makaleler

Son Eklenen Videolar

Ziyaretçi İstatistiği

ImageOnline : 10         Bugün : 1377

Bu Ay : 8208        Bu Yıl : 58382

Toplam : 441221

Kullanıcı Giriş Paneli!
E-Mail:
Şifreniz:
Giriş Yap

Şifremi Unuttum!
E-Mail:
    Gönder