Text Dosyaya Yazmak ve Text Dosyadan Okumak

Merhaba arkadaşlar bu makalemizde oluşturduğumuz text dosyasına yazma işlemi gerçekleştireceğiz. Ayrıca text dosyadan okuma işlemini de gerçekleştireceğiz. Formumuza 1 adet TextBox, 2 adet Button ekliyoruz. TextBox ımızın Multiline  özelliğini true yapıyoruz.

Şekil 1

Şekil 2

Form1.vb

Imports System.IO

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        TextBox1.Multiline = True

    End Sub

    Private Sub btnWrite_Click(sender As Object, e As EventArgs) Handles btnWrite.Click

        If File.Exists("D:\Read Me.txt") Then

            'text dosyasi varsa verilecek mesaj

            MsgBox("'Read Me' text dosyasi var! " & vbCrLf & "Girilen metin text dosyaya kaydedildi.. ")

        Else

            'text dosyası yoksa verilecek mesaj

            File.Create("D:\Read Me.txt")

            MsgBox("'Read Me' text dosyasi olusturuldu! " & vbCrLf & " Girilen metin text dosyaya kaydedildi.. ")

        End If

        'text dosyaya yazmak

        Dim dosyayaYaz As System.IO.TextWriter = New StreamWriter("D:\Read Me.txt")

        dosyayaYaz.WriteLine(TextBox1.Text)

        dosyayaYaz.Flush()

        dosyayaYaz.Close()

        dosyayaYaz = Nothing

    End Sub

    Private Sub btnRead_Click(sender As Object, e As EventArgs) Handles btnRead.Click

        Dim satir As String

        Dim dosyaOku As System.IO.TextReader = New StreamReader("D:\Read Me.txt")

        While True

            satir = dosyaOku.ReadLine()

            If satir Is Nothing Then

                Exit While

            Else

                TextBox1.Text = satir

            End If

        End While

        dosyaOku.Close()

        dosyaOku = Nothing

    End Sub

End Class

Bir makalenin daha sonuna geldik. Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN