如何在VB.net中添加逗号，并在每7个条目后转到新行？

那么，就这么定了。我有一个程序可以读取.CSV文件或记事本文件

在.CSV文件中，电子表格上一行有7个项目，然后转到下一行，再转到7个项目。总共20行

或者，它将在记事本文件中读取

xxxx,xxxx,xxxx,xxxx,xxxx,xxxx,xxx
xxxx,xxxx,xxxx,xxxx,xxxx,xxxx,xxx

然后就这样下去

它将被读取到我的程序的列表框中，从那里你可以添加或删除记录。它还将在列表框中对它们进行垂直排序，并删除逗号

储蓄的问题来了。以下是我的“保存文件”对话框的代码：

    Private Sub SaveButton_Click(sender As Object, e As EventArgs) Handles SaveButton.Click
    SaveFileDialog1.Filter = "All Files|*.*|Data Files|*.csv;*.txt;*"
    Dim SaveFile As String
    Dim ItemsSaved As Integer
    SaveFileDialog1.ShowDialog()
    SaveFile = SaveFileDialog1.FileName
    ItemsSaved = 0
    If SaveFile <> "" Then
        Dim sw As IO.StreamWriter = IO.File.CreateText(SaveFile)
        ItemsSaved = DataAssignmentBox.Items.Count
        Dim i As Integer
        For i = 0 To DataAssignmentBox.Items.Count - 1
            Dim items As New System.Text.StringBuilder()
            For Each currentItem As Object In Me.DataAssignmentBox.Items
                items.Append(currentItem.ToString())
                items.Append(",")
            Next
            sw.WriteLine(DataAssignmentBox.Items.Item(i))
        Next
        sw.Close()
    End If
End Sub

依此类推所有项目。但是，我想让它回到逗号分隔的原始形式，7到一行，然后是新行，我无法得到附加到工作中，也不知道如何开始下一行。我搞不懂VbCr。我不知道我哪里出了问题，这让我发疯。任何帮助都将不胜感激。谢谢

这样行吗

Dim items As String
For i = 0 To DataAssignmentBox.Items.Count - 1
'Your loop
    For Each currentItem As Object In Me.DataAssignmentBox.Items

        items = items + (currentItem.ToString() + ",")
    Next
    sw.WriteLine(items)
Next

sw.WriteLine（String.Format（“{0}，{1}，{2}，{3}…”），DataAssignmentBox.Items（0），DataAssignmentBox.Items（1），DataAssignmentBox.Items（2）…。

。这比您想象的要困难得多，而且已经有很多工作可以投入到您的代码中。

Dim items As String
For i = 0 To DataAssignmentBox.Items.Count - 1
'Your loop
    For Each currentItem As Object In Me.DataAssignmentBox.Items

        items = items + (currentItem.ToString() + ",")
    Next
    sw.WriteLine(items)
Next