Question

vb中如何读取TXT文件中数据，并选取其中一定间隔的数据放入一数组中？？？急求！！！

RT，就是有一TXT文档，里面有4列数，行数很多，几万几十万。
现在要做的是用VB提取其中的数据，比如说每一千行的第一个数，或者是每一千行的第二个数，提取40次，并将这些数放入一个数组中，以便以后计算。
哪位大神帮帮我，小弟不胜感激
只有这点分了

Answer 1

Private Sub Command1_Click()
Dim a$, d&, k&, t&, c#()
'提取40次数放入数组c中
t = 40
ReDim c(t - 1)
'间隔行为每1000行
d = 1000
Open "data.txt" For Input As #1
a = Input(LOF(1), 1)
Close
b = Split(a, vbCrLf)
'提取一定间隔行的第二个数
k = 2
For i = 0 To t - 1
'假设每例数据用逗号分隔
c(i) = Split(b((i + 1) * d - 1), ",")(k - 1)
Next
Unload Me
End Sub

Answer 2

Dim d, e As Integer, c(50) As Integer

Private Sub Command1_Click()
d = 1
Label1.Caption = ""
On Error Resume Next
Open "E:\1.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, a
e = e + 1
If d * 1000 = e Then
d = d + 1
Label1.Caption = Label1.Caption & Mid(a, 1, 1) & vbCrLf
c(d) = Val(Mid(a, 1, 1))
End If
Loop
Close #1
End Sub

这是每一千行读取第一个数字 至于你说的提取 40次不明白就没做