60'求解比较简单的数据问题，请帮忙！

Question

在本地文件夹中有一个文本文件，其中有N行N列的数据，要将其读出来，并满足以下条件：
1)获得读取数据的行数，并将其赋给一个变量，比如i；
2)全部的数据读取到一个数组变量中，比如string（）；
3)能实现以下循环功能“
   for i=o to i-1
   '接着是将string（）中一行（是每行的数据！）数据赋给另外一个变量DATA，整个循环结束后，一共赋予了DATA i次
......
next

Answer 1

你这个for应该写成for i=0 to n*n吧
否则你这个for一次也不会执行呀

Answer 2

'假设你需要读的文本名称是"c:\123.txt"。
Private Sub Form_Load()
Dim bytData() As Byte
Dim strSplit() As String
Dim strData As String
Dim lngNum As Long
Dim i As Long
    lngNum = FreeFile
    Open "c:\123.txt" For Binary As #lngNum
    Erase bytData
    ReDim bytData(LOF(lngNum) - 1)
    Get #lngNum, , bytData
    Close #lngNum
    
    
    Erase strSplit
    '如果是Unicode用这句
    strSplit = Split(bytData)
    '如果是Ascii用这句
    strSplit = Split(StrConv(bytData, vbUnicode), vbCrLf)
    For i = 0 To UBound(strSplit)
        strData = strSplit(i)
        Debug.Print strData
    Next i
End Sub

Answer 3

Private Sub Command2_Click()
Dim s As String, ls_Content() As String
Dim I As LongOpen "f:\abc.txt" For Input As #1
s = StrConv(InputB(LOF(1), #1), vbUnicode) '将文件内容附给变量 S
Close #1
ls_Content = Split(s, vbCrLf) '付值到ls_Content数组
MsgBox "有" & UBound(ls_Content) & "行"
For I = 0 To UBound(ls_Content)
    Debug.Print ls_Content(I)
Next I
End Sub