Sixem

.NET Get Winamp Playlists

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