Question

我有一个字符串数组，如“蓝色”，“绿色”，“红色”，我希望对它们进行排序，以便最长的字符串首先出现，最短的字符串。

目前我正在创建另一个数组，其中数组中每个字符串的长度位于相同的索引位置，并使用此数组作为键数组进行排序，如下所示，但我认为这可以优化为一行也许？

Dim colours() As string = {"blue", "green", "red"}
Dim colourslength() As Integer
For i As Integer = 0 To colours.Length - 1
 colourslength(i) = colours(i).Length
Next
Array.Sort(colourslength, colours)
Array.Reverse(colours)

编辑：刚刚意识到我在示例代码中将颜色定义为列表，它是我实际代码中的一个数组。

Answer 1

另一个Linq解决方案（警告，从C＃转换而来）

Dim Sorted = From p In colours Order By p.Length Descending Select p

Answer 2

我认为这是短路方式。使用linq。

Dim strs = New String() {"", "333", "22", "4444", "55555", "1"}
Dim sorted = strs.OrderBy(Function(x) x.Length).ThenBy(Function(x) x).ToArray()

修改

如果你想要一个反向命令只是去掉额外的方法调用，那就按照相反的顺序进行sortin

Dim strs = New String() {"", "333", "22", "4444", "55555", "1"}
Dim sorted = strs.OrderByDescending(Function(x) x.Length).ThenByDescending(Function(x) x).ToArray

干杯。

Answer 3

Dim colours = {"blue", "green", "red"}
Dim coloursSortedByLength = colours.OrderByDescending(Function(c) c.Length)

输出顺序为：绿色，蓝色，红色。

Answer 4

最简单的方法是将每个字符串与列表中的所有其他字符串进行比较：

Java中的

：

for(int i=0; i<list.length-1; i++){
    for(int j=i+1; j<list.length; j++){
        if(list[i].length() < list[j].length()){
            tmp = list[i];
            list[i] = list[j];
            list[j] = tmp;
        }
    }
}

如何按长度排序字符串数组

4 个答案: