如何從文本文件中刪除空白行？ vb.net？

Question

我有一個程序，我正在創建，當我去刪除空行這是我如何去做。

For Each i As ListViewItem In lvSongs.SelectedItems 
     lvSongs.Items.Remove(i) 
     CurrentSong = i.SubItems(4).Text 'This is the Songs Path 

     files = File.ReadAllText("songs.txt") 'The songs path's are in the txt 


     'I am using this as a list of lines i want to keep in 
     'the txt file. 
     Dim linesToKeep As New List(Of String) 

     For Each line As String In files 'Goes through lines 
      If Not line.Contains(CurrentSong) Then 'checks to see if line is Current song 
       linesToKeep.Add(line)    'Adds line if its not CurrentSong to the list 
      End If 
     Next 


     File.WriteAllLines("songs.txt", linesToKeep.ToArray()) 

但是當我去檢查的txt文件，我得到這個：

實例（但橫寫，每個字母作爲一個新行）

在文本文件我的朋友說：因爲我把行設置爲字符串而不是字符串（）。

感謝您的幫助！ 詢問更多的信息，如果我很困惑你...

Answer 1

問題是你正在使用ReadAllText API。這會返回String而不是String()，因此當您稍後迭代時，您會遍歷文件中的每個字符，而不是每行。爲了解決這個問題使用ReadAllLines API返回一個String()

files = File.ReadAllLines("songs.txt") 

注意我不能告訴如果files是隱式聲明的本地或外地。如果輸入的字段爲String，則需要將其類型更改爲String()。