hallo ihr!
Warscheinlich wurde diese frage schon oft gestellt ... allerdings habe ich nichts passendes in der suche gefunden!
also: Ich möchte einen script machen, der mir anzeigt welche Dateien (in meinem falle *.mp3 dateien) in einem ordner sind, und diese in einer liste anzeigt!
wenn ich dann auf einen Titel klicke soll sich mein standart mediaplayer öffnen!
Ich höffe ihr könnt mir helfen!
Vielen Dank im Vorraus ... Mfg Lenny 
Aber, aber - nix in der Suche gefunden :lol:
Wonach hast du da nur gesucht? 
Schau mal FileFindFirstFile() / FileFindNextFile()
Dort kannst du mit Wildcards suchen.
Die gefundenen Dateinamen einfach in eine Liste füllen.
Bei Klick auf Listenelement Shellexecute()
So mal als grobe Anleitung.
Hallo!
Ist der Anfang so okay ?
#include <GUIConstants.au3>
[/autoit] [autoit][/autoit] [autoit]#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("AForm1", 395, 447, 694, 280)
$Find = FileFindFirstFile("C:\Dokumente und Einstellungen\Lenny\Eigene Dateien\Meine Musik\*.mp3")
$liste = GUICtrlCreateList($find , 0, 24, 393, 409)
$Button1 = GUICtrlCreateButton("Schließen", 152, 0, 75, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Danke im Vorraus ...
Ich hab doch ein List (GUICtrlCreateList($find , 0, 24, 393, 409)
oder noch was anderes ?
Hi!
Für die Anzeige brauchst du eine List oder LIstView (GUICTRLCreateList(View)).
Die füllst du dann mit den Ergebnisse aus FilFindFirstFile oder _FIleListToArray.
Edit: Sorry, hatte nur kurz drüber geschaut und gedacht, du verwendest $Find = FileFindFirstFile("C:\Dokumente und Einstellungen\Lenny\Eigene Dateien\Meine Musik\*.mp3") als Control. Das Füllen muss trotzdem in einer Schleife passieren, siehe dazu zumindest mal das Beispiel in der Hilfe zu FileFindFirstFile.
peethebee
Hallo!
Erstmal danke für die schnellen antoworten!
Also ... ich habe es jetzt so gemacht:
#include <GUIConstants.au3>
$Form1 = GUICreate("AForm1", 395, 447, 694, 280)
$Button1 = GUICtrlCreateButton("Schließen", 152, 0, 75, 25, 0)
$search = FileFindFirstFile("C:\Dokumente und Einstellungen\Lenny\Eigene Dateien\Meine Musik\*.mp3")
If $search = -1 Then
MsgBox(0, "Error", "No files/directories matched the search pattern")
Exit
EndIf
While 1
$file = FileFindNextFile($search)
If @error Then ExitLoop
$liste = GUICtrlCreateList($file, 0, 24, 393, 409)
WEnd
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
Exit
EndSwitch
WEnd
[/autoit]Ich sehe auch meine ganze musik ... sie läuft allerdings in der obersten spalte in sekunden schnelle durch ... (10 lieder ca. 1sek) ...
was muss ich noch hinzufügen ?
Vielne Dank im Vorraus!
Edit1:
Ich hab den Button1 aus der While schleife rausgenommen (war nur ausversehen da) jetzt laufen alle lieder ca in (0.5 sek) durch ... 
.. Oo
Hat sich ja eig nichts geändert!
Lenny
Edit2: ... GUISetState(@SW_SHOW) hab ich jetzt auch rausgelassen ... noch schneller !!! ... je weniger da drinnen ist desto schneller wird iwie !?
Lenny
Du mußt erst die Liste in der GUI erstellen, dann die Daten suchen und dann die Liste befüllen.
Ich habs mal vorbereitet.
#include <GUIConstants.au3>
#Include <GuiList.au3>
Dim $arFile[1]
$Form1 = GUICreate("AForm1", 395, 447, 694, 280)
$Button1 = GUICtrlCreateButton("Schließen", 152, 0, 75, 25, 0)
$liste = GUICtrlCreateList('', 0, 24, 393, 409)
$search = FileFindFirstFile("C:\Dokumente und Einstellungen\Lenny\Eigene Dateien\Meine Musik\*.mp3")
If $search = -1 Then
MsgBox(0, "Error", "No files/directories matched the search pattern")
Exit
EndIf
While 1
$file = FileFindNextFile($search)
If @error Then ExitLoop
ReDim $arFile[UBound($arFile)+1]
$arFile[UBound($arFile)-1] = $file
WEnd
For $i = 1 To UBound($arFile) -1
_GUICtrlListAddItem ( $liste, $arFile[$i] )
Next
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
Exit
EndSwitch
WEnd
Einfacher!?
[autoit]#include <GUIConstants.au3>
#Include <GuiList.au3>
Dim $arFile[1]
$Form1 = GUICreate("AForm1", 395, 447, 694, 280)
$Button1 = GUICtrlCreateButton("Schließen", 152, 0, 75, 25, 0)
$liste = GUICtrlCreateList('', 0, 24, 393, 409)
$search = FileFindFirstFile("C:\Dokumente und Einstellungen\Lenny\Eigene Dateien\Meine Musik\*.mp3")
If $search = -1 Then
MsgBox(0, "Error", "No files/directories matched the search pattern")
Exit
EndIf
While 1
$file = FileFindNextFile($search)
If @error Then ExitLoop
_GUICtrlListAddItem ( $liste, $file )
WEnd
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
Exit
EndSwitch
WEnd
peethebee
Joa .. super !
Funzt beides Super ... obwohl mir peethebee's lösung ein Bissl besser gefällt weils einfacher zu verstehen ist ...
Könntet ihr mir noch sagen was man braucht um das lied abzuspieln ? ... also nur sagen ... würd ich gern selber basteln ...
Vielen Dank im Vorraus ....
Also warscheinlich
Case $***
Und hier?
Vielen Dank ...
Lenny
edit1:
So könnte ihc es mir vorstellen:
[autoit]#include <GUIConstants.au3>
#Include <GuiList.au3>
Dim $arFile[1]
$Form1 = GUICreate("AForm1", 395, 447, 694, 280)
$Button1 = GUICtrlCreateButton("Schließen", 152, 0, 75, 25, 0)
$liste = GUICtrlCreateList('', 0, 24, 393, 409)
$search = FileFindFirstFile("C:\Dokumente und Einstellungen\Lenny\Eigene Dateien\Meine Musik\*.mp3")
If $search = -1 Then
MsgBox(0, "Error", "No files/directories matched the search pattern")
Exit
EndIf
While 1
$file = FileFindNextFile($search)
If @error Then ExitLoop
_GUICtrlListAddItem ( $liste, $file )
WEnd
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
Exit;;;;;
Case $liste
ShellExecute("wmplayer.exe", $search);;;;;
EndSwitch
WEnd
aBER das klappt natürlich nicht -.-
Lenny
Denk doch mal etwas nach
Du mußt einen Eintrag markieren, dann auslesen und erst dann kannst du die Datei ausführen.
Zwei Möglichkeiten:
- Auswahl per Doppelklick oder
- Eintrag markieren und per Kontextmenü auslesen
Für Doppelklick habe ich im Skriptforum ein Bsp. stehen, wie du Doppelklick auf jedes Control anwenden kannst.
Danke Bugfix
...Omg ,,, hätte ja nicht gedacht das dieser script so komplex ist ...
Ich werde es versuchen ... wenn es nciht klappt mach ich mit leichteren sachen weiter ... 
Kannst du mir denn wenigstens einen Anfang für
Makieren ~~~~> auslesen .... Geben ?
Ich habe mir den Doppelklick script schon angeguckt und dieser ist wirklich ziemlich komplex ...
Lenny
Guckst du
#include <GUIConstants.au3>
#Include <GuiList.au3>
Opt("GUIOnEventMode", 1)
Opt("MouseCoordMode", 0) ; Maus-Koordinaten relativ zum Fenster
Global $start
Global $n = 0
Global $MousePos = True
Global $pos
Global $clickspeed = RegRead("HKEY_CURRENT_USER\Control Panel\Mouse", "DoubleClickSpeed")
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 467, 260, 193, 115)
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
GUISetOnEvent($GUI_EVENT_PRIMARYDOWN, '_PRIMARYdown')
GUISetOnEvent($GUI_EVENT_PRIMARYUP, '_PRIMARYup')
$List1 = GUICtrlCreateList("", 25, 18, 290, 175, BitOR($WS_BORDER, $WS_VSCROLL))
$Input1 = GUICtrlCreateInput("", 25, 214, 290, 21)
$MyButton1 = GUICtrlCreateButton("Liste füllen", 340, 34, 100, 30, 0)
GUICtrlSetOnEvent(-1, '_FillList')
$MyButton2 = GUICtrlCreateButton("Liste leeren", 344, 148, 100, 30, 0)
GUICtrlSetOnEvent(-1, '_ClearList')
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
Sleep(100)
WEnd
Func Form1Close()
Exit
EndFunc
Func _FillList()
For $i = 1 To 20
_GUICtrlListAddItem ( $List1, "Eintrag Nummer: " & $i )
Next
EndFunc
Func _ClearList()
_GUICtrlListClear ( $List1 )
EndFunc
Func _List_1_DblClick()
Local $txt = _GUICtrlListGetSelItemsText ( $List1 )
If IsArray($txt) Then GUICtrlSetData( $Input1, $txt[1] )
EndFunc
Func _PRIMARYdown()
$pos = MouseGetPos()
Select
Case _CheckCtrlDblClick($Form1, $List1)
_List_1_DblClick()
Case Else
$MousePos = False
EndSelect
EndFunc
Func _PRIMARYup()
If $MousePos Then
If $n = 2 Then
$n = 0
Else
$start = TimerInit()
EndIf
EndIf
EndFunc
Func _CheckCtrlDblClick($GUI, $CTRL)
Local $CtrlPos = ControlGetPos($GUI, '', $CTRL)
If ($pos[0] >= $CtrlPos[0] And $pos[0] <= $CtrlPos[0] + $CtrlPos[2]) And _
($pos[1] >= $CtrlPos[1] +20 And $pos[1] <= $CtrlPos[1] +20 + $CtrlPos[3]) Then
$n += 1
$MousePos = True
If $n = 2 And (TimerDiff($start) < $clickspeed) Then
Return True
Else
$start = TimerInit()
$n = 1
EndIf
EndIf
EndFunc
Dran denken: Verwende OnEvent-Mode
Hier, ich hab mal deine Ausleseroutine mit eingebunden.
Check mal obs so läuft.
#include <GUIConstants.au3>
#Include <GuiList.au3>
Opt("GUIOnEventMode", 1)
Opt("MouseCoordMode", 0)
Global $start
Global $n = 0
Global $MousePos = True
Global $pos
Global $clickspeed = RegRead("HKEY_CURRENT_USER\Control Panel\Mouse", "DoubleClickSpeed")
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 395, 447, -1, -1)
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
GUISetOnEvent($GUI_EVENT_PRIMARYDOWN, '_PRIMARYdown')
GUISetOnEvent($GUI_EVENT_PRIMARYUP, '_PRIMARYup')
$List1 = GUICtrlCreateList("", 20, 20, 355, 407, BitOR($WS_BORDER, $WS_VSCROLL))
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
_FillList()
[/autoit] [autoit][/autoit] [autoit]While 1
Sleep(100)
WEnd
Func Form1Close()
Exit
EndFunc
Func _FillList()
Local $search = FileFindFirstFile("C:\Dokumente und Einstellungen\Lenny\Eigene Dateien\Meine Musik\*.mp3")
If $search = -1 Then
MsgBox(0, "Error", "No files/directories matched the search pattern")
Exit
EndIf
While 1
$file = FileFindNextFile($search)
If @error Then ExitLoop
_GUICtrlListAddItem ( $List1, $file )
WEnd
EndFunc
Func _List_1_DblClick()
Local $txt = _GUICtrlListGetSelItemsText ( $List1 )
If IsArray($txt) Then ShellExecute( $txt[1] )
EndFunc
Func _PRIMARYdown()
$pos = MouseGetPos()
Select
Case _CheckCtrlDblClick($Form1, $List1)
_List_1_DblClick()
Case Else
$MousePos = False
EndSelect
EndFunc
Func _PRIMARYup()
If $MousePos Then
If $n = 2 Then
$n = 0
Else
$start = TimerInit()
EndIf
EndIf
EndFunc
Func _CheckCtrlDblClick($GUI, $CTRL)
Local $CtrlPos = ControlGetPos($GUI, '', $CTRL)
If ($pos[0] >= $CtrlPos[0] And $pos[0] <= $CtrlPos[0] + $CtrlPos[2]) And _
($pos[1] >= $CtrlPos[1] +20 And $pos[1] <= $CtrlPos[1] +20 + $CtrlPos[3]) Then
$n += 1
$MousePos = True
If $n = 2 And (TimerDiff($start) < $clickspeed) Then
Return True
Else
$start = TimerInit()
$n = 1
EndIf
EndIf
EndFunc
Hmmmmmm - ich will ja nichts sagen, aber wenn du den einzigen Teil, der potentiell von Interesse sein könnte schwärzt.......
peethebee
Nur bei einemTitel? Bei allen Titeln?
Werde mal etwas genauer.
Es fehlt halt der Pfad... den musst du schon noch vor den Namen hängen.
peethebee
