Beiträge von Skilkor

[autoit]

$var = DriveGetDrive( "fixed" )
If NOT @error Then
MsgBox(4096,"", "Es wurden " & $var[0] & " Laufwerke gefunden")
For $i = 1 to $var[0]
MsgBox(4096,"Laufwerk " & $i, $var[$i])
Next
EndIf

[/autoit]

[autoit]

$aReturn = _RecursiveFileListToArray('F:', '\.mp3', 1) ; Alle Dateien mit der Erweiterung ".mp3" (auf F:)

[/autoit]

[autoit]

$aReturn = _RecursiveFileListToArray('C:|E:|F:|G:', '\.mp3', 1) ; Alle Dateien mit der Erweiterung ".mp3" (auf F:)

[/autoit]

[autoit]

$aReturn = _RecursiveFileListToArray('C:', '\.mp3', 1)
$aReturn = _RecursiveFileListToArray('E:', '\.mp3', 1)
$aReturn = _RecursiveFileListToArray('F:', '\.mp3', 1)
$aReturn = _RecursiveFileListToArray('G:', '\.mp3', 1)

[/autoit]

[autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>

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

$Form = GUICreate("mp3 Searcher", 626, 443, 526, 278)
$Label = GUICtrlCreateLabel("mp3 Searcher", 8, 8, 70, 17)
$Label1 = GUICtrlCreateLabel("Der mp3 Sucher durchsucht alle vorhandenen Festplatten"& @CRLF &"nach mp3 Dateien." , 312, 88, 277, 257)
$Group = GUICtrlCreateGroup("", 8, 64, 609, 369)
$Edit = GUICtrlCreateEdit("", 24, 88, 273, 329)
GUICtrlSetData(-1, "")
$Button = GUICtrlCreateButton("Suche", 328, 400, 75, 25, $WS_GROUP)
$Button1 = GUICtrlCreateButton("Beenden", 428, 400, 75, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Weiter", 528, 400, 75, 25, $WS_GROUP)
;~ $Progress = GUICtrlCreateProgress(312, 360, 286, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

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

Case $Button
_Search()
Case $Button1
Exit
Case $Button2
EndSwitch
WEnd
Func _Search()
If @AutoItVersion < '3.3.0.0' Then Exit MsgBox(16, 'Fehler', 'Funktioniert erst ab AutoIt-Version 3.3.0.0')

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

$timer = TimerInit()
$aReturn = _RecursiveFileListToArray('C:', '\.mp3', 1) ; Alle Dateien mit der Erweiterung ".mp3" (auf F:)
ConsoleWrite(Round(TimerDiff($timer)/1000, 3) & ' sek.' & @CRLF)
$sReturn = _ArrayToString($aReturn,@CRLF,1)
GuictrlsetData($Edit,$sReturn)
;~ Erstellen einer .ini Datei,mit den gefundenen Ergebnissen
If FileExists("Ergebniss.ini") Then
FileDelete("Ergebniss.ini")
EndIf
$file = FileOpen("Ergebniss.ini", 1)
If $file = -1 Then
MsgBox(0, "Fehler", "Die Datei konnte nicht geöffnet werden.")
Exit
EndIf
FileWrite($file, $sReturn)
FileClose($file)
;===============================================================================
; Function Name: _RecursiveFileListToArray($sPath, $sPattern, $iFlag = 0, $iFormat = 1, $sDelim = @CRLF)
; Description::gibt Verzeichnisse und/oder Dateien (rekursiv) zurück, die
; einem RegExp-Pattern entsprechen
; Parameter(s):$sPath = Startverzeichnis
; $sPattern = ein beliebiges RexExp-Pattern für die Auswahl
; $iFlag = Auswahl
; 0 = Dateien & Verzeichnisse
; 1 = nur Dateien
; 2 = nur Verzeichnisse
; $iFormat = Rückgabeformat
; 0 = String
; 1 = Array mit [0] = Anzahl
; 2 = Nullbasiertes Array
; $sDelim = Trennzeichen für die String-Rückgabe
; Requirement(s): AutoIt 3.3.0.0
; Return Value(s): Array/String mit den gefundenen Dateien/Verzeichnissen
; Author(s): Oscar (http://www.autoit.de)
; Anregungen von: bernd670 (http://www.autoit.de)
;===============================================================================
EndFunc
Func _RecursiveFileListToArray($sPath, $sPattern, $iFlag = 1, $iFormat = 1, $sDelim = @CRLF)
Local $hSearch, $sFile, $sReturn = ''
If StringRight($sPath, 1) <> '\' Then $sPath &= '\'
$hSearch = FileFindFirstFile($sPath & '*.*')
If @error Or $hSearch = -1 Then Return SetError(1, 0, $sReturn)
While True
$sFile = FileFindNextFile($hSearch)
If @error Then ExitLoop
If StringInStr(FileGetAttrib($sPath & $sFile), 'D') Then
If StringRegExp($sPath & $sFile, $sPattern) And ($iFlag = 1 Or $iFlag = 2) Then $sReturn &= $sPath & $sFile & '\' & $sDelim
$sReturn &= _RecursiveFileListToArray($sPath & $sFile & '\', $sPattern, $iFlag, 0)
ContinueLoop
EndIf
If StringRegExp($sFile, $sPattern) And ($iFlag = 0 Or $iFlag = 1) Then $sReturn &= $sPath & $sFile & $sDelim
WEnd
FileClose($hSearch)
If $iFormat Then Return StringSplit(StringTrimRight($sReturn, StringLen($sDelim)), $sDelim, $iFormat)
Return $sReturn
EndFunc
;~ ====================================================================

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

allso, man sammelt im laufe der jahre immer mehr Musik an,ordnet dise und verbringt dabei Stunden am rechner, nur damit, das man am Ende so gut wie jeden Song beim richtigen Interpreten - Album und Titel NR hast,Ordner über ordner Häufen sich da an. Ihrgend wan lehrnst du neue Leute kennen, unterhälst dich mit diesen über sonnstiges,bis das thema Musik kommt. Der hat mehr alls ich, und was er hat, das höhr ich auch. Ergo, er schiebt dir mal son paar GB rüber in einem ordner, 50 interpreten,zich Alben und das alles ungeordnet. Dan Sizt du wider da,Stunde um Stunde und Ordnest dein Sound.
Eines tages denkst du dir einfach "WTF, gibts dafür kein programm???"
Ich gebe zu, der WMP is ja gut und Recht, gibste Pfad an, und er Aktualisiert dir die biblio... aber da hast du dan wider ein problem, dersucht nach I"nterpret / Album / Titel nr..."
Jetz kanns sein das mehrere songs keine Angaben bezüglich " Interpreten / Album / Titel nr" haben. was macht der WMP?
Kategorie U
unter
"Unbekannter Blablubb"
und dan gehts Suchen los.

Darum benutz ich keine biblio... sondern halte auf meiner HD die Musikordnung,und zihe dan die Songs in die Widergabe Liste.
So haste kein grosses suchen.

Deswegen kamm ich auf die Idee ein Prog zu Schreiben, welches den rechner nach mp3 dateien durchsucht, diese in eine ini sampt Pfad schreibt und man dan diese nach "Interpreten oder Album" an den gewünschten ort Verschiebt.

Dafür wird benötigt.
Suchsystem
und ein
Copier vorgang
(Einfache auflistung)

und dabei geh ich Schritt für Schritt vorran. GUI - Suchsystem einbauen - wen möglich beim Copieren eine neue GUI (*"via Wizzard - oder neues Script"*)

da gibts aber noch ein kleines problem was ich festgestellt habe, und zwar. wen man Musik und "Games / offline & online" vorhanden hat, werden diese Songs der games mit einbezogen....
das will man ja nicht, weill die verschiebt es dan ja auch..ergo, kein sound beim gamen oO -.-
Da kommt dan die ID3 UDF ins Spiel, das auslessen der mp3 datei,da die meisten game Sounds kein interpret oder Album haben.
Spich
If interpret or Album then......
da aber wider ein prob, was ist mit der Musik die (Wie oben genannt beim WMP) auch keine angaben hat?
da bin ich vorrest an meinem grenz wert

So, die ganze geschichte mit hintergund

was das mit dem "Array" angeht. muss ich dir recht geben.
Muss aber dazu Sagen,
Learning by Doing
Ich Lehrne dinge am besten wen ichs selber tuhe. und wen ich an meine grentzen stosse (Wie beim edit, was mir übrigens echt peinlich ist :()
frage ich Euch (Nach der sufu versteht sich)

1: Download
2: Starten der .exe oder via Editor(Empfohlen wird die .exe)

Nach dem Ihr das prog gestartet habt,MÜSST ihr alls erstes den Button "Alle Festplatten nach MP3s durchsuchen" oder "Verzeichnis nach MP3s durchsuchen" Drücken.
Ansonsten könnt ihr Garnichts anfangen mit dem Programm.
Nach dem das Programm Fertig mit der Suche ist, habt Ihr die Wahl ob Ihr die Gefundenen Files in einer Datenbank Speichern wollt
(Dabei werden nicht die Files sondern die Angaben gespeichert. z.b. Interpret / Album & Pfad)
Ihr müsst nicht gleich nach der Suche eine Datenbank anlegen (ist aber Vorteilhafter)
Nach dem Speichern habt Ihr unten Rechts eine "GroupBox" mit dem Namen "Verzeichnisstruktur anhand der ID3-Tags erstellen:" da könnt Ihr auswählen ob das Programm die Gespeichertnen Einträge nach der ordnerstruktur
..\Interpret\Deteiname
z.b.
F:\Musik\Autoit_Sound{Interpret}\Play1.mp3{Dateiname}

ODER

..\Interpret\Album\Dateiname
z.b.
F:\Musik\Autoit_Sound{Interpret}\mp3_Search{Album}\Play1.mp3{Dateiname}

Kopiert ODER Verschiebt (Dafür habt Ihr dan auch wider 2 Buttons die mit einem ToolTip Versehen sind(Wie alle Buttons))

So,dass wahr die GRUND funktion des Programmes

Nun die Features

Play_Sound:
Ihr könnt auf einen GEFUNDENEN Eintrag Doppelklicken und der Entsprechende Song wird mit dem "Standart" MediaPlayer Abgespielt.

Datenbank / ListView Suche
Sobald Ihr Einträge in der ListView habt, könnt Ihr nach einem Song suchen, dabei spielt es keine rolle ob "Interpret"/"Album" oder nur der "Dateiname" angegeben wird.
Auserdem habt Ihr noch die Möglichkeit das ganze einzugrentzen, wen Ihr den Punkt "Gross-/Kleinschreibung beachten" aktiviert.

ListView abspeichern
Ihr habt die Möglichkeit mehrer Datenbanken zu Erstellen. Aus dem einfachen Grund, das Programm kann nicht mehr alls 40´000 dateien einfassen (Liegt soweit ich weiss an Autoit)

ListView Einträge Löschen
Ihr könnt Einzelne Einträge oder gar den Kompletten LisView Löschen. Das hat den Vorteil, dass wen man noch Spiele Installiert hat (Online oder Offline) werden die vom Programm auch gefunden
(Sofern mann "Alle Festplatten nach MP3s durchsuchen" wählt) Ihr könnt diese Einträge dan Makrieren und mit dem "Markierte Einträge aus der ListView entfernen" löschen. Ihr könnt diese aber auch KOMPLETT von der Festplatte Löschen, mit dem Button "Markierte Dateien von der Festplatte Löschen".

So,das wahren die Features. Es hat noch 2-3 kleine Features die sich von Selbst Erklären

[autoit]

#include <Array.au3>
Global $aToSearch[2][2] = [['*.mp3','F:']]
Global $aPath[2], $aFound[1] = [0]

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

For $i = 0 To UBound($aToSearch) -1
If StringInStr($aToSearch[$i][1], '|') Then
$aPath = StringSplit($aToSearch[$i][1], '|')
Else
$aPath[1] = $aToSearch[$i][1]
EndIf
For $j = 1 To UBound($aPath) -1
If $aFound[UBound($aFound)-1] Then ReDim $aFound[UBound($aFound)+1]
$aFound[UBound($aFound)-1] = _SearchTreeForFile($aPath[$j], $aToSearch[$i][0])
Next
Next
If $aFound[0] Then
_ArrayDisplay($aFound, 'Ergebnis Dateisuche')
Else
MsgBox(0, 'Dateisuche', 'Es wurden leider keine Dateien gefunden .')
EndIf

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

;===============================================================================
; Function Name: _SearchTreeForFile($sRootPath, $sFileName)
; Description:: Dateisuche in einem Pfad und allen Unterpfaden
; Parameter(s): $sRootPath Startpfad der Suche
; $sFileName Name der gesuchten Datei
; Return Value(s): gefunden Pfad der gesuchten Datei
; n. gefunden 0
; Author(s): BugFix ([email='bugfix@autoit.de'][/email])
;===============================================================================
Func _SearchTreeForFile($sRootPath, $sFileName)
If StringRight($sRootPath, 1) <> '\' Then $sRootPath &= '\'
Local $sOutputPathBuffer = ''
Local $aRet = DllCall("imagehlp", 'long', 'SearchTreeForFile', 'str', _
$sRootPath, 'str', $sFileName, 'str', $sOutputPathBuffer)
If $aRet[0] = 1 Then
Return $aRet[3]
Else
Return 0
EndIf
EndFunc ;==>_SearchTreeForFile

[/autoit]