vb.net - VB.NET 不需要的额外中断

Question

我有下面的代码；

Dim orderlist As List(Of String) = New List(Of String)
For i As Integer = 0 To newacctlist.Items.Count - 1
    orderlist.Add("This order will be placed on" & newacctlist.Items(i))
Next (i)
Textbox1.Lines = orderlist.ToArray

结果，当我从 txt 文件导入项目时，第一个我出来是正确的，但下一个得到了不必要的中断。他们出来：

This order will be placed on
Monday

代替

This order will be placed on Monday

从txt文件导入

Dim a As String = My.Computer.FileSystem.ReadAllText(path & "\neworder.txt")
Dim b As String() = a.Split(vbNewLine)
newacctlist.Items.AddRange(b)

我该如何解决这个错误？

提前致谢

Answer 1

修剪它，

orderlist.Add("This order will be placed on" & newacctlist.Items(i).Trim  )
---------------------------------------------------------------------^

Answer 2

我唯一能想到的是你newline的newacctlist-items 中有一个 -character。

在行上放置一个断点orederlist.Add()并检查这些值。

另请查看您在其中创建newacctlist. 可能你的罪魁祸首在那里。

** 编辑 **

您在 vbNewLine 上的拆分将其包含在字符串中。

Dim a As String = My.Computer.FileSystem.ReadAllText(path & "\neworder.txt")
Dim b As String() = a.Split(vbNewLine)
For Each s As String In b
    Console.WriteLine(s.Replace(vbCr, "").Replace(vbLf, ""))
Next