嚼的絮絮叨叨

Imports System.IO

寫入：

Dim fw As New StreamWriter(filename, False) '設成True為累加，設成False為覆寫
fw.Write(txtData.Text) '將字串存入暫存
fw.Flush() '將暫存送入目的地
fw.Close() '關閉資料暫存

讀取：

Dim fr As New StreamReader(filename)
txtData.Text = ""
Do Until fr.EndOfStream
   txtData.Text += fr.ReadLine  '新增字串

    'txtData.Text += vbCrLf

    'Currage Return Line Feed =chr(13) chr(10)

   txtData.Text += Chr(13) & Chr(10)  '於字尾加入斷行
Loop
fr.Close()