Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 'Written By Sixem - Gets Local Saved Playlists From Winamp .NET
- Dim PathBuild_File As String = "playlists.xml"
- Dim PathBuild_Roaming As String = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData)
- PathBuild_Roaming &= "\Winamp\Plugins\ml\"
- PathBuild_Roaming &= PathBuild_File
- Dim File_Stream As New System.IO.StreamReader(PathBuild_Roaming)
- Dim File_Read As String = (File_Stream.ReadToEnd)
- Dim File_Split() As String = Regex.Split(File_Read, "filename=")
- For Each i As String In File_Split
- If i.Contains("title") = True Then
- Try
- Dim i_Title As String = CStr(Regex.Split(CStr(Regex.Split(i, "title=").GetValue(1)), " id=").GetValue(0)).Replace("""", Nothing)
- Dim i_Songs As String = CStr(Regex.Split(CStr(Regex.Split(i, "songs=").GetValue(1)), " seconds=").GetValue(0)).Replace("""", Nothing)
- Dim i_Seconds As String = CStr(Regex.Split(CStr(Regex.Split(i, "seconds=").GetValue(1)), "/>").GetValue(0)).Replace("""", Nothing)
- Dim i_Playlist As String = CStr(Regex.Split(i, " title=").GetValue(0)).Replace("""", Nothing)
- MessageBox.Show(String.Format("Title: {0} Songs: {1} Seconds: {2} Playlist File: {3}", i_Title, i_Seconds, i_Seconds, i_Playlist))
- Catch ex As Exception
- End Try
- End If
- Next
Advertisement
Add Comment
Please, Sign In to add comment