设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 1824|回复: 3
打印 上一主题 下一主题

[模块/函数] 怎样将指针移动到外部已打开文件的开始行?

[复制链接]
跳转到指定楼层
1#
发表于 2010-10-19 21:35:51 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
我已经使用这个Do Until EOF(hfile)将指针移动到文件的某中间位置,是否可以用语句将指针移动到文件的头行,开始其他的运算呢?
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
 楼主| 发表于 2010-10-20 19:38:01 | 只看该作者
是描述不够清楚呢还是高手都潜水了,自己顶一下先
3#
 楼主| 发表于 2010-10-20 19:45:30 | 只看该作者
再详细一点:
Do Until EOF(hfile)
If InStr(1, strLine, "HARDWARE SUPPORTED MAXIMUM TRX CAPACITY :", 1) > 0 Then
                     BSC_TRX_CAPACITY = Trim(Mid(strLine, 42))
                     Exit Do
                      'BSC_TRX_CAPACITY = 2500
End If

                If BSC_TRX_CAPACITY = 0 Then BSC_TRX_CAPACITY = 512
                If BSC_TRX_CAPACITY = 512 Then BSC_TYPE = "BSC2i"
                If BSC_TRX_CAPACITY = 660 Then BSC_TYPE = "BSC3i"
                If BSC_TRX_CAPACITY = 2500 Then BSC_TYPE = "FlexiBSC"
                BSC_TCH_CAPACITY = BSC_TRX_CAPACITY * 8
Loop
在这里跳出循环后需要重新到文件头,进行另外的操作

Do Until EOF(hfile)
.....
Loop
4#
发表于 2010-10-21 07:01:02 | 只看该作者
再详细一点:
Do Until EOF(hfile)
If InStr(1, strLine, "HARDWARE SUPPORTED MAXIMUM TRX CAPACITY :" ...
huangyz_xy 发表于 2010-10-20 19:45

循环体中好像没有查找的语句或者移动的语句,这样的话应该始终在文件的打开位置吧?



您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-17 04:44 , Processed in 0.082639 second(s), 28 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表