【VB】VB读取文本/文件 二进制读取文本/件

VB二进制、Byte数组方式一次读取文本/文件：

Dim S As String
Open "C:Get.asp" For Binary As #9
S = Input(LOF(9), 9)
Close #9

MsgBox S

VB逐行读取文本文件：

Open "C:1.txt" For Input As #1
Input #1, a '读第一行
Input #1, b '读第二行
Close #1
msgbox a & b

VB循环读取文本文件：

Dim X As String, S As String

Open "C:over.txt" For Input As #1
Do While Not EOF(1) '循环读取到末尾
    Line Input #1, S '逐行读取
    X = X & S & vbCrLf
Loop
Close #1

MsgBox X