编辑文本文件并保存编辑后的文本文件

Question

好的，所以我可以分解我试图做的事情的最简单的方法是，我有一个文本文件，上面有5个单词(将来可能会有更多(，一行有3个单词，一行只有2个单词，所有单词都用空格分隔

我正试图将文本文件中的单词加载到列表框中，但列表框中每行只需要一个单词。

我没有任何示例代码，因为我一辈子都无法弄清楚这一点。

文本文件看起来像：

account1 account2 account3
account4 account5

我希望它看起来像(每行一个单词(：

account1 
account2 
account3 
account4 
account

Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim lines As String() = IO.File.ReadAllLines("C:Scrapetextfile.txt")             ListBox1.Items.AddRange(lines)         
Dim fw As New IO.StreamWriter("C:Scrapetextfile.txt")         
For Each itm As Object In Me.ListBox1.Items             
fw.WriteLine(itm.ToString)         
Next         
fw.Close()
fw.Dispose()
fw = Nothing
For Each line In lines             
String.Split()         
Next     
End Sub

非常感谢任何帮助，我已经尝试了大约4个小时来解决这个问题："(

下面是感兴趣的的最终工作代码

Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
ListBox1.Items.AddRange(IO.File.ReadAllText("C:Scrapetextfile.txt").Replace(vbLf, "").Replace(" ", vbCr).Split(vbCr, options:=StringSplitOptions.RemoveEmptyEntries))
' Read
'TextBox1.Multiline = True
ListBox1.Text = IO.File.ReadAllText("C:Scrapetextfile.txt")

'Write
'IO.File.WriteAllText("C:Scrapetextfile.txt", ListBox1.Text)
Dim SW As IO.StreamWriter = IO.File.CreateText("C:Scrapetextfile.txt")
For Each S As String In ListBox1.Items
SW.WriteLine(S)
Next
SW.Close()
End Sub

Answer 1

ListBox1.Items.AddRange(IO.File.ReadAllText("C:File.txt").Replace(vbLf, "").Replace(" ", vbCr).Split(vbCr, options:=StringSplitOptions.RemoveEmptyEntries))
' Read
TextBox1.Multiline = True
TextBox1.Text = IO.File.ReadAllText("C:File.txt")

'Write
IO.File.WriteAllText("C:File.txt", TextBox1.Text)