2005/11/03

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

0 Comments:

張貼留言

<< Home