在窗体中添加一个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分隔列.
比较大小就要写排序函数了,网上随便搜一下,很多的