[VB.NET] 存取文字檔

使用函數說明：
FreeFile()
- 傳回 FileOpen 函數下一個可用的檔案代號，傳回值是整數

FileOpen(檔案代號, 檔案名稱路徑, 檔案開啟模式)
- 使用檔案開啟模式，開啟檔案代號的檔案
- 檔案開啟模式
- OpenMode.Input：從檔案中讀取字元，這是已經存在的檔案，程式需要使用Try/End Try錯誤處理避免開啟不存在的檔案
- OpenMode.Output：將字元寫入檔案，如果檔案不存在，就建立此檔案，如果檔案已有內容會清除內容
- OpenMode.Append：將字元寫入檔案結尾的最後，它不會清除檔案內容，只是加在最後，如果檔案不存在，就建立此檔案

FileClose(檔案代號)
- 關閉檔案代號的檔案

Print(檔案代號, String)
- 將參數 String 的字串寫入檔案代號的檔案

PrintLine(檔案代號, String)
- 同 Print 函數，只是在最後加一個換行符號

LineInput(檔案代號)
- 傳回開啟循序檔讀取的單行資料，但是不包含換行符號，傳回值是 String 字串變數

EOF(檔案代號)
- 傳回參數檔案代號的檔案是否已經到達檔尾，傳回布林值 True 為是，False 為否


例：寫入資料到 Test.txt 檔案中
Dim FileNum As Integer
Dim strTemp as String

FileNum = FreeFile()
FileOpen(FileNum, "C:\Test.txt", OpenMode.Output)

strTemp = "輸入測試字串"
PrintLine(FileNum, strTemp)

FileClose(FileNum)


例：從 Test.txt 檔案中讀取資料
Dim FileNum As Integer
Dim strTemp as String

FileNum = FreeFile()
FileOpen(FileNum, "C:\Test.txt", OpenMode.Input)

Do Until EOF(FileNum)
    strTemp &= LineInput(FileNum) & vbNewLine
Loop

FileClose(FileNum)