VB排序算法我现在想把一组没有顺序的TXT文件从小到大排序,如下,以大头的数字去排序2,.‘后面省略内容3,.5,.2,.5,.8,.3,.现在想得到以下排序结果,从小到大2,.‘后面省略内容2,.3,.3,.5,.5,.8,.如何
来源：学生作业帮助网 编辑：六六作业网 时间：2024/11/17 15:36:11
VB排序算法我现在想把一组没有顺序的TXT文件从小到大排序,如下,以大头的数字去排序2,.‘后面省略内容3,.5,.2,.5,.8,.3,.现在想得到以下排序结果,从小到大2,.‘后面省略内容2,.3,.3,.5,.5,.8,.如何
VB排序算法
我现在想把一组没有顺序的TXT文件从小到大排序,如下,以大头的数字去排序
2,.‘后面省略内容
3,.
5,.
2,.
5,.
8,.
3,.
现在想得到以下排序结果,从小到大
2,.‘后面省略内容
2,.
3,.
3,.
5,.
5,.
8,.
如何实现
VB排序算法我现在想把一组没有顺序的TXT文件从小到大排序,如下,以大头的数字去排序2,.‘后面省略内容3,.5,.2,.5,.8,.3,.现在想得到以下排序结果,从小到大2,.‘后面省略内容2,.3,.3,.5,.5,.8,.如何
2,3,5,15,68,55
13,5,6,87,2,8,98
55,145,4,621,54,31,
2,5,54,6345,66
8,123,54,64,12,5
4,5,46,5,12,5,5
6,1,2,54,1
1,2,45,41,23
5,1,56,31,45
我把TXT中的内容写成这样,应该是合乎你要求的吧?然后代码如下：
Option Explicit
Dim Arry() As String
Private Sub Command1_Click()
Dim i As Long, j As Long
Dim x As String, y As String
i = 1
ReDim Preserve Arry(i) As String
Open App.Path & "\111.txt" For Input As #1
While Not EOF(1)
Line Input #1, Arry(i)
i = i + 1
ReDim Preserve Arry(i) As String
Wend
ReDim Preserve Arry(i - 1) As String
Close #1
For i = 1 To UBound(Arry)
For j = 1 To UBound(Arry)
If j < UBound(Arry) Then
If Val(Arry(j)) > Val(Arry(j + 1)) Then
x = Arry(j)
y = Arry(j + 1)
Arry(j) = y
Arry(j + 1) = x
End If
End If
Next
Next
Open App.Path & "\222.txt" For Output As #1
For i = 1 To UBound(Arry)
Print #1, Arry(i)
Next i
Close #1
End Sub
经过上机测试,生成的222.TXT中的内容如下：
1,2,45,41,23
2,3,5,15,68,55
2,5,54,6345,66
4,5,46,5,12,5,5
5,1,56,31,45
6,1,2,54,1
8,123,54,64,12,5
13,5,6,87,2,8,98
55,145,4,621,54,31,
首位是排好序的.