準備工作

01

新建一個VB工程

使用VB內建函式讀取文字檔案

01

雙擊Command1新增如下程式碼

Private Sub Command1_Click()

Dim strFile As String

Dim intFile As Integer

Dim strData As String

strFile = "c:\學生成績.txt"

intFile = FreeFile

Open strFile For Input As intFile

strData = StrConv(InputB(FileLen(strFile), intFile), vbUnicode)

Debug.Print strData

Close intFile

End Sub

02

執行程式碼讀取檔案

03

關鍵程式碼說明

intFile = FreeFile：

獲取一個檔案控制代碼

Open strFile For Input As intFile ：

開啟檔案

FileLen(strFile) ：

獲取檔案內容位元組大小

InputB：

讀取檔案內容位元組流

StrConv：

將位元組流轉換為Unicode字串

Debug.Print strData：

將字串內容輸出到立即視窗

Close intFile：

關閉檔案控制代碼

使用FileSystemObject讀取文字檔案

01

新增Microsoft Scripting Runtime引用

Reference，開啟引用對話方塊，瀏覽找到

02

雙擊Command2新增如下程式碼

Private Sub Command2_Click()

Dim objFSO As New FileSystemObject

Dim objStream As TextStream

Dim strData As String

Set objStream = objFSO.OpenTextFile("c:\學生成績.txt")

strData = objStream.ReadAll

Debug.Print strData

objStream.Close

End Sub

03

執行程式碼讀取檔案