直接采用Open函數(shù)+Line input命令
Private Sub txt_read() Dim txt As String Open "D:\dzh.txt" For Input As #1 ' '對(duì)文件做任何 I/O 操作之前都必須先打開(kāi)文件。Open 語(yǔ)句分配一個(gè)緩沖區(qū)供文件進(jìn)行 I/O 之用， '并決定緩沖區(qū)所使用的訪(fǎng)問(wèn)方式。 '打開(kāi)文件作為數(shù)據(jù)輸入用，文件號(hào)為#1 Do While Not EOF(1) Line Input #1, txt '從已打開(kāi)的順序文件中讀出一行并將它分配給 String 變量 'Line Input # 語(yǔ)句一次只從文件中讀出一個(gè)字符，直到遇到回車(chē)符 (Chr(13)) '或回車(chē)–換行符 (Chr(13) + Chr(10)) 為止?；剀?chē)–換行符將被跳過(guò)，而不會(huì)被附加到字符串上 MsgBox txt Loop Close #1 End Sub -----------------------------------------------------------------------------------------------1、Open 語(yǔ)句 打開(kāi)方式有 Input：以讀取方式打開(kāi)。Output：以寫(xiě)入方式打開(kāi)。Append：以追加方式，即添加內(nèi)容到文件末尾打開(kāi)。Binary：以二進(jìn)制方式打開(kāi)。Random：以隨機(jī)方式打開(kāi)，如果未指定方式，則以 Random 方式打開(kāi)文件。 Open pathname For mode As [#]filenumber Open "c:\a.txt" For Output As #1filenumber 是一個(gè)有效的文件號(hào)，范圍在 1 到 511 之間。如果 pathname 指定的文件不存在，那么，在用 Append、Binary、Output、或 Random 方式打開(kāi)文件時(shí)，可以建立這一文件。 2、Close 語(yǔ)句 語(yǔ)法：Close [filenumberlist] filenumberlist 參數(shù)為一個(gè)或多個(gè)文件號(hào)，若省略 filenumberlist，則將關(guān)閉 Open 語(yǔ)句打開(kāi)的所有活動(dòng)文件。 說(shuō)明：打開(kāi)文件后，必須在使用完后關(guān)閉文件。 3、EOF 函數(shù) 語(yǔ)法：EOF(filenumber) 功能：返回一個(gè) Integer，它包含 Boolean 值 True，表明已經(jīng)到達(dá)為 Random 或順序 Input 打開(kāi)的文件的結(jié)尾。Open "c:\a.txt" For Input As #1 ‘以讀入方式打開(kāi)c:\a.txtDo While Not EOF(1) '未到達(dá)結(jié)尾 Line Input #1, s1 '讀入一行，放入s1變量中 Loop Close #1 