Question

每个数组字符串表示文件夹中的文本文件。我希望根据文本文件包含的内容对数组进行排序。我该怎么做？

Answer 1

您可以将自定义Comparison传递给Array.Sort，所以只需在那里阅读文件：

Array.Sort(str, Function(a, b)
                    Dim aContents As String = IO.File.ReadAllText(a)
                    Dim bContents As String = IO.File.ReadAllText(b)

                    'Compare the contents and return -1 if a < b, 0 if a = b, or 1 if a > b.
                End Function)

如果效率是一个问题，您可能希望在Dictionary中缓存每个文件的内容或执行类似的操作。

此外，您可以使用LINQ，具体取决于您需要排序的文件中的确切内容：

Dim result = str.
    Select(Function(x) New With {.File = x, .Contents = IO.File.ReadAllText(x)}).
    OrderBy(Function(y) y.Contents)

......例如。

通过数组中的字符串排序？

1 个答案: