【VB】文字檔-寫檔及讀檔-I
使用說明： 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...
