Question

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

文件部分内容如下：
要求读取文件中那规则的两列数，其中第二列数比较大小，提取绝对值最大的一个。
SAP2000 v9.1.6 File: 16M222 N, m, C Units PAGE 1
5/29/11 22:55:10

T I M E H I S T O R Y D A T A

CASE B0.2
FUNCTION Link23-1: Link 23 R3

TIME FUNCTION
Link23-1
0.00000 0.00000
0.00100 0.00000
0.00200 0.00000
0.00300 0.00000
0.00400 0.00000
0.00500 0.00000
0.00600 0.00000
0.00700 0.00000
0.00800 0.00000
0.00900 0.00000
0.01000 0.00000
0.01100 0.00000
0.01200 0.00000
0.01300 0.00000
0.01400 0.00000
0.01500 0.00000
0.01600 -1.064E-06
0.01700 -1.143E-06
0.01800 -1.217E-06
0.01900 -1.286E-06
0.02000 -1.350E-06
0.02100 -1.409E-06
0.02200 -1.463E-06
0.02300 -1.512E-06
0.02400 -1.557E-06
0.02500 -1.598E-06
0.02600 -1.636E-06
0.02700 -1.670E-06

Answer 1

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

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

追问

我怎么看不懂啊，是.net？

Answer 2

关注