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文件中导入项目时，结果是，第一个i出现正确，但下一个会出现意外中断。它们出现为：

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个字符。

在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

VB.NET不必要的额外休息

2 个答案: