我想在使用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
答案 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)