Tut nichts trotz Identischer Anagaben

#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=icons\prog01.ico
#AutoIt3Wrapper_outfile=WL.exe
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_UseX64=n
#AutoIt3Wrapper_Res_Fileversion=1.5.0.0
#AutoIt3Wrapper_Res_LegalCopyright=Skilkor(http://www.autoit.de)(Hilfe: Oscar & i2c & Raupi & ohforf & Twodollarbillie)
#AutoIt3Wrapper_Res_Language=1031
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
;==============
#Region ### include ###
#include <Array.au3>
#include <File.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3>
#include <ListViewConstants.au3>
#include <StructureConstants.au3>
#include <GuiImageList.au3>
#include <Misc.au3>
#include <EditConstants.au3>
#EndRegion ### include ###
;=============
#Region ### Global Ini ###
;~ Global $sInifile = @ScriptDir & '\Conf.ini' ; Inidatei
#EndRegion ### Global Ini ###
;=============
#Region ### IniRead ###
#EndRegion ### IniRead ###
;=============
#Region ### Global Checkbox ###
Global $ahCheckbox[5]
Global $BoxNames[5] = ['Windows Media Player', 'Songbird', 'WinAmp', 'VLC', 'RealPlayer']
Global $aFunktions[5] = ['_WMP', '_SongBird', '_WAmp', '_VLC', '_RPlayer']
Global $aLeft[6] = [24,155,220,280,325,400]
#Endregion ### Global Checkbox ###
;=============
#Region ### Wiedergabelieste ###
$WL = GUICreate("WL Creater",442,460,-1,-1)
GUICtrlCreateGroup("",8,0,425,97)
GUICtrlCreateGroup("",8,89,425,344)
For $i = 0 To 4
$ahCheckbox[$i] = GUICtrlCreateCheckbox($BoxNames[$i], $aLeft[$i], 40, $aLeft[$i + 1] - $aLeft[$i], 20)
Next
$Tip = GUICtrlCreateLabel("Tip: Wählt eine Widergabelisten Art aus. Seht euch die Hilfe an",24,64,203,25)
$Create = GUICtrlCreateButton("Erstellen",232,64,59,25,$WS_GROUP)
$ClearListViewB = GUICtrlCreateButton("Liste Leeren",296, 64, 67, 25, $WS_GROUP)
$FolderSearch = GUICtrlCreateButton("...",400,16,19,25,$WS_GROUP)
;~ $Hilfe = GUICtrlCreateButton("Hilfe",368,64,59,25,$WS_GROUP)
$Path = GUICtrlCreateInput("Path",24,16,377,21,$ES_READONLY)
GUISetState(@SW_SHOW)
;~ MsgBox(0,'Checkbox',$Tip)
#EndRegion ### Wiedergabelieste ###
#Region ### Global ###
Global $aID3, $aFiles, $sPath, $sNewItem, $Duration, $iMode, $sString, $Create, $FolderSearch,$FilePath
Global $ahPlItem[1], $iPlCount = 0, $sID3Tags
#EndRegion ### Global ###
;=============
#Region ### Global ListView ###
Global $LV_Style = BitOR($WS_EX_DLGMODALFRAME, $WS_EX_CLIENTEDGE)
Global $LV_EX_STYLE = BitOR($LVS_EX_SUBITEMIMAGES, $LVS_EX_DOUBLEBUFFER, $LVS_EX_FULLROWSELECT)
Global $ListView = GUICtrlCreateListView('Nr.|Artist|Title|Album|Länge|Path',16,104,409,321, $LV_Style, $LV_EX_STYLE)
_GUICtrlListView_SetExtendedListViewStyle($ListView, $LV_EX_STYLE)
_GUICtrlListView_RegisterSortCallBack($ListView)
GUICtrlSetState(-1, $GUI_DROPACCEPTED)
GUICtrlSendMsg($ListView, $LVM_SETCOLUMNWIDTH, 0, 32)
GUICtrlSendMsg($ListView, $LVM_SETCOLUMNWIDTH, 1, 100)
GUICtrlSendMsg($ListView, $LVM_SETCOLUMNWIDTH, 2, 100)
GUICtrlSendMsg($ListView, $LVM_SETCOLUMNWIDTH, 3, 110)
GUICtrlSendMsg($ListView, $LVM_SETCOLUMNWIDTH, 4, 50)
GUICtrlSendMsg($ListView, $LVM_SETCOLUMNWIDTH, 5, 120)
#EndRegion ### Global ListView ###
;=============
#Region ### Global ContextMenü ###
Global $ContextMenue = GUICtrlCreateContextMenu($ListView)
Global $DelItem = GUICtrlCreateMenuItem('Löschen', $ContextMenue)
Global $AddItem = GUICtrlCreateMenuItem('File hinzufügen', $ContextMenue)
Global $Import1 = GUICtrlCreateMenuItem('Playlist Importieren',$ContextMenue)
Global $ClearListViewM1 = GUICtrlCreateMenuItem('Liste Leeren',$ContextMenue)
#EndRegion ### Global ContextMenü ###
;=============
#Region ### Global Menü ###
Global $Menu = GUICtrlCreateMenu('Menü',-1,0)
Global $Import = GUICtrlCreateMenuItem('Playlist Importieren',$Menu,0)
Global $ClearListViewM = GUICtrlCreateMenuItem('Liste Leeren',$Menu,0)
Global $Maske = GUICtrlCreateMenu('Maske',$menu,10)
Global $Normal = GUICtrlCreateMenuItem('Standard',$Maske,1)
Global $Black = GUICtrlCreateMenuItem('Schwarz',$Maske,2)
Global $Red = GUICtrlCreateMenuItem('Rot',$Maske,3)

