Visual Basic 添加查询以写入所有行

Question

我正在将三个文本文件合并为一个文本文件，在最后一个文本文件中，它需要按州的字母顺序排序。如何让我的查询与 writealltext 一起使用？我的代码如下：

 Private Sub generatebtn_Click(sender As Object, e As EventArgs) Handles generatebtn.Click
        Dim sen = IO.File.ReadLines("C:\temp\Senate113.txt").ToList()
        sen.AddRange(IO.File.ReadLines("C:\temp\RetiredSen.txt"))
        sen.AddRange(IO.File.ReadLines("C:\temp\NewSen.txt"))

        Dim query = From line In sen
                    Let state = Split(","c)(1)
                    Let name = Split(","c)(0)
                    Let party = Split(","c)(2)
                    Order By state Ascending
                    Select name, state, party

        IO.File.WriteAllLines("Senate114.txt", sen)

    End Sub
End Class

Note：此问题总结整理于:Visual Basic Add query to write all lines

Answer 1

我正在将三个文本文件合并为一个文本文件，在最后一个文本文件中，它需要按州的字母顺序排序

以下代码对您有帮助吗？

File.WriteAllLines("Senate114.txt", sen.Distinct().OrderBy(Function(x) x.Split(","c)(1)))  

如果我有任何误解，请告诉我。

---

如果答案是正确的，请点击“接受答案”并点赞。 如果您对此答案还有其他疑问，请点击“评论”。

注意：如果您想接收相关电子邮件，请按照我们的文档中的步骤启用电子邮件通知 此线程的通知。