各位高手来看看》》》》


'usetable.txt文件像这样：
'0001,2,18:20:01,男
'0002,3,17:27:12,女
'.....
'.....
’最多不会超过30行
现在想把这个usetable.txt文件读到定义的数组usetable中，当usetalbe.txt文件中有一行以上时运行正常，但当没有行时即txt为空时，会出错：
UseTable(j, k) = strArray(j)(k - 1)中数组跃界。
请各位给我看看哪有问题，谢谢！Public UseTable(1 To 30, 1 To 4) As StringPublic Sub updateUseTable()
'读txt中的usetable,并将他的内容从新存到 usetable
Dim str(1 To 30) As String
Dim strArray(1 To 30) As Variant
Dim i  As Integer
i = 1
Open "e:\vbproject\usetable.txt" For Input As #1
  Do While Not EOF(1)
   Line Input #1, str(i)
    i = i + 1
  Loop
Close #1
'将usetable.txt中每一行读到str（i)中,现在usetable.txt中有1....i-1 行members = i - 1
Debug.Print ("members that is rows :" + CStr(members))
'记录usetable.txt 有多少行，即有多少人在洗澡
'当没有行时，它居然打印出是1行（错了，应为0行）
Dim j As Integer
If (members <> 0) Then
 
 For j = 1 To i - 1
 '*****************************
 'atention!
    strArray(j) = Split(str(j), ",")
    Debug.Print ("str(" + CStr(j) + ") is:" + str(j))    '我在这把usetable中读到的每一行打印出
   
    Dim k As Integer
     For k = 1 To 4
        UseTable(j, k) = strArray(j)(k - 1)
     Next k
   
    
  Next j
 End If
 
For j = i To 30
   For k = 1 To 4
      UseTable(j, k) = ""
   Next k
Next j'将从usetable.txt中读出的内容（按行）放到mainform的usetalbe中
End Sub