vb.net保存列表框项目空行

时间:2015-11-12 13:21:22

标签: vb.net listbox savefiledialog

我想在使用savefiledialog

时将列表框项目保存到txt文件

这是我正在使用的代码,它正在运行,但它会在每个项目之间添加一条新线。而且我想在没有那些空行的情况下保存。如果有人可以提供帮助,谢谢!

我的代码:

            If ListBox1.Items.Count > 0 Then
        SaveFileDialog1.InitialDirectory = "C:/"
        SaveFileDialog1.Title = "YOUR RESULTS"
        SaveFileDialog1.FileName = Label4.Text
        SaveFileDialog1.Filter = ("text files (*.txt) | *.txt")

        SaveFileDialog1.ShowDialog()

        Dim w As New IO.StreamWriter(SaveFileDialog1.FileName)
        Dim i As Integer
        For i = 0 To ListBox1.Items.Count - 1
            w.WriteLine(ListBox1.Items(i).ToString)
        Next
        w.Close()
    Else
        MsgBox("There is nothing to save", MsgBoxStyle.Information)
    End If

1 个答案:

答案 0 :(得分:3)

要从字符串的开头删除空格,请使用默认的String.TrimStart()扩展方法,如下所示:

w.WriteLine(ListBox1.Items(i).ToString.TrimStart)

要从末尾删除空格,请使用默认的String.TrimEnd() 扩展方法,并从字符串的开头和结尾删除空格,使用String.Trim()

更新

我建议您使用StringBuilder对象,如下所示:

Dim sb As New StringBuilder

For Each lbItem As Object In ListBox1.Items
    sb.Append(lbItem.ToString)
Next

File.WriteAllText(SaveFileDialog1.FileName, sb.ToString, Encoding.Default)