我想知道是否有人能夠提供幫助。我有一個帶有多行格式化文本的 m3u 檔案。
#EXTM3U
#RADIOBROWSERUUID:963194ef-0601-11e8-ae97-52543be04c81
#EXTINF:1,80s80s Christmas
http://streams.80s80s.de/christmas/mp3-192/streams.80s80s.de/
#RADIOBROWSERUUID:9638cfa5-0601-11e8-ae97-52543be04c81
#EXTINF:1,181.FM - Christmas Kountry
http://www.181.fm/stream/pls/181-xkkountry.pls
雖然我已經設法將資料提取為我需要的格式……但我留下了多個空行。我用來提取資料的示例代碼是...
If line.StartsWith("#EXTM3U") Then 'Remove
lines(i) = ""
End If
If line.StartsWith("#RADIOBROWSERUUID:") Then 'Remove
lines(i) = ""
End If
If line.StartsWith("#EXTINF:1,") Then 'Add # at beginning of line
lines(i) = line.Replace("#EXTINF:1,", "#")
End If
然后讓我留下以下...
#80s80s Christmas
@http://streams.80s80s.de/christmas/mp3-192/streams.80s80s.de/
#181.FM - Christmas Kountry
@http://www.181.fm/stream/pls/181-xkkountry.pls
我似乎無法洗掉空行/空白行。我已經使用過谷歌以及這里的答案，但似乎沒有一個對我有用。這是我正在使用的代碼...
Dim Newlines As String() = File.ReadAllLines(ofd.FileName)
For t As Integer = 0 To Newlines.Length - 1
Dim line2 As String = Newlines(t)
If line2.StartsWith("") Then ' Remove blank lines
Beep()
Newlines(t) = line2.Replace(Environment.NewLine, String.Empty)
End If
Next
File.WriteAllLines("NewTextm3u.txt", lines)
任何人都可以看到我哪里出錯了嗎？非常感謝。
uj5u.com熱心網友回復：
你可以這樣做：
Dim sFile As String = "c:\test2\test2.txt"
Dim Fdata As New List(Of String)
Fdata = File.ReadAllLines("c:\test2\test.txt").ToList
For i = Fdata.Count - 1 To 0 Step -1
If Fdata(i) = "" Then
Fdata.RemoveAt(i)
End If
Next
For Each sLine As String In Fdata
Debug.Print(sLine)
Next
File.WriteAllLines(sFile)
以上將洗掉所有空行
代替該回圈，您還可以使用 lamda 運算式，如下所示：
Fdata.RemoveAll(Function(MyOneRow) MyOneRow = "")
uj5u.com熱心網友回復：
我用StrignSplitOptions.RemoveEmptyEntries來擺脫空白行。
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Dim FileContents = File.ReadAllText("SomeFile.txt")
Dim lines = FileContents.Split(Environment.NewLine.ToCharArray, StringSplitOptions.RemoveEmptyEntries)
End Sub
uj5u.com熱心網友回復：
正如您在上圖中所看到的，在句子末尾有一個我們可以稱之為“輸入”的東西，而在兩者之間還有一個。因此，讓我們洗掉句子之間的那個，因為它只是一行，您可以這樣做：
If line(i) = CHR(13) & CHR(10) then line(i)=""
但如果你想有點偏執，只想洗掉所有的“輸入”或“換行符”，就這樣做：
line(i)=Replace(line(i),CHR(13) & CHR(10),"")
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/335613.html
標籤：网络