Global $HelpMenu = GUICtrlCreateMenu('?',-1,10)
Global $HelpItem = GUICtrlCreateMenuItem('Hilfe',$HelpMenu,0,1)
#EndRegion ### Global Menü ###
;=============
#Region ### GUI_Event ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $ListView
_GUICtrlListView_SortItems($ListView, GUICtrlGetState($ListView))
Case $Create
_Create()
Case $ClearListViewB, $ClearListViewM, $ClearListViewM1
_ClearListView()
Case $FolderSearch
_FolderSearch()
Case $HelpItem
_Hilfe()
Case $DelItem
_DeleteSelected()
Case $AddItem
_addFile()
Case $Import,$Import1
_Import()

Case $Normal
_optNormal()
Case $Black
_optBlack()
Case $Red
_optRed()
EndSwitch
$dll = DllOpen("user32.dll")
If _IsPressed("2E") Then
_DeleteSelected()
EndIf
DllClose($dll)
WEnd
#EndRegion ### GUI_Event ###
;=============
#Region ### _FolderSearch() ###
Func _FolderSearch()
$sPath = FileSelectFolder('Wähle einen MP3 Verzeichniss aus','', 4, '', '')
ControlSetText('','',$Path,$sPath)
$aFiles = _FileListToArray($sPath, '*.mp3', 1)
_GUICtrlListView_AddArray($aFiles, $ListView)
If Not @error Then
$Duration= 0
For $i = 1 To UBound($aFiles) - 1
_AddFileToListView($sPath & "\" & $aFiles[$i])
Next
EndIf
EndFunc
#EndRegion ### _FolderSearch() ###
;=============
#Region ### _addFile() ###
Func _addFile()
Local $aFiles
$sPath = FileOpenDialog('Wähle die *.mp3 Datei aus','','(*.mp3)',4,'','')
$aPaths = StringSplit($sPath,'|',1)
If IsArray($aPaths) Then
_GUICtrlListView_BeginUpdate($ListView)
For $i = 1 To $aPaths[0]
$Duration= 0
_AddFileToListView($aPaths[$i])
;_GUICtrlListView_AddItem($ListView, $aPaths[$i])
Next
_GUICtrlListView_EndUpdate($ListView)
Else
_FehlerListViewItem()
EndIf
EndFunc
#Endregion ### _addFile() ###
;=============
#Region ### _AddFileToListView() ###
Func _AddFileToListView($sPath) ;$aID3Tag[1][1] für Titel | $aID3Tag[2][1] für Artist | $aID3Tag[3][1] für Album | $aID3Tag[4][1] für die Länge | $aID3Tag[5][1] für die Titel Nr | $iPlCount + 1 Listet die zahl der ListView Items auf
If Not FileExists($sPath) Then Return
Local $aID3, $sNewItem
$aID3 = _ReadID3Tag($sPath)
If Not @error Then
ReDim $ahPlItem[$iPlCount + 1]
$Duration += $aID3[4][1]
$sNewItem = $aID3[5][1] & '|' & $aID3[1][1] & '|' & $aID3[0][1] & '|' & $aID3[2][1] & '|' & $aID3[4][1] & '|' & $sPath; & '|' & $iPlCount + 1
$ahPlItem[$iPlCount] = GUICtrlCreateListViewItem($sNewItem, $ListView)
$iPlCount += 1
EndIf
EndFunc
#EndRegion ### _AddFileToListView() ###
;=============
#Region ### _Hilfe() ###
Func _Hilfe()
MsgBox(4096, 'Hilfe', 'Wiedergabelisten Beschreibung'&@CRLF&@CRLF&'Einfach auf den Button neben dem Langen'&@CRLF&'Editfeld Klicken und Verzeichniss auswählen'&@CRLF&'Dann auf Erstellen'&@CRLF&@CRLF&'WL erstellt einmehrere Playlists'&@CRLF&'z.B.'&@CRLF&'(*.wpl) - Windows Media Player'&@CRLF&'(*.pls) - Song Bird & Win Amp'&@CRLF&'(*.m3u) - Real Player'&@CRLF&'(*.xspf) - Video Lan (VLC)'&@CRLF&@CRLF&'Ein Danke an:'&@CRLF&'i2c: Für seine Hilfe und Ideen'&@CRLF&'Raupi: Auch für seine Hilfe'&@CRLF&@CRLF&'Createt by Skilkor')
EndFunc
#EndRegion ### _Hilfe() ###
;=============
#Region ### _Fehler() ###
Func _Fehler()
MsgBox(48, 'Fehler', 'Keine Wiedergabelieste ausgewählt')
EndFunc
#EndRegion ### _Fehler() ###
;=============
#Region ### _FehlerListViewItem() ###
Func _FehlerListViewItem()
$msg = MsgBox(48+4, 'Fehler', 'Keine "*.mp3" Dateien Gefunden'&@CRLF&'Neu Suchen?')
If $msg = 6 Then
_addFile()
EndIf
EndFunc
#EndRegion ### _FehlerListViewItem() ###
;=============
#Region ### _FehlerListView() ###
Func _FehlerListView()
$msg = MsgBox(48+4, 'Fehler', 'Keine "*.mp3" einträge Gefunden'&@CRLF&'Neu Suchen?')
If $msg = 6 Then
_FolderSearch()
EndIf
EndFunc
#EndRegion ### _FehlerListView() ###
;=============
#Region ### _Create() ###
Func _Create()
If _GUICtrlListView_GetItemCount($ListView) = 0 Then
_FehlerListView()
EndIf
For $i = 0 To 4
If BitAND(GUICtrlRead($ahCheckbox[$i]), $GUI_CHECKED) Then Call($aFunktions[$i])
;~ MsgBox(0,'Checkbox',$ahCheckbox[$i])
Next
EndFunc
#EndRegion ### _Create() ###
;=============
#Region ### _ListView() Leeren ###
Func _ClearListView()
_GUICtrlListView_DeleteAllItems($ListView)
EndFunc
#EndRegion ### _ListView() Leeren ###
;=============
#Region ### _DeleteSelected ###
Func _DeleteSelected()
_GUICtrlListView_DeleteItemsSelected($ListView)
EndFunc
#EndRegion ### _DeleteSelected ###
;=============
#Region ### _Import() ### von i2c (Teils Bsp)
Func _Import()
$FilePath = FileOpenDialog('Playlist Importieren', '', 'Alle Playlists (*.wpl;*.pls;*.xspf;*.m3u)|(*.wpl)|(*.pls)|(*.xspf)|(*.m3u)')
If StringRight($FilePath, 4) = ".wpl" Then
$hFile = FileOpen($FilePath)
$sRead = FileRead($hFile)
FileClose($hFile)
If Not @error Then
$aTmp = StringRegExp($sRead, '<media\ssrc=\"(.*?)\"', 3, 1)
If IsArray($aTmp) Then
$aFolder = StringRegExp($FilePath, "(.*)\\", 1, 1)
If IsArray($aFolder) Then
$aParent = StringRegExp($aFolder[0], "(.*)\\", 1, 1)
Else
MsgBox(0, "Fehler", "Datei konnte nicht importiert werden")
Return
EndIf
For $i = UBound($aTmp) - 1 To 0 Step -1
If StringLeft($aTmp[$i], 2) = '..' Then
$sTmp = $aParent[0] & StringTrimLeft($aTmp[$i], 2)
If Not FileExists($sTmp) Then
MsgBox(0, "Fehler", "Datei: " & $sTmp & @CRLF & "Datei existiert nicht")
_ArrayDelete($aTmp, $i)
Else
$aTmp[$i] = $sTmp
EndIf
EndIf
Next
EndIf
Else
MsgBox(0, "Fehler", "Datei konnte nicht importiert werden")
Return
EndIf
EndIf

If StringRight($FilePath, 4) = ".pls" Then ;Wen es eine *.pls Datei ist DANN
If MsgBox(4+48,'*.pls Fortfahren','Nur *.pls Playlist die mit >WL< erstellt wurden, "Solten" importiert werden'&@CRLF&'Fortfahren?') = 7 Then ;Wenn NEIN dann Return
Return
EndIf
$hFile = FileOpen($FilePath) ;Öffne *.pls Playlist
$sRead = FileRead($hFile) ;Lesse *.pls Playlist
FileClose($hFile) ;Schliesse *.pls Playlist
If Not @error Then ;Wen nicht ERROR DANN
$aTmp = StringRegExp($sRead, 'File\d+\=(.*)', 3, 1) ;Dateipfade einlesen
EndIf
If StringLeft($aTmp[$i], 2) = '..' Then
For $i = UBound($aTmp) - 1 To 0 Step -1 ;~ Array rückwärts durchlaufen
If StringLeft($aTmp[$i], 2) = '..' Then ;~ wenn die ersten beiden Zeichen '..' sind, ist es ein relativer Pfad
$aCount = StringRegExp($aTmp[$i], '(\.\.\/)', 3, 1) ;~ zähle alle '../' im String um das Level des relativen Pfades herauszufinden
$aFolder = StringSplit($FilePath, "\") ;~ den Ordnerpfad (Playlist) an den \'s aufsplitten.
;~ Das Array mit den einzelnen Ordnern wieder in einen String umwandeln.
;~ Der 4te Parameter: (Anzahl Elemente von $aFolder)-Anzahl der relativen Pfadebenen in $aCount
;~ Ergebnis: Der Ordner, von dem aus der absolute Teil des relativen Dateipfads weiter zur MP3 führt.
$sTmp = _ArrayToString($aFolder, "\", 1, (UBound($aFolder) - 1) - UBound($aCount))
$aTmp[$i] = StringReplace($aTmp[$i], "../", "") ;~ Alle '../' aus dem relativen Pfad entfernen
$aTmp[$i] = StringReplace($aTmp[$i], "/", "\") ;~ '/' durch '\' ersetzen, damit ein anständiger Pfad draus wird
$sTmp = $sTmp & "\" & $aTmp[$i] ;~ Den absoluten Pfad aus dem gekürzten Pfad der Playlist und dem 'gesäuberten' Pfad der MP3 zusammenbauen
If Not FileExists($sTmp) Then ;~ Prüfen ob die Datei dort existiert
MsgBox(0, "Fehler", "Datei: " & $sTmp & @CRLF & "Datei existiert nicht")
_ArrayDelete($aTmp, $i) ;~ Wenn nicht, dann das Element aus dem Array löschen
Else
$aTmp[$i] = $sTmp ;~ wenn sie existiert, den Pfad in das Arrayelement schreiben
EndIf
EndIf
Next
EndIf

EndIf

_ArrayDisplay($aTmp,'$aTmp vor Import')
If IsArray($aTmp) Then
_GUICtrlListView_BeginUpdate($ListView)
For $i = 0 To UBound($aTmp) - 1
$Duration = 0
_AddFileToListView($aTmp[$i])
Next
_GUICtrlListView_EndUpdate($ListView)
Else
MsgBox(0, "Fehler", "Keine Daten zum importieren.")
Return
EndIf
EndFunc
#EndRegion ### _Import() ### von i2c (Teils Bsp)
;=============
#Region ### _WMP() ### *.wpl
Func _WMP()
Local $sSaveFilename,$hFile, $iCount = _GUICtrlListView_GetItemCount($ListView)
If $iCount = 0 Then Return
$sSaveFilename = FileSaveDialog('Wähle einen Namen für die MP3-Playlist',@DesktopDir, 'Windows Media Player-Playlist (*.wpl)', 18, '')
$Folder = $sSaveFilename
$aFolder = StringSplit($Folder,"\")
If IsArray($aFolder) Then $Folder = $aFolder[$aFolder[0]-1] & "\" & $aFolder[$aFolder[0]]
If Not @error Then
If StringRight($sSaveFilename, 4) <> '.wpl' Then $sSaveFilename &= '.wpl'
$hFile = FileOpen($sSaveFilename, 128 + 2)
If $hFile <> -1 Then
FileWrite($hFile, '<?wpl version="1.0"?>'&@CRLF)
FileWrite($hFile, '<smil>'&@CRLF)
FileWrite($hFile, ' <head>'&@CRLF)
FileWrite($hFile, ' <meta name="Generator" content="Microsoft Windows Media Player -- "/>'&@CRLF)
FileWrite($hFile, ' <meta name="ItemCount" content="'&$iPlCount&'"/>'&@CRLF)
FileWrite($hFile, ' <meta name="TotalDuration" content="'&$Duration&'"/>'&@CRLF)
FileWrite($hFile, ' <author/>'&@CRLF)
FileWrite($hFile, ' <title>'&$Folder&'</title>'&@CRLF)
FileWrite($hFile, ' </head>'&@CRLF)
FileWrite($hFile, ' <body>'&@CRLF)
FileWrite($hFile, ' <seq>'&@CRLF)
For $i = 0 To $iCount
FileWriteLine($hFile, ' <media src="'& _GUICtrlListView_GetItemText($ListView,$i,5)&'"/>')
Next
FileWrite($hFile, ' </seq>'&@CRLF)
FileWrite($hFile, ' </body>'&@CRLF)
FileWrite($hFile, '</smil>'&@CRLF)
FileClose($hFile)
EndIf
EndIf
EndFunc
#EndRegion ### _WMP() ###
;=============
#Region ### _SongBird() ### *.pls
Func _SongBird()
Local $sSaveFilename,$hFile, $iCount = _GUICtrlListView_GetItemCount($ListView)
If $iCount = 0 Then Return
$sSaveFilename = FileSaveDialog('Wähle einen Namen für die MP3-Playlist',@DesktopDir, 'SongBird-Playlist (*.pls)', 18, '')
If Not @error Then
If StringRight($sSaveFilename, 4) <> '.pls' Then $sSaveFilename &= '.pls'
$hFile = FileOpen($sSaveFilename, 2)
If $hFile <> -1 Then
FileWrite($hFile, '[playlist]'&@CRLF)
FileWrite($hFile, 'NumberOfEntries=1'&@CRLF&@CRLF)
For $i = 0 To $iCount
FileWriteLine($hFile,'File'&$i+1&'='& _GUICtrlListView_GetItemText($ListView,$i,5))
FileWriteLine($hFile,'Title'&$i+1&'='& _GUICtrlListView_GetItemText($ListView,$i,1)&' - '&_GUICtrlListView_GetItemText($ListView,$i,2))
FileWriteLine($hFile,'Length'&$i+1&'='& _GUICtrlListView_GetItemText($ListView,$i,4)&@CRLF&@CRLF)
Next
FileWrite($hFile, @CRLF&'Version=2'&@CRLF)
FileClose($hFile)
EndIf
EndIf
EndFunc
#Endregion ### _SongBird() ###
;=============
#Region ### _WAMP() ### *.m3u
Func _WAMP()
Local $sSaveFilename,$hFile, $iCount = _GUICtrlListView_GetItemCount($ListView)
If $iCount = 0 Then Return
$sSaveFilename = FileSaveDialog('Wähle einen Namen für die MP3-Playlist',@DesktopDir, 'MP3-Playlist (*.m3u)', 18, '')
If Not @error Then
If StringRight($sSaveFilename, 4) <> '.m3u' Then $sSaveFilename &= '.m3u'
$hFile = FileOpen($sSaveFilename, 2)
If $hFile <> -1 Then
FileWrite($hFile, '#EXTM3U' & @CRLF)
For $i = 0 To $iCount - 1
FileWriteLine($hFile, '#EXTINF:' & _GUICtrlListView_GetItemText($ListView,$i,4) & ',' & _GUICtrlListView_GetItemText($ListView,$i,1) & ' - ' & _GUICtrlListView_GetItemText($ListView,$i,2)& ' - ' & 'Track Nr' & _GUICtrlListView_GetItemText($ListView,$i,0) & ' end')
FileWriteLine($hFile, _GUICtrlListView_GetItemText($ListView,$i,5))
Next
FileClose($hFile)
EndIf
EndIf
EndFunc
#EndRegion ### _WAMP() ###
;=============
#Region ### _VLC() ### *.xspf
Func _VLC()
Local $sSaveFilename,$hFile, $iCount = _GUICtrlListView_GetItemCount($ListView)
If $iCount = 0 Then Return
$sSaveFilename = FileSaveDialog('Wähle einen Namen für die MP3-Playlist',@DesktopDir, 'VLC-Playlist (*.xspf)', 18, '')
$Folder = $sSaveFilename
$aFolder = StringSplit($Folder,"\")
If IsArray($aFolder) Then $Folder = $aFolder[$aFolder[0]-1] & "\" & $aFolder[$aFolder[0]]
If Not @error Then
If StringRight($sSaveFilename, 4) <> '.xspf' Then $sSaveFilename &= '.xspf'
$hFile = FileOpen($sSaveFilename, 128 + 2)
If $hFile <> -1 Then
FileWrite($hFile, '<?xml version="1.0" encoding="UTF-8"?>'&@CRLF)
FileWrite($hFile, '<playlist version="1" xmlns="http://xspf.org/ns/0/" xmlns:vlc="http://www.videolan.org/vlc/playlist/ns/0/">'&@CRLF)
FileWrite($hFile, ' <title>'&$Folder&'</title>'&@CRLF)
FileWrite($hFile, ' <trackList>'&@CRLF)
For $i = 0 To $iCount - 1
FileWriteLine($hFile,' <track>')
FileWriteLine($hFile,' <location>file:///'& _GUICtrlListView_GetItemText($ListView,$i,5)&'</location>')
FileWriteLine($hFile,' <title>'& _GUICtrlListView_GetItemText($ListView,$i,2)&'</title>')
FileWriteLine($hFile,' <creator>'& _GUICtrlListView_GetItemText($ListView,$i,1)&'</creator>')
FileWriteLine($hFile,' <album>'& _GUICtrlListView_GetItemText($ListView,$i,3)&'</album>')
FileWriteLine($hFile,' <trackNum>'& _GUICtrlListView_GetItemText($ListView,$i,0)&'</trackNum>')
FileWriteLine($hFile,' <image>file:///'&''&'</image>')
FileWriteLine($hFile,' <extension application="http://www.videolan.org/vlc/playlist/0">')
FileWriteLine($hFile,' <vlc:id>'& _GUICtrlListView_GetItemText($ListView,$i,0)&'</vlc:id>')
FileWriteLine($hFile,' </extension>')
FileWriteLine($hFile,' </track>')
Next
FileWrite($hFile, ' </trackList>'&@CRLF)
FileWrite($hFile, ' <extension application="http://www.videolan.org/vlc/playlist/0">'&@CRLF)
If $hFile <> -1 Then
For $i = 0 To $iCount - 2
FileWriteLine($hFile, ' <vlc:item tid="'&_GUICtrlListView_GetItemText($ListView,$i,0)&'" />')
Next
FileWrite($hFile, ' </extension>'&@CRLF)
FileWrite($hFile, '</playlist>')
FileClose($hFile)
EndIf
EndIf
EndIf
EndFunc
#EndRegion ### _VLC() ###
;=============
#Region ### _RPlayer() ### *.m3u
Func _RPlayer()
Local $sSaveFilename,$hFile, $iCount = _GUICtrlListView_GetItemCount($ListView)
If $iCount = 0 Then Return
$sSaveFilename = FileSaveDialog('Wähle einen Namen für die MP3-Playlist',@DesktopDir, 'MP3-Playlist (*.m3u)', 18, '')
If Not @error Then
If StringRight($sSaveFilename, 4) <> '.m3u' Then $sSaveFilename &= '.m3u'
$hFile = FileOpen($sSaveFilename, 2)
If $hFile <> -1 Then
FileWrite($hFile, '#EXTM3U' & @CRLF)
For $i = 0 To $iCount - 1
FileWriteLine($hFile, '#EXTINF:' & _GUICtrlListView_GetItemText($ListView,$i,4) & ',' & _GUICtrlListView_GetItemText($ListView,$i,1) & ' - ' & _GUICtrlListView_GetItemText($ListView,$i,2)& ' - ' & 'Track Nr' & _GUICtrlListView_GetItemText($ListView,$i,0) & ' end')
FileWriteLine($hFile, _GUICtrlListView_GetItemText($ListView,$i,5))
Next
FileClose($hFile)
EndIf
EndIf
EndFunc
#EndRegion ### _RPlayer() ###
;=============
#Region ### _ID3Tag() ### Von Oscar
Func _ReadID3Tag($sPath)
If Not FileExists($sPath) Then Return SetError(1, 0, 0)
Local $hFile, $sData, $sID3Header, $iID3HeaderSize = 0, $iOffset, $iSize, $tmp
Local $aID3v2Tags[8] = ['TIT2', 'TPE1', 'TALB', 'TYER', 'TLEN', 'TRCK', 'TCON', 'TENC']
Local $aID3[11][2] = [ _
['Title', ''],['Artist', ''],['Album', ''],['Year', ''], _
['Length', '0'],['Track', ''],['Genre', ''],['Encoder', ''], _
['MPEG-Version', ''],['Bitrate', ''],['Sample-Freq.', '']]
Local $aMP3Version[4] = ['MPEG2.5', 'Reserved', 'MPEG2', 'MPEG1']
Local $aMP3Layer[4] = ['Reserved', 'Layer III', 'Layer II', 'Layer I']
Local $aMP3Bitrate[5][16] = [ _
[000, 032, 064, 096, 128, 160, 192, 224, 256, 288, 320, 352, 384, 416, 448, 000], _
[000, 032, 048, 056, 064, 080, 096, 112, 128, 160, 192, 224, 256, 320, 384, 000], _
[000, 032, 040, 048, 056, 064, 080, 096, 112, 128, 160, 192, 224, 256, 320, 000], _
[000, 032, 048, 056, 064, 080, 096, 112, 128, 144, 160, 176, 192, 224, 256, 000], _
[000, 008, 016, 024, 032, 040, 048, 056, 064, 080, 096, 112, 128, 144, 160, 000]]
Local $aSampleFreq[3][4] = [[44100, 48000, 32000, 0],[22050, 24000, 16000, 0],[11025, 12000, 8000, 0]]
Local $sMP3FrameHeader, $iMP3Version, $sMP3Version, $sMP3Layer, $iMP3Bitrate, $iMP3SampleFreq
Local $iVBRFrames = -1, $iVBRFilesize, $iVBRFlags
$hFile = FileOpen($sPath, 16)
If $hFile = -1 Then Return SetError(2, 0, 0)
$sData = Binary(FileRead($hFile, 4))
If BinaryMid($sData, 1, 3) = '0x494433' Then ; ID3 v2.x Kennung gefunden
If (BinaryMid($sData, 4, 1) = '0x03') Or (BinaryMid($sData, 4, 1) = '0x04') Then ; nur v2.3 und 2.4
FileRead($hFile, 2) ; 2 Bytes überspringen
For $i = 0 To 3 ; berechne ID3-Headergröße (4 Bytes, jedoch nur jeweils die unteren 7 Bit)
$iID3HeaderSize = BitShift($iID3HeaderSize, -7) + BitAND(Binary(FileRead($hFile, 1)), 0x7F)
Next
If $iID3HeaderSize > 0 Then
$sID3Header = Binary(FileRead($hFile, $iID3HeaderSize)) ; lese gesamten ID3-Header
For $i = 0 To 7
$iOffset = StringInStr(BinaryToString($sID3Header), $aID3v2Tags[$i]) ; Offset zu dem ID3-Tag
If $iOffset > 0 Then
$iSize = Hex(BinaryMid($sID3Header, $iOffset + 4, 4)) ; Größe des ID3-Frames
$tmp = BinaryMid($sID3Header, $iOffset + 11, Dec($iSize) - 1)
If BinaryMid($tmp, 1, 2) = '0xFFFE' Then
For $x = 3 To BinaryLen($tmp) Step 2
$aID3[$i][1] &= BinaryToString(BinaryMid($tmp, $x, 2), 2)
Next
Else
For $x = 1 To BinaryLen($tmp)
$aID3[$i][1] &= BinaryToString(BinaryMid($tmp, $x, 1))
Next
EndIf
$aID3[$i][1] = StringReplace($aID3[$i][1], Chr(0), '')
EndIf
Next
EndIf
Do
$sData = String(FileRead($hFile, 1))
If @error Then ExitLoop
If BitAND($sData, 0xff) = 0xff Then
FileSetPos($hFile, -1, 1)
$sData = String(FileRead($hFile, 4))
EndIf
Until BitAND($sData, 0xFFE00000) = 0xFFE00000
Else
FileClose($hFile)
Return SetError(3, 0, 0)
EndIf
Else ; ID3 v1.x
$iOffset = FileGetPos($hFile)
FileSetPos($hFile, -128, 2)
$sID3Header = BinaryToString(FileRead($hFile, 3))
If $sID3Header = 'TAG' Then
$aID3[0][1] = StringReplace(BinaryToString(FileRead($hFile, 30)), Chr(0), '')
$aID3[1][1] = StringReplace(BinaryToString(FileRead($hFile, 30)), Chr(0), '')
$aID3[2][1] = StringReplace(BinaryToString(FileRead($hFile, 30)), Chr(0), '')
$aID3[3][1] = StringReplace(BinaryToString(FileRead($hFile, 4)), Chr(0), '')
EndIf
FileSetPos($hFile, $iOffset, 0)
EndIf
$sMP3FrameHeader = String($sData)
If BitAND($sMP3FrameHeader, 0xFFE00000) <> 0xFFE00000 Then
FileClose($hFile)
Return SetError(4, 0, 0) ; keine MP3-Datei, dann Return
EndIf
$iMP3Version = BitShift(BitXOR($sMP3FrameHeader, 0xFFE00000), 19) ; welche MP3-Version
$sMP3Version = $aMP3Version[$iMP3Version] ; in Textform
$sMP3Layer = $aMP3Layer[BitShift(BitAND($sMP3FrameHeader, 0x60000), 17)] ; welcher Layer
$aID3[8][1] = $sMP3Version & ' / ' & $sMP3Layer ; ins Ausgabe-Array
$iMP3Bitrate = BitShift(BitAND($sMP3FrameHeader, 0xF000), 12) ; Bitraten-Index auslesen
Switch $sMP3Version ; je nach MPEG-Version Bitrate aus der Tabelle holen
Case 'MPEG1'
$aID3[9][1] = $aMP3Bitrate[$iMP3Version - ($iMP3Version > 1)][$iMP3Bitrate]
Case 'MPEG2', 'MPEG2.5'
If $sMP3Layer = 'Layer I' Then
$aID3[9][1] = $aMP3Bitrate[3][$iMP3Bitrate]
Else
$aID3[9][1] = $aMP3Bitrate[4][$iMP3Bitrate]
EndIf
EndSwitch
$iMP3SampleFreq = BitShift(BitAND($sMP3FrameHeader, 0xC00), 10) ; Sample-Frequenz-Index auslesen
$aID3[10][1] = $aSampleFreq[2 - ($iMP3Version - ($iMP3Version > 1))][$iMP3SampleFreq] ; und Wert aus der Tabelle holen
Do ; evtl. Leerbytes überspringen
$tmp = FileRead($hFile, 1)
If @error Then ExitLoop
Until $tmp <> 0x00 Or @error
If $tmp = 0x58 And BinaryToString(FileRead($hFile, 3)) = 'ing' Then ; MP3 mit VBR (Xing-Header gefunden)?
$iVBRFlags = '0x' & Hex(FileRead($hFile, 4)) ; VBR-Flags auslesen
If BitAND($iVBRFlags, 0x3) Then ; wenn die Einträge vorhanden sind, dann...
$iVBRFrames = Dec(Hex(FileRead($hFile, 4))) ; Anzahl der VBR-Frames auslesen
$iVBRFilesize = Dec(Hex(FileRead($hFile, 4))) ; Dateigröße auslesen
$aID3[4][1] = $iVBRFrames * 1152 / $aID3[10][1] * 1000 ; VBR Laufzeit
$aID3[9][1] = 'VBR ~' & Int($iVBRFilesize * 8 / ($aID3[4][1] / 1000) / 1000) ; VBR durchschnittliche Bitrate
EndIf
Else
If $aID3[4][1] = 0 Then $aID3[4][1] = (FileGetSize($sPath) * / ($aID3[9][1] * 1000) * 1000 ; alternative CBR Laufzeit
$aID3[9][1] = 'CBR ' & $aID3[9][1]
EndIf
$aID3[4][1] = Int($aID3[4][1] / 1000) ; Laufzeit
$aID3[9][1] &= ' kBit/s'
$aID3[10][1] &= ' Hz'
FileClose($hFile)
Return $aID3
EndFunc ;==>_ReadID3Tag
#EndRegion ### _ID3Tag() ### Von Oscar
;=============
#Region ### _optNormal() ###
Func _optNormal()
GUISetBkColor(0xF0F0F0,$WL)
GUICtrlSetColor(10, 0x000000)
EndFunc
#EndRegion ### _optNormal() ###
;=============
#Region ### _optBlack() ###
Func _optBlack()
GUISetBkColor(0x000000,$WL)
GUICtrlSetColor(10, 0xFFFFFF)
EndFunc
#EndRegion ### _optBlack() ### GUISetBkColor(0xFF0000)
;=============
#Region ### _optRed() ###
Func _optRed()
GUISetBkColor(0xFF0000,$WL)
GUICtrlSetColor(10, 0x000000)
EndFunc
#EndRegion ### _optRed() ###
;=============