Option Explicit
Dim a As String
Private Sub Command1_Click()
CommonDialog1.FileName = ""
CommonDialog1.Flags = 4096
CommonDialog1.Filter = "all files|*.*|(*.txt)|*.txt|(*.doc)|*.doc"
CommonDialog1.FilterIndex = 2
CommonDialog1.Action = 1 '建立对话框,等同于CommonDialog1.ShowOpen
If CommonDialog1.FileName = "" Then
MsgBox "no file seleted", 37, "checking"
Else '对所选择的文件进行打开处理
Open CommonDialog1.FileName For Input As #1 '以一个字符为单位依次读取文件
Do While Not EOF(1) '判断是否已经读取完毕
Input #1, a$ '同上
Print a '每读取一个字符就输出一个
Loop
End If
End Sub
其中EOF函数有两个值,当读取文件的指针到末尾时,它的值就为true(即不为零),否则为false(0)
我一开始以为EOF(n)这里的n只要不为零就可以,调试发现必须跟input as #n的n保持相同,留一个疑问