[原创]数组按双列条件排序

zlg258369

正在做批打，需要双列条件排序，在网上没找到，自己写了一个。有需要的自己看吧

2. Function Sort(ByVal Data(,) As Double, ByVal List1 As Integer, ByVal Way1 As Integer, ByVal List2 As Integer, ByVal Way2 As Integer) As Object
4. 'list1为主排序列，way1为主列排序方式（0为升序，非0为降序）；list2为次排序列，way2为次列排序方式（0为升序，非0为降序）
6. Dim i As Integer
7. Dim j As Integer
9. Dim temp As Double
11. Dim ind As Integer
13. Dim index() As Integer
15. Dim zuobiao() As Double
16. Dim list(,) As Double
18. ReDim index(UBound(Data, 1))
20. ReDim zuobiao(UBound(Data, 1))
22. ReDim list(UBound(Data, 1), UBound(Data, 2))
24. MsgBox(UBound(Data, 1))
26. For i = 0 To UBound(Data, 1) - 1
28. index(i) = i
30. zuobiao(i) = Data(i, List1 - 1)
32. Next
34. '主列排序
35. i = 0
37. Do While i < UBound(Data, 1) - 1
39. For j = i + 1 To UBound(Data, 1) - 1
41. If Way1 = 0 Then
43. If zuobiao(i) > zuobiao(j) Then
45. temp = zuobiao(j)
46. zuobiao(j) = zuobiao(i)
47. zuobiao(i) = temp
49. ind = index(j)
50. index(j) = index(i)
51. index(i) = ind
53. End If
55. Else
57. If zuobiao(i) < zuobiao(j) Then
59. temp = zuobiao(j)
60. zuobiao(j) = zuobiao(i)
61. zuobiao(i) = temp
63. ind = index(j)
64. index(j) = index(i)
65. index(i) = ind
67. End If
69. End If
71. Next
73. i += 1
75. Loop
77. '次列排序
78. For i = 0 To UBound(Data, 1) - 1
80. list(i, 0) = Data(index(i), 0)
81. list(i, 1) = Data(index(i), 1)
82. list(i, 2) = Data(index(i), 2)
83. list(i, 3) = Data(index(i), 3)
85. index(i) = i
87. zuobiao(i) = list(i, List2 - 1)
89. Next
91. i = 0
93. Dim kg As Boolean = True
95. Do While i < UBound(Data, 1) - 1
97. If list(i, List1 - 1) = list(i + 1, List1 - 1) And kg = True Then
99. j = i
100. kg = False
102. ElseIf list(i, List1 - 1) <> list(i + 1, List1 - 1) And kg = False Then
104. Do While j < i
106. For n As Integer = j + 1 To i
108. If Way2 = 0 Then
110. If zuobiao(j) > zuobiao(n) Then
112. temp = zuobiao(j)
113. zuobiao(j) = zuobiao(n)
114. zuobiao(n) = temp
116. ind = index(j)
117. index(j) = index(n)
118. index(n) = ind
120. End If
122. Else
124. If zuobiao(j) < zuobiao(n) Then
126. temp = zuobiao(j)
127. zuobiao(j) = zuobiao(n)
128. zuobiao(n) = temp
130. ind = index(j)
131. index(j) = index(n)
132. index(n) = ind
134. End If
136. End If
138. Next
139. j += 1
140. Loop
142. kg = True
144. End If
146. i += 1
148. Loop
150. For i = 0 To UBound(Data, 1) - 1
152. Data(i, 0) = list(index(i), 0)
153. Data(i, 1) = list(index(i), 1)
154. Data(i, 2) = list(index(i), 2)
155. Data(i, 3) = list(index(i), 3)
157. Next
159. Sort = Data
161. End Function

