vb中如何读取txt文档中指定位置数据?
作者:Darph 日期:2008-09-08
问题补充:我要处理的数据如下:
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
评论: 0 | 引用: 0 | 查看次数: -
发表评论
上一篇
下一篇
















文章来自:
Tags: