关于for next 多重循环的问题
我写的一段语句是用来读一个TXT文件,文件里从第一行(包括第一行)每隔14行出现一个需要抓取的行,里面共有4行需要抓取;现在需要每抓取一行就写入一个文本框数组(共5个文本框数组,抓取的第一个数据写入text(0),抓取的第二个数据写入text(1)......如果只抓取到4个的话,则第5个文本框为空),现在问题是,我写的语句运行结果是:抓取的第一个数据把5个文本框数组都填满后,再抓取第二个数据,再把5个文本框数组都填满,然后再抓取第三个数据......,请问如何能达到我预想的效果呢?Dim xRow, yLine, i, j, z, b As Long, Temp As String, Arr
For z = 0 To 3
For b = 0 To 4
xRow = z * 14 + 1
yLine = 1
Me.AutoRedraw = True: j = 1
Open "c:\1.dat" For Input As #1 '文件路径
For i = 1 To xRow
Input #1, Temp
Next i
Close #1
Arr = Split(Temp, Chr(9))
Text1(b).Text = Arr(yLine - 1)
Next b
Next z