0

以下のコードがあります。

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)

このエラーを修正するにはどうすればよいですか?

前もって感謝します

4

2 に答える 2