Question

我正在使用具有播放列表的AXWMPlib制作媒体播放器应用程序。我能成功完成的是将播放列表项保存在文本文件中。

下面是保存代码：

   If SavePlaylist.ShowDialog = Windows.Forms.DialogResult.OK Then
        Dim writefile As New System.IO.StreamWriter(SavePlaylist.FileName)
        For i = 0 To lstview.Items.Count - 2
            writefile.WriteLine(Form1.main.AxWMP1.currentPlaylist.Item(i).sourceURL)
        Next
        writefile.Write(Form1.main.AxWMP1.currentPlaylist.Item(Form1.main.AxWMP1.currentPlaylist.count - 1).sourceURL)
        writefile.Close()
    End If

加载我写到这里：

If OpenPlaylist.ShowDialog = Windows.Forms.DialogResult.OK Then
            Dim readfile As New System.IO.StreamReader(OpenPlaylist.FileName)
            Dim ob As String = readfile.ReadToEnd()
            Dim content() As String = OpenPlaylist.FileName.Split(Environment.NewLine)

        End If

我不知道如何读取存储在current（）中的行并将它们附加到当前播放列表中。

Answer 1

找到了解决方案：

If Open.ShowDialog = Windows.Forms.DialogResult.OK Then
                Dim readfile As New System.IO.StreamReader(Open.FileName)
                Dim ob As String = readfile.ReadToEnd()
                Dim content() As String = ob.Split(Environment.NewLine)

                For Each Line As String In content
                    Dim item As IWMPMedia = Form1.AxWMP1.newMedia(Line)
                    Form1.AxWMP1.currentPlaylist.appendItem(item)
                Next

            End If

AxWMPlib：如何从外部文件加载播放列表

1 个答案: