怎样用VB读取TXT中的数据并赋予一维数组

Answer 1

在窗体中添加一个RichTextBox控件,然后添加下述代码即可
Public Function ReadTextFile(sFile As String, ByRef parrD() As String) As Long
On Error GoTo errHandler

Call RichTextBox1.LoadFile(sFile, rtfText)
ReadTextFile = SW2Arr(RichTextBox1.Text, parrD)
End Function
'将文本数据，以回车换行符为分隔符, 赋给1维数组
Public Function SW2Arr(sSW As String, ByRef parrD() As String) As Long
Dim arrD() As String
Dim i As Long
Dim nPassCnt As Long
Dim nPos As Long

arrD = Split(sSW, vbCrLf)
If UBound(arrD) >= 0 Then
ReDim parrD(0 To UBound(arrD))
nPassCnt = 0
For i = 0 To UBound(arrD)
If Len(Trim(arrD(i))) > 1 Then
nPos = InStr(1, arrD(i), "//")
If nPos > 0 Then
arrD(i) = Replace(Trim(Left(arrD(i), nPos - 1)), vbTab, "")
End If

If Trim(arrD(i)) <> "" Then
parrD(i) = arrD(i)
nPassCnt = nPassCnt + 1
End If
Else
' If Trim(arrD(i)) <> vbLf Then
' parrD(i) = arrD(i)
' nPassCnt = nPassCnt + 1
' End If
End If
Next
If UBound(arrD) <> nPassCnt - 1 Then ReDim Preserve parrD(0 To nPassCnt - 1)
SW2Arr = 1
End If
End Function

追问

怎样读取TXT中的一列数据，并比较它们的大小，每隔20个数输出一个最大值

追答

用SPLIT分隔列.
比较大小就要写排序函数了,网上随便搜一下,很多的

Answer 2

打开文件 open ...
读取文件 input ...
赋给数组循环赋给数组 for ... 或 while ...
也可以考虑用strconv()函数赋给一个动态数组.