Text Dosyasından Okuma ve Text Dosyasına Kayıt

Bu makalemizde oluşturduğumuz text dosyasından  bilgi okuyacağız. Ayrıca text dosyamıza kayıt gerçekleştireceğiz. Bu örneğimizde text dosyamızı C:\test.txt olarak oluşturduk. Aşağıdaki şekilden örneğimizi görebilirsiniz.

Şekil 1

Forma yazılacak kodlar:

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        With Me
            .Text = "Text Dosyaya Kayıt...Bahadirsa"
            .MaximizeBox = False
            .Location = New Point(300, 200)
        End With

    End Sub
   
 ‘Text dosyaya kayıt StreamWriter
 ‘metodu ile olmaktadır.
     Private Sub btnkaydet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkaydet.Click

        Dim dosya As New System.IO.StreamWriter("C:\test.txt")
        dosya.WriteLine(txtyaz.Text)
        dosya.Close()

    End Sub

    ‘ Text dosyadan okuma StreamReader
 ‘metodu ile yapılıyor. 
    Private Sub btnoku_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnoku.Click

        Dim dosya As New System.IO.StreamReader("C:\test.txt")
        Dim str As String = dosya.ReadToEnd()
        txtyaz.Text = str
        dosya.Close()
    End Sub
End Class