close

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()


arrow
arrow
    全站熱搜
    創作者介紹
    創作者 ikaritw 的頭像
    ikaritw

    嚼的絮絮叨叨

    ikaritw 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