Question

怎样用vb读取文件数据txt?

首先我用txt文件存了一些数据,应该是
i j data
0 0 4345
0 1 4598
0 2 6578
... ...
这样的形式
我想知道怎样编程通过读取i,j,来提取data数据
就是编什么程序,当我在语句中输入两个值,计算机可以在txt上的i,j 位置处找到对应的值,然后将后面的data值读入程序
不知道能不能听明白

Answer 1

建议你按以下规则改写数据文件，提高效率
4345, 4598 , 6578 '第一行，每行三个，单引号后面的字不要
3434,45654,123123'第二行
…………
读取方法：
dim a,str1 as string ,dt() as double,k as integer
k=0
redim dt(2,k)'k一定在后面
open "c:\1.txt" for input as #1
do while(not eof(1))
line input #1,str1
a=split(str1,",")
'处理数组a(a的下标为0 到 ubound(a))或者把它存到其他数组中
if k>ubound(a,2) then redim Preserve a(2,k)
for i= 0 to k
a(i,k)=a(i)
next i
k=k+1
loop
close

Answer 2

比较简单的处理方法,就是
strTmp=Cstr(i) & " " & CStr(j) & " " '注意,这里的空格,如果你的文件中用的是TAB符的话,也要换成一样的
GET #FileNum,,strData '用GET语句和循环控制读取文件行,并存到变量strData
if instr(strData,strTmp)=1 then
strData=replace(strData,strTmp)
'然后退出循环语句
end if

msgbox strData 'strData 中存放的就是你要的数据

Answer 3

Private Sub Command1_Click()
Dim a() As String, str(10000) As String
x = Text1.Text
y = Text2.Text
Label1.Caption = ""
Open "c:\1.txt" For Input As #1
For i = 0 To 10000
If Not EOF(1) Then
Input #1, str(i)
a = Split(str(i), " ")
If a(0) = x And a(1) = y Then s = a(2)
Else
Exit For
End If
Next
Close #1
Label1.Caption = "Data=" & s
End Sub