Function Sort(ByVal Data(,) As Double, ByVal List1 As Integer, ByVal Way1 As Integer, ByVal List2 As Integer, ByVal Way2 As Integer) As Object 'list1为主排序列，way1为主列排序方式（0为升序，非0为降序）；list2为次排序列，way2为次列排序方式（0为升序，非0为降序） Dim i As Integer Dim j As Integer Dim temp As Double Dim ind As Integer Dim index() As Integer Dim zuobiao() As Double Dim list(,) As Double ReDim index(UBound(Data, 1)) ReDim zuobiao(UBound(Data, 1)) ReDim list(UBound(Data, 1), UBound(Data, 2)) MsgBox(UBound(Data, 1)) For i = 0 To UBound(Data, 1) - 1 index(i) = i zuobiao(i) = Data(i, List1 - 1) Next '主列排序 i = 0 Do While i < UBound(Data, 1) - 1 For j = i + 1 To UBound(Data, 1) - 1 If Way1 = 0 Then If zuobiao(i) > zuobiao(j) Then temp = zuobiao(j) zuobiao(j) = zuobiao(i) zuobiao(i) = temp ind = index(j) index(j) = index(i) index(i) = ind End If Else If zuobiao(i) < zuobiao(j) Then temp = zuobiao(j) zuobiao(j) = zuobiao(i) zuobiao(i) = temp ind = index(j) index(j) = index(i) index(i) = ind End If End If Next i += 1 Loop '次列排序 For i = 0 To UBound(Data, 1) - 1 list(i, 0) = Data(index(i), 0) list(i, 1) = Data(index(i), 1) list(i, 2) = Data(index(i), 2) list(i, 3) = Data(index(i), 3) index(i) = i zuobiao(i) = list(i, List2 - 1) Next i = 0 Dim kg As Boolean = True Do While i < UBound(Data, 1) - 1 If list(i, List1 - 1) = list(i + 1, List1 - 1) And kg = True Then j = i kg = False ElseIf list(i, List1 - 1) <> list(i + 1, List1 - 1) And kg = False Then Do While j < i For n As Integer = j + 1 To i If Way2 = 0 Then If zuobiao(j) > zuobiao(n) Then temp = zuobiao(j) zuobiao(j) = zuobiao(n) zuobiao(n) = temp ind = index(j) index(j) = index(n) index(n) = ind End If Else If zuobiao(j) < zuobiao(n) Then temp = zuobiao(j) zuobiao(j) = zuobiao(n) zuobiao(n) = temp ind = index(j) index(j) = index(n) index(n) = ind End If End If Next j += 1 Loop kg = True End If i += 1 Loop For i = 0 To UBound(Data, 1) - 1 Data(i, 0) = list(index(i), 0) Data(i, 1) = list(index(i), 1) Data(i, 2) = list(index(i), 2) Data(i, 3) = list(index(i), 3) Next Sort = Data End Function

雪山飞狐_lzh

双列条件排序?
可以考虑用数组的数组，然后对其中的某一项排序
简单的例子：

2.         Dim arr As Double()() = New Double()() {New Double() {5, 3, 4}, New Double() {3, 2, 1}}
3.         Array.Sort(arr(0))
4.         Array.Sort(arr(1))
5.         Array.Reverse(arr(0))

        Dim arr As Double()() = New Double()() {New Double() {5, 3, 4}, New Double() {3, 2, 1}}         Array.Sort(arr(0))         Array.Sort(arr(1))         Array.Reverse(arr(0))

另外way1/2应考虑使用boolean型

zlg258369

学习一下

mkhsj929

用LINQ很简单

例：

List<oint3d> Pts=new List<oint3d>();
var ptstmp = from pt in Pts orderby pt.X, pt.Y select pt; //按x为主，y为辅的升序排列

Pts = ptstmp.ToList<oint3d>();

羊羊羊

用LINQ很简单

例：

List<Point3d> Pts=new List<Point3d>();
var ptstmp = from pt in Pts orderby pt.X, pt.Y select pt; //按x为主，y为辅的升序排列

Pts = ptstmp.ToList<Point3d>();

这段代码能否转化为vb.net，急用多谢!!!