VB排序算法我现在想把一组没有顺序的TXT文件从小到大排序,如下,以大头的数字去排序2,.‘后面省略内容3,.5,.2,.5,.8,.3,.现在想得到以下排序结果,从小到大2,.‘后面省略内容2,.3,.3,.5,.5,.8,.如何
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/27 17:15:58
![VB排序算法我现在想把一组没有顺序的TXT文件从小到大排序,如下,以大头的数字去排序2,.‘后面省略内容3,.5,.2,.5,.8,.3,.现在想得到以下排序结果,从小到大2,.‘后面省略内容2,.3,.3,.5,.5,.8,.如何](/uploads/image/z/7036559-71-9.jpg?t=VB%E6%8E%92%E5%BA%8F%E7%AE%97%E6%B3%95%E6%88%91%E7%8E%B0%E5%9C%A8%E6%83%B3%E6%8A%8A%E4%B8%80%E7%BB%84%E6%B2%A1%E6%9C%89%E9%A1%BA%E5%BA%8F%E7%9A%84TXT%E6%96%87%E4%BB%B6%E4%BB%8E%E5%B0%8F%E5%88%B0%E5%A4%A7%E6%8E%92%E5%BA%8F%2C%E5%A6%82%E4%B8%8B%2C%E4%BB%A5%E5%A4%A7%E5%A4%B4%E7%9A%84%E6%95%B0%E5%AD%97%E5%8E%BB%E6%8E%92%E5%BA%8F2%2C.%E2%80%98%E5%90%8E%E9%9D%A2%E7%9C%81%E7%95%A5%E5%86%85%E5%AE%B93%2C.5%2C.2%2C.5%2C.8%2C.3%2C.%E7%8E%B0%E5%9C%A8%E6%83%B3%E5%BE%97%E5%88%B0%E4%BB%A5%E4%B8%8B%E6%8E%92%E5%BA%8F%E7%BB%93%E6%9E%9C%2C%E4%BB%8E%E5%B0%8F%E5%88%B0%E5%A4%A72%2C.%E2%80%98%E5%90%8E%E9%9D%A2%E7%9C%81%E7%95%A5%E5%86%85%E5%AE%B92%2C.3%2C.3%2C.5%2C.5%2C.8%2C.%E5%A6%82%E4%BD%95)
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,
首位是排好序的.