vb中如何读取txt文档中指定位置数据?





  
比如我有一个文本文档,其中包含m行n列的数据,我想从中提取第i行j列的哪个数据,有没有什么简单的方法可以实现?
问题补充:我要处理的数据如下:
5016 1991 1 78 96 52 74 65 75 25...
5016 1991 2 54 86 75 95 35 15 87...
.
.
.
5017 1992 1 32 98 65 90 74 62 34...
数据量很大,能不能直接去读,而不是先把数据全部读入然后查询,直接读成数据就可以?

建一个Command1。我默认路径D:\A.Txt,请自己修改。
代码如下。
=============
Private Sub Command1_Click()
Dim m As Integer, n As Integer, i As Integer, s As String
m = Val(InputBox("请输入定位行"))
n = Val(InputBox("请输入定位列"))
Open "d:\a.txt" For Input As 1
For i = 1 To m
Line Input #1, s
Next
Line Input #1, s
MsgBox Mid(s, n, 1)
Close
End Sub
  





收藏到:添加到QQ书签 百度收藏 添加到鲜果 新浪ViVi 365Key网摘 天极网摘 我摘 和讯网摘 yahoo 收藏到收客网 Digbuzz我挖网 添加到饭否 挖客 添加到google

文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志:
评论: 0 | 引用: 0 | 查看次数: -
发表评论
昵 称:
密 码: 游客发言不需要密码.
内 容:
验证码: 验证码
选 项:
虽然发表评论不用注册,但是为了保护您的发言权,建议您注册帐号.