VB读取txt数据中的一列并存入数组

部分内容？这，如果剩下的数据结构没有变化的话，那么：

Function GetDataFromTxt(Byval txt As String,Arr() As Variant) As Variant
Dim Fso
Dim Data
Dim Max,Tmp
Set Fso=CreateObject("Scripting.FileSystemObject")
Set Data=Fso.OpenTextFile(txt,1)
With Data
For i=9To 0 Step -1: .SkipLine :Next
Do While Not .AtEndOfLine
Tmp=Split(LTrim(.ReadLine)," ",2)
i=i+1:Redim Preserve Arr(i)
Arr(i)=Tmp(0):Tmp(1)=Abs(CDbl(Tmp(1)))
If Tmp(1)>Max Then Max=Tmp(1)
Loop
.Close
End With
GetDataFromTxt=Max
Set Data=Nothing
Set Fso=Nothing
End Function

Dim Arr()
Msgbox "Max is " & GetDataFromTxt("新建 文本文档.txt",Arr)
For Each Item In Arr
Msgbox Item
Next

关注