PlaylistEditor Class

Public NotInheritable Class PlaylistEditor

Dim instance As PlaylistEditor

public ref class PlaylistEditor sealed

[<SealedAttribute>]
type PlaylistEditor = class end

No code example is currently available or this language may not be supported.

Private Sub Test

    ' *********************************
    ' Instance the PlaylistEditor Class
    ' *********************************
    Dim playlist As New PlaylistEditor(playlistFile:="C:\Playlist.pls",
                                       playlistType:=PlaylistType.Pls,
                                       append:=False,
                                       fileEncoding:=Encoding.Default)

    ' ******************************************
    ' Retrieve the instanced PlaylistEditor info
    ' ******************************************
    MessageBox.Show(playlist.FilePath)
    MessageBox.Show(playlist.Type.ToString())
    MessageBox.Show(CStr(playlist.Append))
    MessageBox.Show(String.Format("Encoding: {0}, CodePage: {1}",
                                  playlist.FileEncoding.BodyName,
                                  playlist.FileEncoding.CodePage))

    ' **************************
    ' Instance a TrackInfo Class
    ' **************************
    Dim tInfo As New PlaylistTrackInfo
    With tInfo
        .Path = "C:\Track1.ext"
        .Title = "Track1 Title"
        .Length = TimeSpan.Parse("00:05:30")
    End With

    ' ***************
    ' Add a new track
    ' ***************
    playlist.Add(TrackInfo:=tInfo)
    playlist.Add(filepath:="C:\Track2.ext", allowDuplicate:=False)
    playlist.Add(filepath:="C:\Track3.ext", title:="Track3 Title", length:=TimeSpan.Parse("01:35:20"))

    ' *************************************************
    ' Sets the extended track info of an existing track
    ' *************************************************
    Dim oldTrackPath As String = "C:\Track2.ext"

    Dim tInfoSet As New PlaylistTrackInfo
    With tInfoSet
        .Path = "C:\Modified Track2.ext"
        .Title = "My modified Track2 title"
        .Length = playlist.GetTrack(oldTrackPath).Length
    End With

    playlist.Set(filepath:=oldTrackPath, trackInfo:=tInfoSet)

    ' ************************
    ' Remove an existing track
    ' ************************
    playlist.Remove(filepath:="C:\Track3.ext")
    playlist.Remove(trackIndex:=2)

    ' ********************************
    ' Determine whether a track exists
    ' ********************************
    MessageBox.Show(CStr(playlist.Exist(filepath:="C:\Track3.ext")))
    MessageBox.Show(CStr(playlist.Exist(trackIndex:=3)))

    ' ************************************************
    ' Count the total amount of tracks in the playlist
    ' ************************************************
    MessageBox.Show(CStr(playlist.Count))

    ' ************************************
    ' Get extended track info from a track
    ' ************************************
    Dim trackInfo1 As PlaylistTrackInfo = playlist.GetTrack(filepath:="C:\Track1.ext")
    Dim trackInfo2 As PlaylistTrackInfo = playlist.GetTrack(trackIndex:=2)

    ' ******************************************
    ' Get all tracks and its extended track info
    ' ******************************************
    Dim tracks As ReadOnlyCollection(Of PlaylistTrackInfo) = playlist.Tracks()

    For Each track As PlaylistTrackInfo In tracks

        Dim sb As New Global.System.Text.StringBuilder
        With sb
            .AppendLine(String.Format("Track Index : {0}", CStr(track.Index)))
            .AppendLine(String.Format("Track Path  : {0}", track.Path))
            .AppendLine(String.Format("Track Title : {0}", track.Title))
            .AppendLine(String.Format("Track Length: {0}", Convert.ToString(track.Length)))
        End With

        MessageBox.Show(sb.ToString())

    Next track

End Sub

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.