Wiedergabelieste erstellen

Skilkor

Hey Hey Leute
SO sieht man sich wider wahr einige zeit abwessend.

Soo, ich konnte leider nicht mehr mit autoit üben und frage mich nun ob es möglich ist,
via "File Explorer" einen Musik Ordner nach wahl auszuwählen und nach den .mp3 Dateien die in diesem Ordner sind eine Widergabelieste nach wahl zu erstellen.
z.b für den Windows Media Player,WinAMP,Real Player, VLC oder Songbird...

Ich verwende mehr den Windows Media Player und den Songbird (Songbird aber auch nur wegen meinem Philips GoGear Muse MP4 )

Die Widergabeliesten sehen bei den Programmen wie folgt aus

Windows Media Player

Spoiler anzeigen

[autoit]

<?wpl version="1.0"?>
<smil>
<head>
<meta name="Generator" content="Microsoft Windows Media Player -- 12.0.7600.16415"/>
<meta name="ItemCount" content="0"/>
<meta name="IsFavorite"/>
<meta name="ContentPartnerListID"/>
<meta name="ContentPartnerNameType"/>
<meta name="ContentPartnerName"/>
<meta name="Subtitle"/>
<author/>
<title>Dawn of Ashes - The Crypt Injection-Euro Editi</title>
</head>
<body>
<seq>
<media src="..\Dawn of Ashes\The Crypt Injection-Euro Editi\AMIG.mp3"/>
<media src="..\Dawn of Ashes\The Crypt Injection-Euro Editi\NGHS.mp3"/>
<media src="..\Dawn of Ashes\The Crypt Injection-Euro Editi\YSVR.mp3"/>
<media src="..\Dawn of Ashes\The Crypt Injection-Euro Editi\IMCV.mp3"/>
<media src="..\Dawn of Ashes\The Crypt Injection-Euro Editi\UQWQ.mp3"/>
<media src="..\Dawn of Ashes\The Crypt Injection-Euro Editi\TLDJ.mp3"/>
<media src="..\Dawn of Ashes\The Crypt Injection-Euro Editi\MRCI.mp3"/>
<media src="..\Dawn of Ashes\The Crypt Injection-Euro Editi\OKJN.mp3"/>
<media src="..\Dawn of Ashes\The Crypt Injection-Euro Editi\UJBK.mp3"/>
<media src="..\Dawn of Ashes\The Crypt Injection-Euro Editi\QVHA.mp3"/>
<media src="..\Dawn of Ashes\The Crypt Injection-Euro Editi\FVZQ.mp3"/>
</seq>
</body>
</smil>

[/autoit]

Songbird

Spoiler anzeigen

[autoit]

[playlist]
NumberOfEntries=23

[/autoit] [autoit][/autoit] [autoit]

File1=../../03_Eigene Music/Dawn of Ashes/The Crypt Injection-Euro Editi/AMIG.mp3
Title1=Dawn Of Ashes - A Blade In The Dark
Length1=290

[/autoit] [autoit][/autoit] [autoit]

File2=../../03_Eigene Music/Dawn of Ashes/The Crypt Injection-Euro Editi/NGHS.mp3
Title2=Dawn Of Ashes - Torture Device
Length2=242

[/autoit] [autoit][/autoit] [autoit]

File3=../../03_Eigene Music/Dawn of Ashes/The Crypt Injection-Euro Editi/YSVR.mp3
Title3=Dawn Of Ashes - Inhuman Salvation
Length3=282

[/autoit] [autoit][/autoit] [autoit]

File4=../../03_Eigene Music/Dawn of Ashes/The Crypt Injection-Euro Editi/IMCV.mp3
Title4=Dawn Of Ashes - Psycho Therapy
Length4=128

[/autoit] [autoit][/autoit] [autoit]

File5=../../03_Eigene Music/Dawn of Ashes/The Crypt Injection-Euro Editi/UQWQ.mp3
Title5=Dawn Of Ashes - The Crypt Injection
Length5=258

[/autoit] [autoit][/autoit] [autoit]

File6=../../03_Eigene Music/Dawn of Ashes/The Crypt Injection-Euro Editi/TLDJ.mp3
Title6=Dawn Of Ashes - Where Angels Die
Length6=295

[/autoit] [autoit][/autoit] [autoit]

File7=../../03_Eigene Music/Dawn of Ashes/The Crypt Injection-Euro Editi/MRCI.mp3
Title7=Dawn Of Ashes - Blood Shattered Cross
Length7=261

[/autoit] [autoit][/autoit] [autoit]

File8=../../03_Eigene Music/Dawn of Ashes/The Crypt Injection-Euro Editi/OKJN.mp3
Title8=Dawn Of Ashes - Vengeance (When There Is Nobody To Trust)
Length8=178

[/autoit] [autoit][/autoit] [autoit]

File9=../../03_Eigene Music/Dawn of Ashes/The Crypt Injection-Euro Editi/UJBK.mp3
Title9=Dawn Of Ashes - Still Born Defect (Aslan Faction Remix)
Length9=283

[/autoit] [autoit][/autoit] [autoit]

File10=../../03_Eigene Music/Dawn of Ashes/The Crypt Injection-Euro Editi/QVHA.mp3
Title10=Dawn Of Ashes - Portrait Of Homicide (Xp8 Remix)
Length10=290

[/autoit] [autoit][/autoit] [autoit]

File11=../../03_Eigene Music/Dawn of Ashes/The Crypt Injection-Euro Editi/FVZQ.mp3
Title11=Dawn Of Ashes - Portrait Of Homicide (Dioxyde Remix)
Length11=217

[/autoit] [autoit][/autoit] [autoit]

Version=2

[/autoit]

VLC

Spoiler anzeigen

[autoit]

