如何在 VB.net 中删除 .Sort 之前的引号

Question

我正在尝试按字母顺序对项目进行排序并将它们排序到一个新的文本框中。除了尝试对引号进行例外处理，因为它们出现在字母之前，我已经完成了所有操作。到目前为止我有

Dim holder as List(Of Strings) = New List(Of String)'holds my values Dim input as List(Of RichTextBox) = New List(Of RichTextBox)'where text is input

For i As Integer = 0 to input.Count - 1
   holder.Add(input.ElementAt(i))
Next
  holder.Sort()
For i As Integer = 0 to holder.Count - 1
   txtResult.Text = txtResult.Text + vbCrLf + holder(i)
Next

如何忽略可能输入的引号？我还需要将信息输出到已排序的文本框中，但要在已排序的字符串中加上引号。

Answer 1

只需实现您自己的 comparer 并使用采用自定义比较器的 List.Sort() 方法重载。

一个简短的例子：

Public NotInheritable Class MyComparer : Implements IComparer(Of String)

    Public Function Compare(ByVal a As String, ByVal b As String) As Integer _
    Implements IComparer(Of String).Compare

        a = a.Trim({"'"c, ControlChars.Quote})
        b = b.Trim({"'"c, ControlChars.Quote})

        Return New CaseInsensitiveComparer().Compare(a, b)

    End Function

End Class

用法：

Dim list As New List(Of String) From {"'b'", "''''a'", """d""", "c"}
list.Sort(New MyComparer)