UC知道VB编程中文件的读取，我有一个字符串和数组混合的文件，只要读取其中的一部分，怎么解决？求助！！！
来源：百度知道 编辑：UC知道 时间：2024/05/27 00:18:27
文件路径为"D:\data.txt",内容如下：
ZCZC
USCI10 BFYG 141200
TTAA 14111 57461 99997 11816 00000 92759 07223 02005 85450
03811 06004 70033 03613 23512 50568 12990 26019 40735 23974
26524 30938 39981 27528 25060 47579 27044 20205 55777 27554
15385 645// 28557 10629 701// 27526 88106 705// 27529 77167
27563 61616 00938 62626 92500 30000 01093 85501 05006 01262
70500 30002 01586 50002 50062 02035 40003 00121 02311 30003
40199 02630 25002 80269 02815 20002 20380 03038 15000 30550
03313 10502 20667 03620 63636 88502 40656 03579 64646 77001
10488 03218=
NNNN
如果我想读取第5行第2组和第7行第5组，怎么读取？
请教高手！
ZCZC
USCI10 BFYG 141200
TTAA 14111 57461 99997 11816 00000 92759 07223 02005 85450
03811 06004 70033 03613 23512 50568 12990 26019 40735 23974
26524 30938 39981 27528 25060 47579 27044 20205 55777 27554
15385 645// 28557 10629 701// 27526 88106 705// 27529 77167
27563 61616 00938 62626 92500 30000 01093 85501 05006 01262
70500 30002 01586 50002 50062 02035 40003 00121 02311 30003
40199 02630 25002 80269 02815 20002 20380 03038 15000 30550
03313 10502 20667 03620 63636 88502 40656 03579 64646 77001
10488 03218=
NNNN
如果我想读取第5行第2组和第7行第5组，怎么读取？
请教高手！
总体思路是:每次读入一行数据,循环至规定行,然后用Split()取得各列的数据付值给数组,从而得到想要的值.
Private Function Getdate(IntRow As Integer, IntCol As Integer)
Dim str As String
Dim Str1() As String
Dim I As Integer
Open "d:\data.txt" For Input As #1
'循环至想要的行
For I = 1 To IntRow
Line Input #1, str 'str得到规定行的数据
Next
'使用SPLIT()函数取得各列的数据
Str1 = Split(str, " ") '你给的数据是用空格作为分割符
Getdate = Str1(IntCol - 1) '由于数组元素是从0开始记数,因此用intcol-1得到想要的数据
Close #1
End Function
调用:text1.text=getdate(5,2)
作为思路,该函数没有进行容错处理,你可根据实际情况自己完善.