<?xml version="1.0" encoding="UTF-8"?>
<playlist version="1" xmlns="http://xspf.org/ns/0/" xmlns:vlc="http://www.videolan.org/vlc/playlist/ns/0/">
<title>Wiedergabeliste</title>
<trackList>
<track>
<location>file:///E:/03_Eigene%20Music/969/The%20Beginning%20Of%20Chaos/The%20Beginning.mp3</location>
<title>01-The Beginning</title>
<creator>969</creator>
<album>The Beginning Of Chaos</album>
<trackNum>1</trackNum>
<image>file:///C:/Users/skilkor/AppData/Roaming/vlc/art/artistalbum/969/The%20Beginning%20Of%20Chaos/art.jpg</image>
<extension application="http://www.videolan.org/vlc/playlist/0">
<vlc:id>0</vlc:id>
</extension>
</track>
<track>
<location>file:///E:/03_Eigene%20Music/969/The%20Beginning%20Of%20Chaos/Wrong%20Time%20Wrong%20Place.mp3</location>
<title>02-Wrong Time Wrong Place</title>
<creator>969</creator>
<album>The Beginning Of Chaos</album>
<trackNum>2</trackNum>
<image>file:///C:/Users/skilkor/AppData/Roaming/vlc/art/artistalbum/969/The%20Beginning%20Of%20Chaos/art.jpg</image>
<extension application="http://www.videolan.org/vlc/playlist/0">
<vlc:id>1</vlc:id>
</extension>
</track>
<track>
<location>file:///E:/03_Eigene%20Music/969/The%20Beginning%20Of%20Chaos/Politixx.mp3</location>
<title>03-Politixx</title>
<creator>969</creator>
<album>The Beginning Of Chaos</album>
<trackNum>3</trackNum>
<image>file:///C:/Users/skilkor/AppData/Roaming/vlc/art/artistalbum/969/The%20Beginning%20Of%20Chaos/art.jpg</image>
<extension application="http://www.videolan.org/vlc/playlist/0">
<vlc:id>2</vlc:id>
</extension>
</track>
<track>
<location>file:///E:/03_Eigene%20Music/969/The%20Beginning%20Of%20Chaos/No%20One%20To%20Help%20Us.mp3</location>
<title>04-No One To Help Us</title>
<creator>969</creator>
<album>The Beginning Of Chaos</album>
<trackNum>4</trackNum>
<image>file:///C:/Users/skilkor/AppData/Roaming/vlc/art/artistalbum/969/The%20Beginning%20Of%20Chaos/art.jpg</image>
<extension application="http://www.videolan.org/vlc/playlist/0">
<vlc:id>3</vlc:id>
</extension>
</track>
<track>
<location>file:///E:/03_Eigene%20Music/969/The%20Beginning%20Of%20Chaos/Castel%20Of%20Desperation.mp3</location>
<title>05-Castel Of Desperation</title>
<creator>969</creator>
<album>The Beginning Of Chaos</album>
<trackNum>5</trackNum>
<image>file:///C:/Users/skilkor/AppData/Roaming/vlc/art/artistalbum/969/The%20Beginning%20Of%20Chaos/art.jpg</image>
<extension application="http://www.videolan.org/vlc/playlist/0">
<vlc:id>4</vlc:id>
</extension>
</track>
<track>
<location>file:///E:/03_Eigene%20Music/969/The%20Beginning%20Of%20Chaos/969%20%28Exactly%29.mp3</location>
<title>06-969 (Exactly)</title>
<creator>969</creator>
<album>The Beginning Of Chaos</album>
<trackNum>6</trackNum>
<image>file:///C:/Users/skilkor/AppData/Roaming/vlc/art/artistalbum/969/The%20Beginning%20Of%20Chaos/art.jpg</image>
<extension application="http://www.videolan.org/vlc/playlist/0">
<vlc:id>5</vlc:id>
</extension>
</track>
<track>
<location>file:///E:/03_Eigene%20Music/969/The%20Beginning%20Of%20Chaos/The%20Power%20Of%20Death.mp3</location>
<title>07-The Power Of Death</title>
<creator>969</creator>
<album>The Beginning Of Chaos</album>
<trackNum>7</trackNum>
<image>file:///C:/Users/skilkor/AppData/Roaming/vlc/art/artistalbum/969/The%20Beginning%20Of%20Chaos/art.jpg</image>
<extension application="http://www.videolan.org/vlc/playlist/0">
<vlc:id>6</vlc:id>
</extension>
</track>
<track>
<location>file:///E:/03_Eigene%20Music/969/The%20Beginning%20Of%20Chaos/Total%20Hate.mp3</location>
<title>08-Total Hate</title>
<creator>969</creator>
<album>The Beginning Of Chaos</album>
<trackNum>8</trackNum>
<image>file:///C:/Users/skilkor/AppData/Roaming/vlc/art/artistalbum/969/The%20Beginning%20Of%20Chaos/art.jpg</image>
<extension application="http://www.videolan.org/vlc/playlist/0">
<vlc:id>7</vlc:id>
</extension>
</track>
<track>
<location>file:///E:/03_Eigene%20Music/969/The%20Beginning%20Of%20Chaos/Untitled%20%28969%29.mp3</location>
<title>09-Untitled (969)</title>
<creator>969</creator>
<album>The Beginning Of Chaos</album>
<trackNum>9</trackNum>
<image>file:///C:/Users/skilkor/AppData/Roaming/vlc/art/artistalbum/969/The%20Beginning%20Of%20Chaos/art.jpg</image>
<extension application="http://www.videolan.org/vlc/playlist/0">
<vlc:id>8</vlc:id>
</extension>
</track>
<track>
<location>file:///E:/03_Eigene%20Music/969/The%20Beginning%20Of%20Chaos/I%20Am%20Your%20Nightmare.mp3</location>
<title>10-I Am Your Nightmare</title>
<creator>969</creator>
<album>The Beginning Of Chaos</album>
<trackNum>10</trackNum>
<image>file:///C:/Users/skilkor/AppData/Roaming/vlc/art/artistalbum/969/The%20Beginning%20Of%20Chaos/art.jpg</image>
<extension application="http://www.videolan.org/vlc/playlist/0">
<vlc:id>9</vlc:id>
</extension>
</track>
<track>
<location>file:///E:/03_Eigene%20Music/969/The%20Beginning%20Of%20Chaos/Muzik%20Non%20Pop.mp3</location>
<title>11-Muzik Non Pop</title>
<creator>969</creator>
<album>The Beginning Of Chaos</album>
<trackNum>11</trackNum>
<image>file:///C:/Users/skilkor/AppData/Roaming/vlc/art/artistalbum/969/The%20Beginning%20Of%20Chaos/art.jpg</image>
<extension application="http://www.videolan.org/vlc/playlist/0">
<vlc:id>10</vlc:id>
</extension>
</track>
<track>
<location>file:///E:/03_Eigene%20Music/969/The%20Beginning%20Of%20Chaos/Demented.mp3</location>
<title>12-Demented</title>
<creator>969</creator>
<album>The Beginning Of Chaos</album>
<trackNum>12</trackNum>
<image>file:///C:/Users/skilkor/AppData/Roaming/vlc/art/artistalbum/969/The%20Beginning%20Of%20Chaos/art.jpg</image>
<extension application="http://www.videolan.org/vlc/playlist/0">
<vlc:id>11</vlc:id>
</extension>
</track>
</trackList>
<extension application="http://www.videolan.org/vlc/playlist/0">
<vlc:item tid="0" />
<vlc:item tid="1" />
<vlc:item tid="2" />
<vlc:item tid="3" />
<vlc:item tid="4" />
<vlc:item tid="5" />
<vlc:item tid="6" />
<vlc:item tid="7" />
<vlc:item tid="8" />
<vlc:item tid="9" />
<vlc:item tid="10" />
<vlc:item tid="11" />
</extension>
</playlist>

