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
0 comments:
Yorum Gönder