注册 登录
编程论坛 VB6论坛

求大神,为什么随机存取的文件无法用if进行判断?

陌上过客 发布于 2016-03-25 17:51, 2601 次点击
   Open App.Path & "\data.txt" For Random As #1 Len = Len(per)
        m = LOF(1) \ Len(per)
        For i = 1 To m
           Get #1, i, per
           If per.name = Text1.Text Then
              Text2.Text = per.num
              exit for
           End If
        Next i
   Close #1
8 回复
#2
陌上过客2016-03-25 20:54
求大神讲解一下
#3
陌上过客2016-03-26 20:42
大神在哪里
#4
风吹过b2016-03-27 21:45
per 是一个结构体

   Open App.Path & "\data.txt" For Random As #1 Len = Len(per)                  '用指定长度打开随机文件
        m = LOF(1) \ Len(per)                                                   '计算记录总数
        For i = 1 To m                                 
           Get #1, i, per                       '读一条记录
           If per.name = Text1.Text Then        '如果相等
              Text2.Text = per.num              '取值
              exit for                          '结束循环
           End If
        Next i
   Close #1                                     '关闭文件

你问题出在哪? IF 无效,你用 DEBUG.print 把每条记录的 name 显示出来看看错在那.
#5
李持2016-03-28 11:54
学习下
#6
陌上过客2016-03-29 20:40
回复 4楼 风吹过b
if过程里面就没有数据,其他一切正常,不能判断
#7
陌上过客2016-03-29 20:43
回复 4楼 风吹过b
而且在发帖之前我就测试过了,数据方面没问题,就是不知道为什么if不能判断
#8
wmf20142016-03-29 21:06
回复 7楼 陌上过客
其实你要说清楚怎么不会判断。是if语句未执行还是明明有相等的却总判断不相等。
#9
陌上过客2016-03-29 21:44
回复 8楼 wmf2014
终于有人能看懂我的意思了,握手
1