＋设为首页 ＋添加到收藏夹
谢谢！
Public data_array
Private Sub splict_line(xxx As String, j As Integer)
Dim k As Integer
Dim bb
bb = Split(xxx, ",")
For k = 0 To UBound(bb)
data_array(j, k) = bb(k)
Next
End Sub
Private Sub read_txtfile(fname As String)
Dim linestr As String
Dim i As Integer
Dim fso, ra, getline
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists(fname)) Then
Set ff = fso.OpenTextFile(fname, 1, 0)
ra = ff.ReadAll
getline = ff.Line - 1
ff.Close
sleep 1000
ReDim data_array(getline - 1, 10)
Set ff = fso.OpenTextFile("c:\data.txt", 1, 0)
For i = 0 To getline - 1
linestr = Trim(CStr(ff.ReadLine()))
Call splict_line(linestr, i)
Next i
ff.Close
End If
Set fso = Nothing
End Sub
Private Sub Command1_Click()
Call read_txtfile("c:\data.txt")
End Sub
Function 函数名(参数)As Long()
