VB.NET İle Notepad .txt Uygulaması

10.11.2009 tarihinde , ALI EROGLU tarafından yazılmış ve 97 kere okunmuş.

Selam arkadaşlar, Bu yazımda sizlerle beraber bir notepad (*.txt) dosyasının içinde veriyi nasıl okuruz nasıl yazarız nasıl dosyayı oluştururuz bununla ilgili aklınızda takılan şeyler vardır diye ufak bir örnek yapim dedim.   Public Shared Function DosyayaYaz() As Boolean     Dim value As Boolean = False     Dim dosya As New StreamWriter("c:\Deneme.txt")     dosya.WriteLine("Metin dosyamızın ilk satırı")         dosya.WriteLine("İkinci satır...")     dosya.Close()         Console.WriteLine("Dosya yazımı Başarı ile tamamlandı...")     Return value End Function Public Shared Function DosyadanOku(ByVal dosyaIsmi As String) As Boolean     Dim value As Boolean = False     Dim dosyaOku As StreamReader     Dim yazi As String         dosyaOku = File.OpenText(dosyaIsmi)     yazi = dosyaOku.ReadLine()         While yazi IsNot Nothing         Console.WriteLine(yazi)         yazi = dosyaOku.ReadLine()     End While     dosyaOku.Close()     Return value End Function Public Shared Function DosyayaEkle(ByVal dosyaIsmi As String) As Boolean     Dim value As Boolean = False     Dim dosya As StreamWriter     dosya = File.AppendText(dosyaIsmi)     dosya.WriteLine("Bu da en son Append ile eklediğimiz satır...")     dosya.Close()     Console.WriteLine("Dosyanın sonuna başarı ile ekledik...")     Return value End Function Main Kısmına veya Başka Başka Console App Uygulamalarında çalıştırmak için DosyayaYaz() DosyadanOku("c:\\Deneme.txt") DosyayaEkle("c:\\Deneme.txt") Testini yapabilirsiniz. Eğer Proje içinden Okumak istiyorsanız bir dosyayı Application.StartupPath & "deneme.txt" diyebiliriz. NOT : Application Kod'u Debug altındaki bin dosyasının içindeki fosyayı okur. iyi çalışmalar. Etiketler : VB.NET İle Notepad .txt Uygulaması