文本一
1 1 11 1              
2 2 22 2
3 3 33 3
4 4 44 4
5 5 55 5
6 6 66 6
7 7 77 7
1 1 11 1
2 2 22 2
3 3 33 3
4 4 44 4
5 5 55 5
6 6 66 6
7 7 77
文本二
723:22:20      1    24.4
23:22:25      2    24.3
23:22:30      3    24.1
23:22:35      4    24.1
23:22:40      5    23.9


本人是每隔六行提取一行数据，且只提取第三个字符，[bo]我提取文本一时，程序正常运行，但是提取文本二时，显示下届超标[/bo]，请问我应该如何修改？

程序语言如下：
Private Sub Command1_Click()
Dim s As String
Dim flag As Integer
flag = 0
myfile1 = App.Path & "\" & "2.txt"
myfile2 = App.Path & "\" & "4.txt"
Open myfile1 For Input As #1
Open myfile2 For Output As #2
Do While Not EOF(1)
Line Input #1, s
If flag Mod 6 = 0 Then
Dim arr
While InStr(s, "  ")
  s = Replace(s, "  ", " ")
Wend
arr = Split(s, " ")
Print #2, arr(2)
End If
flag = flag + 1
Loop
Close #1
End Sub

[[it] 本帖最后由 菜鸟新上路 于 2008-9-17 13:32 编辑 [/it]]

标题出现错误 应该是下标越界

dim arr
这是数组吗？你有定义大小吗？确认arr = Split(s, " ")有这么多项吗？怎么不先检查一下这个变量的上届和下届？

请直接告诉怎么改，干吗问那么多，要不然怎么会是菜鸟新上路，不要耍大牌

呵，后生可畏。

建议你去学网上所谓的“黑客技术”，反正效果明显，而且等你精通了你也不晓得为什么。人的智力就是这么退化的。

[[it] 本帖最后由 菜鸟新上路 于 2008-9-17 13:33 编辑 [/it]]

因为告诉了你怎么改你还是不晓得为什么

我自己调试了一下 可以了 非常感谢大家

[[it] 本帖最后由 菜鸟新上路 于 2008-9-17 13:33 编辑 [/it]]