关于查找txt文件匹配行后再读取几行数据的问题，求高手解答！
我正在设计一个查询系统，就是先输入id，然后即可查询出此id的基本信息。
文本如下
1234
0
10.5
0.842
2011/6/14
20分钟
1235
10.5
22.5
0.842
2011/6/14
25分钟
1236
22.5
41
0.842
2011/6/14
1小时
1237
41
65.5
0.842
2011/6/15
4小时
文本中的1234,1235,1236....就是需要索引的id号，请问如何编写程序，才能使得我在text1(0).text中输入“1234”时
点击“查询”按钮，可以把txt文本“1234”所在行的后5行数据写入text1(1)到(5)中去？
[解决办法]
文件读取部分可参照以前的帖子
假设你把文本已经放在一个字符串strContent中了
------
dim arr() as string
dim i as long,j as long
arr=split(strContent,vbcrlf)
j=0
for i= 0 to ubound(arr)
if (j=5 and trim(arr(i)) =trim( text1(0).text))
for j = i to i+5
text1(j-i+1).text=arr(j)
next
exit sub
endif
j=j+1
next
