.txt dosyasından veri okumak icin :
formun en ustune Kod:
import system.io
yazdıktan sonra
forma 1 richtxtbox 2 button (oku,yaz) ekliyoruz
bu butonlardan oku yazılı olana tıklayarak aşağıdaki kodu yazıyor ve uzerinde değişiklikleri yaparak kaydediyoruz..

Kod:
Dim file As String Dim tmp As String file = "dosya_ismi.txt" Dim fs As FileStream = New FileStream("dosya_ismi.txt", FileMode.Open, FileAccess.Read) Dim r As StreamReader = New StreamReader(fs) Do tmp = r.ReadLine RichTextBox1.Text = RichTextBox1.Text & tmp & Microsoft.VisualBasic.ControlChars.CrLf Loop Until tmp Is Nothing r.Close() fs.Close()
------------------------------------
bu şekilde okuma yaptıktan sonra şimdi sıra veri yazmada

"yaz" butonuna tıklayarak da aşağıdaki kodları ve uzerinde ayarlamaları yaparak yapıştırıyoruz..

Kod:
Dim file As String file = "dosya_ismi.txt" Dim fs As FileStream = New FileStream("dosya_ismi.txt", FileMode.Append) Dim w As StreamWriter = New StreamWriter(fs) w.WriteLine(RichTextBox1.Text) w.Close() fs.Close() messagebox.show("Kayıt Başarılı","By FuRkaN")
bu kod ile richtxtbox'a girdiğiniz verileri .txt dosyanıza kaydetmenizi sağlar..
__________________