[/autoit]

Nun, ich bin mir nicht Sicher wie ich dass Genau definieren kann und hoffe dass da jmd eine Idee hat ;D

Grüsse
Skilkor

***Edit***
Hier gehts weiter

i2c

Keine Ahnung was das im OffTopic zu suchen hat ...

einfaches Beispiel

[autoit]

#include <File.au3>

[/autoit] [autoit][/autoit] [autoit]

$sPlaylist = @ScriptDir & "\playlist.txt"
$sTitle = "irgendwas"
$sFolder = FileSelectFolder("", "", 2)
If @error Then Exit

[/autoit] [autoit][/autoit] [autoit]

$aFIles = _FileListToArray($sFolder, "*.mp3", 1)
If @error Then Exit

[/autoit] [autoit][/autoit] [autoit]

$hFile = FileOpen($sPlaylist, 1)
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 -- 12.0.7600.16415"/>' & @CRLF)
FileWrite($hFile, '<meta name="ItemCount" content="0"/>' & @CRLF)
FileWrite($hFile, '<meta name="IsFavorite"/>' & @CRLF)
FileWrite($hFile, '<meta name="ContentPartnerListID"/>' & @CRLF)
FileWrite($hFile, '<meta name="ContentPartnerNameType"/>' & @CRLF)
FileWrite($hFile, '<meta name="ContentPartnerName"/>' & @CRLF)
FileWrite($hFile, '<meta name="Subtitle"/>')
FileWrite($hFile, '<author/>' & @CRLF)
FileWrite($hFile, '<title>"' & $sTitle & '"</title>' & @CRLF)
FileWrite($hFile, '<body>' & @CRLF)
FileWrite($hFile, '<seq>' & @CRLF)
For $i = 1 To $aFIles[0]
FileWrite($hFile, '<media src="' & $sFolder & "\" & $aFIles[$i] & '"/>' & @CRLF)
Next
FileWrite($hFile, '</seq>' & @CRLF)
FileWrite($hFile, '</body>' & @CRLF)
FileWrite($hFile, '</smil>' & @CRLF)

[/autoit]

Bei mehreren Playlistformaten würden sich vlt. Templates anbieten.

Skilkor

Ups, hab ich dass OffTopic erwischt?? Wen ma jmd gelegenheit hat, pls Verschieben wen möglich

i2c
Sieht nicht schlecht aus danke für den Tip, du hast mich da auf eine Idee gebracht mal sehen ob das was wird, so wie ich mir das denke...wen nicht, naja Forum ist ja auch noch da hihi

LG Skilkor

**Oscar**

[verschoben nach H&U]

Skilkor

Danke Oscar
So ich bin auf gutem Fuse, ich hab die GUI und arbeite mich Stück für Stück vorran....Atm scheitere ich beim auslessen der Checkbox -.- normalerweisse sollte es ja so sein das wen man

Spoiler anzeigen

[autoit]

Func _Create()
Local $Checkbox1 = GUICtrlRead($Checkbox1,0)
If $Checkbox1 = 1 Then
_WMP()
ElseIf $Checkbox1 = 0 Then
MsgBox(4096, "Test", "Fail", 10)
EndIf
EndFunc

[/autoit]

Macht dass, dass man dan bei der verwendung der Func eine MsBox erhalten sollte....
Nur in diesemfalle bekomm ich jedesmal 0 zurück, ob die Checkbox Aktiviert ist oder nicht -.-
Liegt es am

[autoit]

ElseIf

[/autoit]

??
Wen ich das weglasse, etwa So

Spoiler anzeigen

[autoit]

Func _Create()
Local $Checkbox1 = GUICtrlRead($Checkbox1,0)
If $Checkbox1 = 1 Then
_WMP()
EndIf
EndFunc

[/autoit]

Bekomm ich garkeinen wert zurück

Grüsse

i2c

[autoit]

If BitAND(GUICtrlRead($CheckBox), $GUI_CHECKED) = $GUI_CHECKED Then

[/autoit]

Skilkor

Ohje ich hab das

[autoit]

BitAND

[/autoit]

Total vergessen

Is wohl doch schon ne zeit här das letztemal Danke i2c

Skilkor

Falls Meker wegen Doppel post.... Sorry, edits werden nicht angezeigt

HöHö, ich komm nicht mehr weiter
Jedesml wen ich im erstellen den Pfad auslessen will den ich in meinen Input setze bekomm ich 14 zurück was er mir dan natürlich auch angiebt...
ich hab es so gemacht das wen er Keine *.mp3 Findet das er ne MSg ausgibt

So hier mal mein Script, ich hoffe ihr verliert euch nicht darin
Sind nur knapp 200 zeilen bis jetze
Hoffe einer kann mir sagen Warum ich da 14 zurück bekomme...wen es daran liegt das ich etwas in das Input setze und dan wider auslesse, währ ich auch um hilfe froh...naja ich geh Jetze auf jeden Pennen nacht durch gefeiert und gedacht ich sizt nochn bissl drane

Spoiler anzeigen

[autoit]

#Region ### include ###
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#EndRegion ### include ###
;=============
#Region ### Wiedergabelieste ###
$WL_Creater = GUICreate("WL Creater",242,218,743,487)
$Group = GUICtrlCreateGroup("",8,40,225,137)
$Windows_Media_Player = GUICtrlCreateCheckbox("Windows Meadia Player",16,48,137,17)
$SongBird = GUICtrlCreateCheckbox("Songbird",160,48,65,17)
$Win_AMP = GUICtrlCreateCheckbox("Win AMP",16,64,73,17)
$VLC = GUICtrlCreateCheckbox("VLC",160,64,49,17)
$Real_Player = GUICtrlCreateCheckbox("Real Player",16,80,81,17)
$Label1 = GUICtrlCreateLabel("Tip: Wählt eine Widergabelisten Art aus. Seht euch die Hilfe an",16,144,203,25)
GUICtrlCreateGroup("",-99,-99,1,1)
$Create = GUICtrlCreateButton("Create",8,184,107,25,$WS_GROUP)
$FolderSearch = GUICtrlCreateButton("...",208,8,19,25,$WS_GROUP)
$Hilfe = GUICtrlCreateButton("Hilfe",120,184,107,25,$WS_GROUP)
$Path = GUICtrlCreateInput("Path",8,8,201,21)
GUISetState(@SW_SHOW)
#EndRegion ### Wiedergabelieste ###
;=============
#Region ### GUI_Event ###
#Region ### While ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
#Region ### Case ####
Case $GUI_EVENT_CLOSE
Exit
Case $Create ; Create Wiedergabelieste
_Create()
Case $FolderSearch ; Path
_FolderSearch()
Case $Hilfe
_Hilfe()
EndSwitch
WEnd
#Endregion ### While ###
#EndRegion ### Case ###
#EndRegion ### GUI_Event ###
;=============
#Region ### _FolderSearch ###
Func _FolderSearch()
$var = FileSelectFolder("Wähle einen Ordner", "", 4, "","")
ControlSetText("","",$Path,$var)
EndFunc
#EndRegion ### _FolderSearch ###
;=============
#Region### _Hilfe ###
Func _Hilfe()
MsgBox(4096, "Hilfe", "Zu Beachten"&@CRLF&"- Das Erste .mp3 File 'MUSS' Intakte mp3 Tag´s enthalten"&@CRLF&"- Wählt jeweils eine Kästchen für die Erstellung einer Wiedergabelieste aus."&@CRLF&"- Da man nicht 2 oder mehrere Wiedergabelisten auf einmal erstellen kann."&@CRLF&@CRLF&"Special Thanks to:"&@CRLF&"i2c:(Für die tolle Hilfestellung und Lösung meiner Fragen)"&@CRLF&@CRLF&"Oscar:(1: Fürs Korrigieren meiner Eiligen Finger, die das OffTopic erwischt"&@CRLF&" haben"&@CRLF&"2:Für seine Hilfe Er mag mir zwar nicht Direkt geholfen haben,"&@CRLF&"doch habe ich noch einige Scripte von Ihm (Unter anderem den MP3"&@CRLF&"Searcher) wo ich wieder einige dinge gelehrnt habe)"&@CRLF&@CRLF&"Createt by Skilkor")
EndFunc
#EndRegion ### _Hilfe ###
;=============
#Region ### _Fehler ### Wiedergabelieste
Func _Fehler()
MsgBox(48, 'Fehler', 'Keine Wiedergabelieste ausgewählt', 10)
EndFunc
#EndRegion ### _Fehler ### Wiedergabelieste
;=============
#Region ### _FehlerPath ### Pfad
Func _FehlerPath()
MsgBox(48, 'Fehler', 'Keinen Musik Ordner ausgewählt', 10)
EndFunc
#EndRegion ### _FehlerPath ### Pfad
;=============
#Region ### _FileSave ###
Func _FileSave()
$MyDocs = "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}"

[/autoit] [autoit][/autoit] [autoit]

$FileSave = FileSaveDialog( "Speichern der Playlist", $MyDocs, "Text files (*.ini;*.txt)", 2)
; option 2 = dialog remains until valid path/file selected

[/autoit] [autoit][/autoit] [autoit]

If @error Then
MsgBox(4096,"Abbruch","Speichern Abgerochen")
Else
MsgBox(4096,"","Sie haben " & $FileSave & " Ausgewählt")
EndIf
EndFunc
#EndRegion ### _FileSave ###
;=============
#Region ### Function ###
#Region ### _Create ###
Func _Create()
If BitAND(GUICtrlRead($Windows_Media_Player),$GUI_CHECKED) = $GUI_CHECKED Then
_WMP()
Else
If BitAND(GUICtrlRead($SongBird),$GUI_CHECKED) = $GUI_CHECKED Then
_SongBird()
Else
If BitAND(GUICtrlRead($Win_AMP),$GUI_CHECKED) = $GUI_CHECKED Then
_WAMP()
Else
If BitAND(GUICtrlRead($VLC),$GUI_CHECKED) = $GUI_CHECKED Then
_VLC()
Else
If BitAND(GUICtrlRead($Real_Player),$GUI_CHECKED) = $GUI_CHECKED Then
_RPlayer()

[/autoit] [autoit][/autoit] [autoit]

ElseIf BitAnd(GUICtrlRead($Windows_Media_Player),$GUI_CHECKED) = 0 Then
_Fehler()
Else
If BitAnd(GUICtrlRead($SongBird),$GUI_CHECKED) = 0 Then
_Fehler()
Else
If BitAND(GUICtrlRead($Win_AMP),$GUI_CHECKED) = 0 Then
_Fehler()
Else
If BitAnd(GUICtrlRead($VLC),$GUI_CHECKED) = 0 Then
_Fehler()
Else
If BitAnd(GUICtrlRead($Real_Player),$GUI_CHECKED) = 0 Then
_Fehler()
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndFunc
#EndRegion ### _Create ###
;=============
#Region ### _WMP ###
Func _WMP()
$sPlaylist = @DesktopDir & "\"&$Path&".txt" ;_FileSave()
$sTitle = $Path
;~ $sFolder = ;FolderSearch()
;~ If $sFolder = @error Then
;~ _FehlerPath()
;~ EndIf

[/autoit] [autoit][/autoit] [autoit]

$aFIles = _FileListToArray($Path, "*.mp3", 1)
If @error Then
MsgBox(4096, 'Error', 'Fehler, Keine *.mp3 Dateien gefunden')
EndIf

[/autoit] [autoit][/autoit] [autoit]

$hFile = FileOpen($sPlaylist, 1)
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 -- 12.0.7600.16415"/>' & @CRLF)
FileWrite($hFile, '<meta name="ItemCount" content="0"/>' & @CRLF)
FileWrite($hFile, '<meta name="IsFavorite"/>' & @CRLF)
FileWrite($hFile, '<meta name="ContentPartnerListID"/>' & @CRLF)
FileWrite($hFile, '<meta name="ContentPartnerNameType"/>' & @CRLF)
FileWrite($hFile, '<meta name="ContentPartnerName"/>' & @CRLF)
FileWrite($hFile, '<meta name="Subtitle"/>')
FileWrite($hFile, '<author/>' & @CRLF)
FileWrite($hFile, '<title>"' & $sTitle & '"</title>' & @CRLF)
FileWrite($hFile, '<body>' & @CRLF)
FileWrite($hFile, '<seq>' & @CRLF)
For $i = 1 To $aFIles[0]
FileWrite($hFile, '<media src="' & $Path & "\" & $aFIles[$i] & '"/>' & @CRLF)
Next
FileWrite($hFile, '</seq>' & @CRLF)
FileWrite($hFile, '</body>' & @CRLF)
FileWrite($hFile, '</smil>' & @CRLF)
EndFunc
#EndRegion ### _WMP ###
;=============
#Region ### _SongBird ###
Func _SongBird()
MsgBox(4096, "Test", "SongBird", 10)
EndFunc
#Endregion ### _SongBird ###
;=============
#Region ### _WAMP ###
Func _WAMP()
MsgBox(4096, "Test", "WAMP", 10)
EndFunc
#EndRegion ### _WAMP ###
;=============
#Region ### _VLC ###
Func _VLC()
MsgBox(4096, "Test", "VLC", 10)
EndFunc
#EndRegion ### _VLC ###
;=============
#Region ### _RPlayer ###
Func _RPlayer()
MsgBox(4096, "Test", "Real Player", 10)
EndFunc
#EndRegion ### _RPlayer ###
#EndRegion ### Funtion ###

[/autoit]

Btw...Fallt nicht um wen ihr meine _Create() func seht mir is nix anderes eingefallen wie ich sonnst einzeln die Checkbox´es abfragen soll um somit die jeweilige Func zu erreichen

Grüsse Skilkor

i2c

Du gehst falsch mit der Variablen $Path um. Das ist die ID deines Input Controls.
Um an den Inhalt des Inputs zu kommen: GUICtrlRead($Path) - z.B. in Zeile 132 und 139

Skilkor

Ohä, ich wahr wohl doch Müde als ich geantwortet habe.
Das ganze funktioniert soweit wie ich das nun vorerst haben möchte...

Bei der Wiedergabeliste erstellung des Programmes Songbird (Siehe ersten Beitrag)
da vermutte ich das ich die mp3 tags auslessen muss, und da ich leider keinen schimmer habe wie ich dass mache, frage ich nun "Dich" i2c, ob du dass weisst und mir evt ein tip odr hilfestellung dazu geben kannst?

Hier nochmal das Script:

Spoiler anzeigen

[autoit]

#include <File.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ID3.au3>
#Region ### include ###
#EndRegion ### include ###
;=============
#Region ### Wiedergabelieste ###
$WL_Creater = GUICreate("WL Creater",242,218,743,487)
$Group = GUICtrlCreateGroup("",8,40,225,137)
$Windows_Media_Player = GUICtrlCreateCheckbox("Windows Meadia Player",16,48,137,17)
$SongBird = GUICtrlCreateCheckbox("Songbird",160,48,65,17)
$Win_AMP = GUICtrlCreateCheckbox("Win AMP",16,64,73,17)
$VLC = GUICtrlCreateCheckbox("VLC",160,64,49,17)
$Real_Player = GUICtrlCreateCheckbox("Real Player",16,80,81,17)
$Label1 = GUICtrlCreateLabel("Tip: Wählt eine Widergabelisten Art aus. Seht euch die Hilfe an",16,144,203,25)
GUICtrlCreateGroup("",-99,-99,1,1)
$Create = GUICtrlCreateButton("Create",8,184,107,25,$WS_GROUP)
$FolderSearch = GUICtrlCreateButton("...",208,8,19,25,$WS_GROUP)
$Hilfe = GUICtrlCreateButton("Hilfe",120,184,107,25,$WS_GROUP)
$Path = GUICtrlCreateInput("Path",8,8,201,21)
GUISetState(@SW_SHOW)
#EndRegion ### Wiedergabelieste ###
;=============
#Region ### GUI_Event ###
#Region ### While ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
#Region ### Case ####
Case $GUI_EVENT_CLOSE
Exit
Case $Create ; Create Wiedergabelieste
_Create()
Case $FolderSearch ; Path
_FolderSearch()
Case $Hilfe
_Hilfe()
EndSwitch
WEnd
#Endregion ### While ###
#EndRegion ### Case ###
#EndRegion ### GUI_Event ###
;=============
Global $Folder
#Region ### _FolderSearch ###
Func _FolderSearch()
$Folder = FileSelectFolder("Wähle einen Ordner", "", 4, "","")
ControlSetText("","",$Path,$Folder)
EndFunc
#EndRegion ### _FolderSearch ###
;=============
#Region### _Hilfe ###
Func _Hilfe()
MsgBox(4096, "Hilfe", "Zu Beachten"&@CRLF&"- Das Erste .mp3 File 'MUSS' Intakte mp3 Tag´s enthalten"&@CRLF&"- Wählt jeweils eine Kästchen für die Erstellung einer Wiedergabelieste aus."&@CRLF&"- Da man nicht 2 oder mehrere Wiedergabelisten auf einmal erstellen kann."&@CRLF&@CRLF&"Special Thanks to:"&@CRLF&"i2c: (Für die tolle Hilfestellung und Lösung meiner Fragen)"&@CRLF&@CRLF&"Oscar: (1: Fürs Korrigieren meiner Eiligen Finger, die das OffTopic erwischt"&@CRLF&" haben"&@CRLF&" 2:Für seine Hilfe Er mag mir zwar nicht Direkt geholfen haben,"&@CRLF&" doch habe ich noch einige Scripte von Ihm (Unter anderem den MP3"&@CRLF&" Searcher) wo ich wieder einige dinge gelehrnt habe)"&@CRLF&@CRLF&"Createt by Skilkor")
EndFunc
#EndRegion ### _Hilfe ###
;=============
#Region ### _Fehler ### Wiedergabelieste
Func _Fehler()
MsgBox(48, 'Fehler', 'Keine Wiedergabelieste ausgewählt', 10)
EndFunc
#EndRegion ### _Fehler ### Wiedergabelieste
;=============
#Region ### _FehlerPath ### Pfad
Func _FehlerPath()
MsgBox(48, 'Fehler', 'Keinen Musik Ordner ausgewählt', 10)
EndFunc
#EndRegion ### _FehlerPath ### Pfad
;=============
#Region ### _FileSave ###
Func _FileSave()
$MyDocs = "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}"

[/autoit] [autoit][/autoit] [autoit]

$FileSave = FileSaveDialog( "Speichern der Playlist", $MyDocs, "Text files (*.ini;*.txt)", 2)
; option 2 = dialog remains until valid path/file selected

[/autoit] [autoit][/autoit] [autoit]

If @error Then
MsgBox(4096,"Abbruch","Speichern Abgerochen")
Else
MsgBox(4096,"","Sie haben " & $FileSave & " Ausgewählt")
EndIf
EndFunc
#EndRegion ### _FileSave ###
;=============
#Region ### Function ###
#Region ### _Create ###
Func _Create()
If BitAND(GUICtrlRead($Windows_Media_Player),$GUI_CHECKED) = $GUI_CHECKED Then
_WMP()
Else
If BitAND(GUICtrlRead($SongBird),$GUI_CHECKED) = $GUI_CHECKED Then
_SongBird()
Else
If BitAND(GUICtrlRead($Win_AMP),$GUI_CHECKED) = $GUI_CHECKED Then
_WAMP()
Else
If BitAND(GUICtrlRead($VLC),$GUI_CHECKED) = $GUI_CHECKED Then
_VLC()
Else
If BitAND(GUICtrlRead($Real_Player),$GUI_CHECKED) = $GUI_CHECKED Then
_RPlayer()

[/autoit] [autoit][/autoit] [autoit]

ElseIf BitAnd(GUICtrlRead($Windows_Media_Player),$GUI_CHECKED) = 0 Then
_Fehler()
Else
If BitAnd(GUICtrlRead($SongBird),$GUI_CHECKED) = 0 Then
_Fehler()
Else
If BitAND(GUICtrlRead($Win_AMP),$GUI_CHECKED) = 0 Then
_Fehler()
Else
If BitAnd(GUICtrlRead($VLC),$GUI_CHECKED) = 0 Then
_Fehler()
Else
If BitAnd(GUICtrlRead($Real_Player),$GUI_CHECKED) = 0 Then
_Fehler()
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndFunc
#EndRegion ### _Create ###
;=============
#Region ### _WMP ###
Func _WMP()
GUICtrlRead($Path)
$sPlaylist = @ScriptDir & "\Playlist.wpl"
$sTitle = GUICtrlRead($Path,1)
$Folder = GUICtrlRead($Path)
If @error Then
_Fehler()
EndIf

[/autoit] [autoit][/autoit] [autoit]

$aFIles = _FileListToArray($Folder, "*.mp3", 1)
If @error Then
MsgBox(4096, 'Error', 'Fehler, Keine *.mp3 Dateien gefunden')
EndIf

[/autoit] [autoit][/autoit] [autoit]

$hFile = FileOpen($sPlaylist, 1)
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 -- 12.0.7600.16415"/>' & @CRLF)
FileWrite($hFile, ' <meta name="ItemCount" content="0"/>' & @CRLF)
FileWrite($hFile, ' <meta name="IsFavorite"/>' & @CRLF)
FileWrite($hFile, ' <meta name="ContentPartnerListID"/>' & @CRLF)
FileWrite($hFile, ' <meta name="ContentPartnerNameType"/>' & @CRLF)
FileWrite($hFile, ' <meta name="ContentPartnerName"/>' & @CRLF)
FileWrite($hFile, ' <meta name="Subtitle"/>')
FileWrite($hFile, ' <author/>' & @CRLF)
FileWrite($hFile, ' <title>"' & $sTitle & '"</title>' & @CRLF)
FileWrite($hFile, ' </head>' & @CRLF)
FileWrite($hFile, ' <body>' & @CRLF)
FileWrite($hFile, ' <seq>' & @CRLF)
For $i = 1 To $aFIles[0]
FileWrite($hFile, ' <media src="' & $Folder & "\" & $aFIles[$i] & '"/>' & @CRLF)
Next
FileWrite($hFile, ' </seq>' & @CRLF)
FileWrite($hFile, ' </body>' & @CRLF)
FileWrite($hFile, '</smil>' & @CRLF)
EndFunc
#EndRegion ### _WMP ###
;=============
#Region ### _SongBird ###
Func _SongBird()
;~ GUICtrlRead($Path)
;~ $sPlaylist = @ScriptDir & "\Playlist.pls"
;~ $sTitle = GUICtrlRead($Path,1)
;~ $Folder = GUICtrlRead($Path)
;~ If @error Then
;~ _Fehler()
;~ EndIf

[/autoit] [autoit][/autoit] [autoit]

;~ $aFIles = _FileListToArray($Folder, "*.mp3", 1)
;~ If @error Then
;~ MsgBox(4096, 'Error', 'Fehler, Keine *.mp3 Dateien gefunden')
;~ EndIf

[/autoit] [autoit][/autoit] [autoit]

;~ $hFile = FileOpen($sPlaylist, 1)
;~ FileWrite($hFile, '[playlist]' & @CRLF)
;~ FileWrite($hFile, 'NumberOfEntries=01' & @CRLF & @CRLF)
;~ FileWrite($hFile, 'File1=../../' & & @CRLF)
;~ FileWrite($hFile, '<meta name="Generator" content="Microsoft Windows Media Player -- 12.0.7600.16415"/>' & @CRLF)
;~ FileWrite($hFile, '<meta name="ItemCount" content="0"/>' & @CRLF)
;~ FileWrite($hFile, '<meta name="IsFavorite"/>' & @CRLF)
;~ FileWrite($hFile, '<meta name="ContentPartnerListID"/>' & @CRLF)
;~ FileWrite($hFile, '<meta name="ContentPartnerNameType"/>' & @CRLF)
;~ FileWrite($hFile, '<meta name="ContentPartnerName"/>' & @CRLF)
;~ FileWrite($hFile, '<meta name="Subtitle"/>')
;~ FileWrite($hFile, '<author/>' & @CRLF)
;~ FileWrite($hFile, '<title>"' & $sTitle & '"</title>' & @CRLF)
;~ FileWrite($hFile, '<body>' & @CRLF)
;~ FileWrite($hFile, '<seq>' & @CRLF)
;~ For $i = 1 To $aFIles[0]
;~ FileWrite($hFile, '<media src="' & $Folder & "\" & $aFIles[$i] & '"/>' & @CRLF)
;~ Next
;~ FileWrite($hFile, '</seq>' & @CRLF)
;~ FileWrite($hFile, '</body>' & @CRLF)
;~ FileWrite($hFile, '</smil>' & @CRLF)
EndFunc
#Endregion ### _SongBird ###
;=============
#Region ### _WAMP ###
Func _WAMP()
MsgBox(4096, "Test", "WAMP", 10)
EndFunc
#EndRegion ### _WAMP ###
;=============
#Region ### _VLC ###
Func _VLC()
MsgBox(4096, "Test", "VLC", 10)
EndFunc
#EndRegion ### _VLC ###
;=============
#Region ### _RPlayer ###
Func _RPlayer()
MsgBox(4096, "Test", "Real Player", 10)
EndFunc
#EndRegion ### _RPlayer ###
#EndRegion ### Funtion ###

[/autoit]

Was mir noch fehlt bei der erstellung der .wpl würd ich Gerne bei "Titel" nur die lezten 2 Ordner des Ausgewählten Pfades...gäbe es da eine Möglichkeit????

Skilkor

**autoBert**

Hallo Skilkor,

den Pfad dannst du so kürzen:

[autoit]

$Folder = "C:\Programme\AutoIt3\MyProjects\MP3_Batchdownloader\Downloaded\Marius Müller Westernhagen"
$aFolder = StringSplit($Folder,"\")
if IsArray($aFolder) Then $Folder = $aFolder[$aFolder[0]-1] & "\" & $aFolder[$aFolder[0]]
ConsoleWrite($Folder & @crlf); zur Kontrolle kann gelöscht werden

[/autoit]

Oscar liest in seinem Starplayer v3 Informationen aus den ID3-Tags. Die benötigte UDF ist auch dabei,

mfg autoBert

Skilkor

wen ich das richtig sehe steht

[autoit]

$Folder = "C:\Programme\AutoIt3\MyProjects\MP3_Batchdownloader\Downloaded\Marius Müller Westernhagen"

[/autoit]

für den gewählten Pfad oder?
und der Rest

[autoit]

$aFolder = StringSplit($Folder,"\")
if IsArray($aFolder) Then $Folder = $aFolder[$aFolder[0]-1] & "\" & $aFolder[$aFolder[0]]
ConsoleWrite($Folder & @crlf); zur Kontrolle kann gelöscht werden

[/autoit]

für die Kürzung oder?

Was das mit Oscars Programm angeht... das "ID3Tag.au3" File angeht, ich muss mir das dan wohl mal genauer anschauen, da ich keine ahnung habe welche Informationen am ende ausgegeben werden... Falls ich nicht schlau draus werde, frag ich mal Oscar

Aber schonmal vielen dank autoBert

Skilkor

**Oscar**

Hier (ID3Tag.au3) findest Du die UDF einzeln und mit Beispiel.

Skilkor

wuhu...>_< Array´s xD
Ich versuch mich immer so ut wie möglichst um die "Array´s" drum herum zu schlängeln
Das ich sie auch janicht verwenden muss xD
Naja bleibt mir wol nix anderes übrig.

**Edit**
Okey ich bekomms mit den ausgaben der Array´s nicht hin XD
Naja dass heisst dan wohl dass ich mich wider einmal mit array´s beschäftigen muss -.- ich bekomm array´s ainfach nicht in die Birne -.-

Danke Oscar

**Oscar**

So ein Projekt kann man ohne Arrays doch gar nicht vernünftig aufziehen. Du musst alle Dateinamen aus dem Verzeichnis einlesen (Array), dann die ID3-Tags zu jedem Titel auslesen (Array) und mit diesen Angaben eine Textdatei erstellen.
BTW: Ich verwende bei meinem Starplayer das m3u-Playlistformat. Das ist in der einfachsten Form nur eine Auflistung der MP3-Dateinamen (ein Titel pro Zeile). Dieses Format wird von den meisten Playern unterstützt.

Skilkor

Da siwrd mir erst jetz richtig bewusst...
Dann muss ich allso bei
FileWrite()
ersteinmal das Array aufrufen und dann aus dem array heraus die gewünschte Angabe heraus schreiben
Seh ich dass so richtig?

**edit**
naja ich nehem mir mal deinen starplayer inter die lupe, da musst du ja die gesuchten array's aufrufen falls ich dann immernochnichts kapiett habe bin ich wohl echt zu blöd für array's -.- odr finde einfach niemanden der mir das richtig schön erklären kann man schreibt sich sicher wider

** edit2**
handy surfen is ja schon geil...aber die tipfehler sind ultra xD

**Edit3**
Ich habe mal eine plalist mit deinem "StarPlayer" erstellt
dieses .m3u file Hat eine komplet anderen Aufbau als den ich kenne...
Hier

Spoiler anzeigen

[autoit]

E:\03_Eigene Music\969\The Beginning Of Chaos\The Beginning.mp3
E:\03_Eigene Music\969\The Beginning Of Chaos\Wrong Time Wrong Place.mp3
E:\03_Eigene Music\969\The Beginning Of Chaos\Politixx.mp3
E:\03_Eigene Music\969\The Beginning Of Chaos\No One To Help Us.mp3
E:\03_Eigene Music\969\The Beginning Of Chaos\Castel Of Desperation.mp3
E:\03_Eigene Music\969\The Beginning Of Chaos\969 (Exactly).mp3
E:\03_Eigene Music\969\The Beginning Of Chaos\The Power Of Death.mp3
E:\03_Eigene Music\969\The Beginning Of Chaos\Total Hate.mp3
E:\03_Eigene Music\969\The Beginning Of Chaos\Untitled (969).mp3
E:\03_Eigene Music\969\The Beginning Of Chaos\I Am Your Nightmare.mp3
E:\03_Eigene Music\969\The Beginning Of Chaos\Muzik Non Pop.mp3
E:\03_Eigene Music\969\The Beginning Of Chaos\Demented.mp3

[/autoit]

Dieses .m3u File Funktioniert bis jetz mit dem "Windows Media Player"|"Real Player"|"VLC"
Songbird hab ich Nicht getestet...werd ich aber = mal versuchen....

**Edit4**
Getestet....Funktioniert für die Wiedergabe...Sowie für das Importieren der Wiedergabeliste....
Wen das so ist Benötige ich "Theoretisch" den ID3Tag garnicht.... das macht das ganze ja ihrgendwie einfach und langweilig

Wobei, wen ich bedenken will dass die Wiedergabeliste nicht nach dem Namen der .mp3 geordned sein sollen sondern nacht "Titel Nr" benötige ich dafür Eigentlich nur das auslessen der "Titel Nr" des .mp3 Files
und, ich Frage mich gerade wie ich dass anstelle OHNE ID3Tag...da ich ja "NUR" den einen Wert benötige

Wen jmd etwas einfallt, Pls Melden Danke

Skilkor

Skilkor

Ich hab ein weng rumgespielt und "WL Easy" erstellt... der einfach nur ein "*.m3u" File Erstellt

Spoiler anzeigen

[autoit]

#Region ### include ###
#include <Array.au3>
#include <File.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#EndRegion ### include ###
;=============
#Region ### GUI ###
GUICreate("WL Easy", 242, 107, 652, 492)
GUICtrlCreateGroup("", 8, 40, 225, 57)
$Create = GUICtrlCreateButton("Create", 32, 56, 75, 25, $WS_GROUP)
$Hilfe = GUICtrlCreateButton("Hilfe", 136, 56, 75, 25, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Folder_Search = GUICtrlCreateButton("...", 216, 8, 19, 25, $WS_GROUP)
$Path = GUICtrlCreateInput("Pfad", 8, 8, 209, 21)
GUISetState(@SW_SHOW)
#EndRegion ### GUI ###
;=============
#Region ### Global ###
Global $Path
Global $FileSave
#EndRegion ### Global ###
;=============
#Region ### GUI Event ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

[/autoit] [autoit][/autoit] [autoit]

Case $Create
_Create()
Case $Folder_Search
_FolderSearch()
Case $Hilfe
_Hilfe()
EndSwitch
WEnd
#EndRegion ### GUI Event ###
;=============
#Region ### FileSave ###
Func _FileSave($FileSave)
$MyDocs = "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}"
$Name = GUICtrlRead($Path)
$FileSave = FileSaveDialog( "Speichern der Playlist",$MyDocs,"(*.m3u)",$Name,2)
; option 2 = dialog remains until valid path/file selected

[/autoit] [autoit][/autoit] [autoit]

If @error Then
MsgBox(4096,"Abbruch","Speichern Abgerochen")
Else
MsgBox(4096,"","Sie haben " & $FileSave & " Ausgewählt")
EndIf
EndFunc
#EndRegion ### FileSave ###
;=============
#Region ### _Create() ###
Func _Create()
$Name = GUICtrlRead($Path,1)
$sPlaylist = _FileSave($FileSave) ;@DesktopDir & "\Test.m3u"
$sTitle = GUICtrlRead($Path,1)
$Folder = GUICtrlRead($Path)
If @error Then
_Fehler()
EndIf

[/autoit] [autoit][/autoit] [autoit]

$aFIles = _FileListToArray($Folder, "*.mp3", 1)
If @error Then
MsgBox(4096, 'Error', 'Fehler, Keine *.mp3 Dateien gefunden')
EndIf

[/autoit] [autoit][/autoit] [autoit]

$hFile = FileOpen($sPlaylist, 1)
For $i = 1 To $aFIles[0]
FileWrite($hFile,$Folder&$aFIles[$i] & @CRLF)
Next
EndFunc
#EndRegion ### _Create ###
;=============
#Region ### _FolderSearch() ###
Func _FolderSearch()
$Folder = FileSelectFolder("Wähle einen Ordner", "", 4, "","")
ControlSetText("","",$Path,$Folder)
EndFunc
#Endregion ### _FolderSearch() ###
;=============
#Region ### _Hilfe() ###
Func _Hilfe()
MsgBox(4096, 'Hilfe','Wiedergabelisten Beschreibung'&@CRLF&@CRLF&'WL Easy erstellt ein "*.m3u" File,welches von'&@CRLF&'mehreren Playern verwendet werden kann z.B.'&@CRLF&'- Windows Media Player'&@CRLF&'- Song Bird'&@CRLF&'- Real Player'&@CRLF&'- Video Lan (VLC)'&@CRLF&'- Win Amp'&@CRLF&'und viele andere'&@CRLF&@CRLF&'Ein Danke an:'&@CRLF&'i2c: Für seine Hilfe und Ideen'&@CRLF&@CRLF&'Createt by Skilkor')
EndFunc
#Endregion ###_Hilfe() ###
;=============
#Region ### _Fehler() ###
Func _Fehler()
MsgBox(48, 'Fehler', 'Keine Wiedergabelieste ausgewählt')
EndFunc
#EndRegion ### _Fehler() ###

[/autoit]

Ich bin mir immernoch am überlegen wie ich bei (Create) & (FileSave) den Name richtig hinbekomme....selbst wen ich die ($Name) entferne und diese option freilasse....wird der Eingetipte Name bei (FileSave) nicht akzeptiert und eine 0 dahin gepflanzt -.-

Skilkor