ZitatDa hast Du Dir ja einiges vorgenommen. Wobei ich zweifle, ob man das einfach so "by doing" lernen kann, aber ich lasse mich da gern eines Besseren belehren.
HeHe, Ich geb dir recht, wenig ist es nicht.
Aber du must bedenken,der mensch ist vielseitig, oder soll ich eher Sagen, das menschliche gehirn ist Vielseitig bei der informations Aufnahme und Widergabe
(Wens nicht so währe...währen wir noch Neandertaler/Urmenschen xD)
ZitatEin Edit-Control-Element halte ich für so ein Projekt aber für falsch oder sagen wir: suboptimal. Ich würde Dir lieber zu einem Listview raten. Falls Dir da auch die Grundlagen fehlen, kannst Du Dir vielleicht mal mein Listview-Datenbank-Beispiel anschauen:
*Hust* *-BEISPIEL* *Reusper*
wen Ich den Code mal so überfliege,siht das nach ner 7tage arbeit aus xD
und ein Bsp keines wegs xD.
Wen ich das Script daber richtig Verstanden habe, ist es ein "Editor" wo man Informationen bezüglich verschiederner teile reinspeichert, und diese dan nach bestimmter kriterie sortiert.
Stimmt das so etwa im Goben??
Ich hätte da dan nochn paar fragen die kannst du mir sicher beantworten
Also. was währe deiner meinung nach besser (Jetz nur die GUI Betreffend)
Fürs GUI ein Wizzard zu machen? Da es ja eine SuchGUI und eine CopyGUI haben soll (Die SuchGUI hab ich)
Oder der SuchGUI via #Include auf die copyGUI verweissen? Was ein 2t Script erfordert.
ach und, wie ich bei deiner Suchfunktion angeben kann das er alle Fixen HD durchsuchen soll. wie bei
DriveGetDrive
Spoiler anzeigen
$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
da ja deine Suchfunktion bei mir keine mehrern HD einträge Aktzeptiert
Spoiler anzeigen
$aReturn = _RecursiveFileListToArray('F:', '\.mp3', 1) ; Alle Dateien mit der Erweiterung ".mp3" (auf F:)
[/autoit]
zu
Spoiler anzeigen
$aReturn = _RecursiveFileListToArray('C:|E:|F:|G:', '\.mp3', 1) ; Alle Dateien mit der Erweiterung ".mp3" (auf F:)
[/autoit]
=0sek Such Ergebniss xD
kann es sein das ich bei dieser art Suche, jede HD Einzeln Ansprechen muss?
z.b.
Spoiler anzeigen
$aReturn = _RecursiveFileListToArray('C:', '\.mp3', 1)
$aReturn = _RecursiveFileListToArray('E:', '\.mp3', 1)
$aReturn = _RecursiveFileListToArray('F:', '\.mp3', 1)
$aReturn = _RecursiveFileListToArray('G:', '\.mp3', 1)
mit den angaben uns so?
das such script in probe
Spoiler anzeigen
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
$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)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
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')
$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
;~ ====================================================================
Mfg Skilkor