【对话框测试里的小问题】

建立一个命令按钮和一个对话框控件: 

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保持相同,留一个疑问

 

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值