TextBox存檔, print寫入, Append新增, Input讀取

TextBox1.MultiLine = True

TextBox1.ScrollBars=Vertical

'按一下Button1要把TextBox1內的文字覆蓋儲存到 C 磁碟的根目錄下的test.txt檔案裡
Private Sub Button1_Click(.................)
Dim F as Integer
F = FreeFile
FileOpen(F, "c:\test.txt", OpenMode.Output)
Print (F, TextBox1.Text)
FileClose()
End Sub

'按一下Button2時把TextBox1內的文曾字新增到 C 磁碟的根目錄下的test.txt檔案裡

Private Sub Button2_Click(.....................)
Dim F as Integer
F = FreeFile

FileOpen(F, "c:\test.txt", OpenMode.Append)

Print (F, TextBox1.Text)

FileClose()

End Sub

'按一下Button3時把test.txt檔案裡的內容讀取到TextBox1內, 用LineInput整行輸入

Private Sub Button3_Click(............................)

Dim F as Integer, L as string

F = FreeFile

  • FileOpen(F, "c:\test.txt", OpenMode.Input)

    • Do while not eof(F)

    Input (F, L)

    TextBox1.Text = TextBox1.Text & L & vbCrLf   '將讀入之字串串起來顯示在文字框

    Loop

    FileClose()

    End Sub

    進階實習：

    1. 請自行進一步以 PrintLine, Write, WriteLine命令取代 Print 命令並比較其差別

    2. 以對話框(dialog)相關控制項來指定FileOpen命令中的檔名：

    將Button1之檔名"c:\test.txt"改成以SaveFileDialog控制項，由使用者指定：

    SaveFileDialog1.ShowDialog()

    FileOpen(F, SaveFileDialog1.Filename, OpenMode.Output)

    將Button2 之檔名"c:\test.txt"改成以SaveFileDialog控制項，由使用者指定：

    SaveFileDialog1.ShowDialog()

    FileOpen(F, SaveFileDialog1.Filename, OpenMode.Append)

    將Button3 之檔名"c:\test.txt"改成以OpenFileDialog控制項，由使用者指定：

    OpenFileDialog1.ShowDialog()

    FileOpen(F, OpenFileDialog1.Filename, OpenMode.Input)