خواندن و نوشتن در یک فایل متنی و باینری

Imports System.IO

'1- نوشتن متنی
Dim tw As TextWriter = File.CreateText("d:\text1.txt")
     tw.Write("Hello word.")
tw.Close()

'2- نوشتن متنی
Dim sw As New StreamWriter("d:\text2.txt")
     sw.Write("Hello word.")
sw.Close()

'1- خواندن متنی
Dim tr As TextReader = File.OpenText("d:\text1.txt")
     MsgBox(tr.ReadToEnd())
tr.Close()

'2- خواندن متنی
Dim sr As New StreamReader("d:\text2.txt")
     MsgBox(sr.ReadToEnd())
sr.Close()

بعد از نوشتن در فایل برای اجرای تغییرات حتما فایل باید بسته شود

در غیر اینصورت فقط یک فایل خالی درست میشود
اگر فقط میخواهیم که تغییرات اعمال شود و فایل بسته نشود از روال Flush مانند زیر باید استفاده کرد

sr.Flush ()

' - نوشتن باینری

Dim fs As New FileStream("d:\binary.bin", FileMode.Create, FileAccess.Write)
Dim w As New BinaryWriter(fs)
For i = 0 To 10
     w.Write(CInt(i))
Next
w.Close()
fs.Close()

' - خواندن باینری

Dim fr As New FileStream("d:\binary.bin", FileMode.Open, FileAccess.Read)
Dim r As New BinaryReader(fr)
For i = 0 To 10
     MsgBox(r.ReadInt32)
Next
r.Close()
fr.Close()

نوشتن و خواندن با StringBuilder

Imports System.Text
Imports System.IO

Dim sb As New StringBuilder()
Dim sw As New StringWriter(sb)
sw.Write("Hello, ")
sw.Write("World!")
sw.Close()

Dim sr As New StringReader(sb.ToString())
MsgBox(sr.ReadToEnd())
sr.Close()