Lisbox items save to text file with "," seprarate

Question

Hy！如何将列表框项目保存到带有"，"分隔符的文本文件中？

我的代码：

 Using sfd As SaveFileDialog = New SaveFileDialog
        With sfd
            .FileName = String.Empty
            .Filter = "Text|*.txt"
            .InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)
        End With
        If sfd.ShowDialog = DialogResult.OK Then
            Dim logint() As String = Login.Text.Split({Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries)
            Dim passt() As String = Pass.Text.Split({Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries)
            Dim contents As String = String.Empty
            For x As Integer = 0 To logint.Length - 1
                contents &= String.Format("{1},{2}{0}", Environment.NewLine, logint(x), passt(x))
            Next
            If contents.Length > 0 Then
                contents = contents.Remove(contents.Length - 1)
            End If
            My.Computer.FileSystem.WriteAllText(sfd.FileName, contents, False)
        End If
    End Using

如果我单击列表框项目，它会起作用，但如果我不单击，则项目保存将不起作用。

Answer 1

试试这个：

If sfd.ShowDialog = DialogResult.OK Then
    Dim contents As String = String.Empty '***
    Dim c As Integer = Login.Items.Count '***
    Dim y As Integer '***
    For y = 0 To c - 1 '***
        Dim logint() As String = Login.Items.Item(y).Split({Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries) '***
        Dim passt() As String = Pass.Items.Item(y).Split({Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries) '***
        For x As Integer = 0 To logint.Length - 1
            contents &= String.Format("{1},{2}{0}", Environment.NewLine, logint(x), passt(x))
        Next
        If contents.Length > 0 Then
            contents = contents.Remove(contents.Length - 1)
        End If
    Next '***
        My.Computer.FileSystem.WriteAllText(sfd.FileName, contents, False)
End If

更改用'*** 标记

Answer 2

您可以在一行中使用一点LINQ：

IO.File.WriteAllLines("file path here",
                      Enumerable.Range(0, Login.Items.Count).
                                 Select(Function(n) String.Format("{0},{1}",
                                                                  Login.Items(n),
                                                                  Pass.Items(n))))