Hi.
Ersetze
[autoit]
InetGet($Ipath, $FileName[UBound($FileName) - 1])
durch
If Not InetGet($Ipath, $FileName[UBound($FileName) - 1]) Then MsgBox(64,"Error","An unknown error occured")
Lg,
Hi.
Ersetze
[autoit]
InetGet($Ipath, $FileName[UBound($FileName) - 1])
durch
If Not InetGet($Ipath, $FileName[UBound($FileName) - 1]) Then MsgBox(64,"Error","An unknown error occured")
Lg,
Hi.
Ich hatte auch Probleme mit InetGet wenn ich keinen Zielpfad angegeben habe. (Obwohl man diesen ja optional nur eintrage müsste)
Probier einfach mal Testweise:
[autoit]
InetGet($Ipath,@desktopdir&"\file")
Lg
Genau ... nicht schlecht!
Aber das war wohl zu leicht für euch...
Ich such nochmal was schwereres
Um sich das Leben zu erleichtern könnte man auch ein Script schreiben wie das:
[autoit]
For $i = 0 To 100
If ($i * 2) + 1 = 1.5 * ($i + 1) Then
MsgBox(64, "Alter gefunden.", "Sie war " & $i + 1 & " und er war " & 1.5 * ($i + 1))
$AlterEr = 1.5 * ($i + 1)
$AlterSie = $i + 1
ExitLoop
EndIf
Next
$TheAgeM = InputBox("Alter Berechnung", "Wie alt ist ER nun ?")
MsgBox(64, "Alter gefunden.", "Denn ist SIE nun " & $TheAgeM - ($AlterEr - $AlterSie))
$TheAgeF = InputBox("Alter Berechnung", "Wie alt ist SIE nun ?")
MsgBox(64, "Alter gefunden.", "Denn ist ER nun " & $TheAgeF + ($AlterEr - $AlterSie))
Guten Abend.
Ich habe hier, wie ich finde, ein kleines aber doch sehr nettes Rätsel, das ihr ja mal probieren könnt zu lösen.
Rätsel:
Sagt der Vater zum Sohn:
"Du mein Sohn, weisst du, es gab mal eine Zeit da war ich doppelt so alt wie deine Mutter. Ein Jahr später war ich natürlich nur noch einanhalb mal so alt wie deine Mutter."
Wenn der Vater heute 44 ist, wie alt ist denn jetzt die Mutter ?
Viel Spaß beim Lösen,
Lg,
Lenny
Hi!
Das Programm gefällt mir gut. Ich wollte soetwas schon immermal gucken.
Bei mir kam raus:
196:37:24
Hmmm ... Das ist komisch. Hatte sonst keine Probleme mit ShellExecute. Vllt weiß ja jemand anders eine Lösung.
Ist *.mp3 kein Programm zugeordnet ? O.o
Hi!
Danke... Aber ich Defragmetiere jede Woche 1mal ... Oder muss das öfter sein ?
Warum kannst du die Musik nicht öffnen ? Was passiert wenn du auf einen Listview eintrag klickst ?
Lg
Lenny
Ging das nicht einfach mit WinActive ?
Edit: Achso du willst prüfen ob es OnTop ist
HalliHallo!
Ich möchte meinen Mp3 Lister vorstellen.
Wofür ist er gut ?
Wenn ich meine Musiksammlung öffne muss ich immer sehr lange warten bis die Taschenlampe verschwindet und ich zugang zu meinen Mp3s habe. Dies liegt entweder an der großen Menge oder an der Ansicht (Symbole Ordnen Nach -> Interpret, Ansicht -> In Gruppen Anzeigen).
Dafür habe ich mir jetzt Abhilfe geschaffen: Der Mp3 Lister.
Hier ist auch gleich mal ein Video dazu:
*KLICK* ICH BIN DER LINK ZUM VIDEO
Vorteile:
+ RealTime anzeige (Auch wenn neue Musikstück neu in den Ordner kopiert werden, wird die Anzeige Aktualisiert)
+ Suchoptionen
+ Schnelligkeit
+ Aussehen
+ Bedienbarkeit, Interface, Benutzerfreundlichkeit
Nachteile und Eingeschrenkte Bedingungen:
- CPU Auslastung teils hoch
- Es werden nicht Dateien in Unterodnern gefunden
- Verzögerungen bei Buttons: Settings, Close
Workflow:
Beim ersten Start des Programmes wird der Suchordner festgelegt.
Einstellen ob exakte Suche oder nicht.
Suchword ins Inputfeld eingeben
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Bei exakter Suche wird nach Interpreten und Titeln gesucht, in denen das ganze Suchwort drinvorkommt.
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Wenn die Checkbox "Exact Results" (Exakte Ergebnisse) nicht gecheckt ist, wird geprüft ob alle, im Input angegebenen Buchstaben im LiedInterpreten- oder Titel zu finden sind. (BSP Im Video)
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Hier ist jetzt auch noch mal das Script:
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.0.0
Author: Lenny
Script Function:
Search music.
#ce ----------------------------------------------------------------------------
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListBoxConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiListBox.au3>
#include <Array.au3>
#include <File.au3>
$LetInSear = 0
$SearchCret = ""
$LastCount = ""
$CheckBox_Check = 0
$SelCheck = -1
If Not FileExists(@ScriptDir & "\settings.ini") Then
$CurSetting = FileSelectFolder("Select MP3 directory.", "", "", @WorkingDir)
IniWrite(@ScriptDir & "\settings.ini", "Settings", "CurrentPath", $CurSetting)
Else
$CurSetting = IniRead(@ScriptDir & "\settings.ini", "Settings", "CurrentPath", "")
EndIf
#Region ### START Koda GUI section ### Form=C:\Dokumente und Einstellungen\Lenny\Eigene Dateien\Music lister.kxf
$Form1 = GUICreate("MP3 Lister 1.0", 226, 466, 193, 125, BitOR($WS_SYSMENU, $WS_CAPTION, $WS_POPUP, $WS_POPUPWINDOW, $WS_BORDER, $WS_CLIPSIBLINGS))
GUISetBkColor(0x000000)
$BtnSet = GUICtrlCreateButton("Settings", 8, 424, 211, 33, 0)
$Input1 = GUICtrlCreateInput("", 8, 376, 209, 21)
$List1 = GUICtrlCreateList("", 0, 0, 226, 364, BitOR($LBS_SORT, $WS_VSCROLL), 0)
$Label1 = GUICtrlCreateLabel("Exact results", 88, 402, 64, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$Checkbox1 = GUICtrlCreateCheckbox("", 72, 400, 17, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
GUICtrlSetColor(-1, 0xFFFFFF)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $BtnSet
$CurSetting = FileSelectFolder("Select MP3 directory.", "", "", @WorkingDir)
If Not @error Then IniWrite(@ScriptDir & "\settings.ini", "Settings", "CurrentPath", $CurSetting)
EndSwitch
$Selection = _GUICtrlListBox_GetCurSel($List1)
[/autoit] [autoit][/autoit] [autoit]If $Selection <> $SelCheck And $Selection <> -1 Then
ShellExecute($CurSetting & "\" & _GUICtrlListBox_GetText($List1,$Selection))
$SelCheck = $Selection
EndIf
$FilesListed = _FileListToArray($CurSetting, "*.mp3", 1)
If Not @error Then
If GUICtrlRead($Input1) <> $SearchCret Or $FilesListed[0] <> $LastCount Or GUICtrlRead($Checkbox1) <> $CheckBox_Check Then
_GUICtrlListBox_BeginUpdate($List1)
For $ili = 1 To _GUICtrlListBox_GetCount($List1)
_GUICtrlListBox_DeleteString($List1, 0)
Next
$LastCount = $FilesListed[0]
$SearchCret = GUICtrlRead($Input1)
$SearchCretCount = StringSplit($SearchCret, "")
If GUICtrlRead($Checkbox1) <> $GUI_CHECKED Then
$CheckBox_Check = $GUI_UNCHECKED
For $i = 1 To UBound($FilesListed) - 1
For $is = 1 To UBound($SearchCretCount) - 1
[/autoit] [autoit][/autoit] [autoit]If StringInStr($FilesListed[$i], $SearchCretCount[$is]) Then
$LetInSear += 1
Else
$LetInSear = 0
ExitLoop
EndIf
Next
[/autoit] [autoit][/autoit] [autoit]If $LetInSear <> 0 Then
_GUICtrlListBox_AddString($List1, $FilesListed[$i])
ElseIf StringInStr($FilesListed[$i], $SearchCret) Then
_GUICtrlListBox_AddString($List1, $FilesListed[$i])
EndIf
Next
[/autoit] [autoit][/autoit] [autoit]Else
$CheckBox_Check = $GUI_CHECKED
For $i = 1 To UBound($FilesListed) - 1
If StringInStr($FilesListed[$i], $SearchCret) Then
_GUICtrlListBox_AddString($List1, $FilesListed[$i])
EndIf
Next
[/autoit] [autoit][/autoit] [autoit]EndIf
EndIf
_GUICtrlListBox_EndUpdate($List1)
Else
MsgBox(64, "Error", "No *.mp3 files were found in the given dictornary.")
$CurSetting = FileSelectFolder("Select MP3 directory.", "", "", @WorkingDir)
If Not @error Then IniWrite(@ScriptDir & "\settings.ini", "Settings", "CurrentPath", $CurSetting)
EndIf
WEnd
Ich hoffe ihr könnt damit etwas anfangen
Liebe Grüße,
Lenny
Edit1: Anscheinend gibt es ein Problem mit dem Video. Ich werde es grade nochmal uppen.
Edit2: Neu geuppt -> Klappt
HI!
[autoit]
$List = ""
Func _FilterFileTypes($File, $Type)
For $i = 1 To _FileCountLines($File)
$Line = FileReadLine($File,$i)
MsgBox(0,"",$Line)
If StringInStr($Line, $Type) Then
$List &= $Line & @CRLF
EndIf
Next
Return ($List)
EndFunc ;==>_FilterFileTypes
Lg,
Lenny
Edit: Bei Type kann man entweder z.B. '.mp3' eingeben oder einen Namen z.B. 'lied'
#include <File.au3>
wird gebraucht
Edit2: So jetzt sollte es gehen
HalliHallo!
Ich hatte irgendwie Lust eine Func zu schreiben, mit der man nach Dateien eines bestimmten Types suchen, oder einfach alle vorhandenen Dateien aufliste kann.
Ich weiß nicht ob es jemand gebrauchen kann, weil es ja auch noch eine Func mit rekursiver Suche gibt.
Aber ich bin jetzt einfach mal so frei und poste hier meine Func:
; #VARIABLES# ===================================================================================================================
$List = ""
$I = 0
; ===============================================================================================================================
; #FUNCTION# ====================================================================================================================
; Name...........: _FTsearch
; Description ...: Search for file with a specified type.
; Syntax.........: _FTsearch([$Path,$FileT])
; Parameters ....: $Path - Location where to start the search from. Don't forget the ending '\'
; $FileT - Type of the files to search for. (Just the Type without wildcard or '.')
; Return values .: Success - List of files found
; Failure - Empty String
; Author ........: Lennart W. - Lenny @ Autoit.de
; Remarks .......: This Function searches for Files with a given Filetype or Lists all Files on the Pc, if $Path and $FileT are empty.
; Required.......: This Function requires _GetFileType
; Example .......; _FTSearch("C:\MyDir","jpg")
; ===============================================================================================================================
Func _FTSearch($Path = "C:\", $FileT = "*")
$Search = FileFindFirstFile($Path & "*.*")
While 1
$File = FileFindNextFile($Search)
If @error Then Return ($List)
If StringInStr(FileGetAttrib($Path & $File), "D") Then
_FTSearch($Path & $File & "\", $FileT)
Else
If StringInStr(_GetFileType($File) & "*", $FileT) Then
$I += 1
$List &= $I & ". " & $Path & $File & @CRLF
EndIf
EndIf
WEnd
FileClose($Search)
EndFunc ;==>_FTSearch
Func _GetFileType($lFile = "")
$ExtSplit = StringSplit($lFile, ".")
Return ($ExtSplit[UBound($ExtSplit) - 1])
EndFunc ;==>_GetFileType
Ich hoffe es kann jemand gebrauchen. Ich denke man könnte es auch ohne zuviel Aufwand in eine direkte Dateisuche umwandeln.
Lg,
Lenny
Oha
Geht das nicht unkomplizierter :O
Guten Abend allersamt.
Ich habe mal wieder eine Frage:
Wie kann ich folgendes umsetzen:
Ich habe 3 Listviews, ich möchte aus Listview1 einen Eintrag nehmen und ihn per Drag & Drop in Listview 2 oder 3 schieben. Dh er ist aus Listview1 raus und besteht nun in listview 2 oder 3... Zusätzlich (Wenn man das große Geheimnis kennt, warscheinlich kein Problem) sollte man sie aus List view 2 und 3 wieder zurück in 1 Schieben können oder von List view 2 nach 3 usw.
Wäre Suuuuper wenn ihr mir helfen könntet
Lg,
Lenny
Hi!
Also Image weiß ich was das ist ... und Backup habe ich mir eigenltich genauso vorgestellt.
Aber gut:
Wenn nur die Windows Einstellungen UND eigene beliebige Dateien, z.B. vor einer Windows neuinstallation gesichert werden sollen, kann man das windows eigene Sicherungsprogramm benutzen
Man kann unter Start -> Alle Programme -> Zubehör -> Systemprogramme -> Übertragen von Dateien und Einstellungen klicken,
oder einfach "migwiz.exe" in das Ausführen feld eigeben.
Dann muss man lediglich noch "Quellcomputer" auswählen und dann einfach dem Assistenten folgen.
Wenn ich das falsch verstanden habe einfach überlesen
Lg,
Lenny
Vllt auch mit TimerInit / TimerDiff.
So wird das Script nicht angehalten und es kommt durch das Sleep(Komplettes Script wird ja angehalten) nicht zu (minimal) ungenauen Anzeigen
Lg,
Lenny
Hi!
Das müsste so aussehen:
[autoit]
Guictrlsetdata($label1,@Hour&":"&@Min&":"&@Sec)
Lg,
Lenny
P.s. Die Func kannst du komplett löschen. Dieses Guictrlsetdata müsste in aber sich immer wiederholenden Schleife gesetzt werden
Hi!
Also ich finde das ganze projekt echt gut^^. Ich habe schonmal die Seiten durchgestöbert und das einzige was mich stört ist, dass die Scripte so dargestellt werden:
[autoit]
InetGet("http://download.mozilla.org/?product=firefox-3.0.5&os=win&lang=de", @ScriptDir & "\firefox.exe", 0, 1)
$groesse = InetGetSize("http://download.mozilla.org/?product=firefox-3.0.5&os=win&lang=de")
[/autoit][autoit][/autoit][autoit]While True
[/autoit][autoit][/autoit][autoit]If @InetGetActive = 1 Then ;Wenn etwas aus dem internet runtergeladen wird , wird diese Schleife aktiviert
[/autoit][autoit][/autoit][autoit]ToolTip(Round(@InetGetBytesRead / 1024 / 1024, 1) & "MB" & "/" & Round($groesse / 1024 / 1024, 1) & "MB" & " (" & Round(@InetGetBytesRead / $groesse * 100, 0) & "%)", @DesktopWidth / 2 - 90, 0, "Download von Mozilla Forefox3.0.5")
[/autoit][autoit][/autoit][autoit]Else
[/autoit][autoit][/autoit][autoit]ToolTip("") ;Um den ToolTip bei Fertigstellung des Downloads zu beenden
[/autoit][autoit][/autoit][autoit]Exit
[/autoit][autoit][/autoit][autoit]EndIf
[/autoit][autoit][/autoit][autoit]WEnd
[/autoit]Und nicht so:
[autoit]
InetGet("http://download.mozilla.org/?product=firefox-3.0.5&os=win&lang=de", @ScriptDir & "\firefox.exe", 0, 1)
$groesse = InetGetSize("http://download.mozilla.org/?product=firefox-3.0.5&os=win&lang=de")
[/autoit][autoit][/autoit][autoit]While True
[/autoit][autoit][/autoit][autoit]If @InetGetActive = 1 Then ;Wenn etwas aus dem internet runtergeladen wird , wird diese Schleife aktiviert
[/autoit][autoit][/autoit][autoit]ToolTip(Round(@InetGetBytesRead / 1024 / 1024, 1) & "MB" & "/" & Round($groesse / 1024 / 1024, 1) & "MB" & " (" & Round(@InetGetBytesRead / $groesse * 100, 0) & "%)", @DesktopWidth / 2 - 90, 0, "Download von Mozilla Forefox3.0.5")
[/autoit][autoit][/autoit][autoit]Else
[/autoit][autoit][/autoit][autoit]ToolTip("") ;Um den ToolTip bei Fertigstellung des Downloads zu beenden
[/autoit][autoit][/autoit][autoit]Exit
[/autoit][autoit][/autoit][autoit]EndIf
[/autoit][autoit][/autoit][autoit]WEnd
[/autoit]Vllt könnt ihr ja noch eine Möglichkeit finden. Ich finde es so viiiiel leichter, auch für anfänger, die Schleifen zu überblicken.
Lg,
Lenny
HI!
Wegen dem Problem mit den Buttons:
[autoit]$id_button1 = GUICtrlCreateButton("Befehl Hinzufügen",6,6,106,33,1,-1)
$id_button2 = GUICtrlCreateButton("Befehl Suche",130,6,106,33,-1,-1)
$id_pic3 = GUICtrlCreatePic("AutoIt_SearchIt.jpg",0,0,250,225,-1,-1)
Mussst du zu
[autoit]
$id_pic3 = GUICtrlCreatePic("AutoIt_SearchIt.jpg",0,0,250,225,-1,-1)
$id_button1 = GUICtrlCreateButton("Befehl Hinzufügen",6,6,106,33,1,-1)
$id_button2 = GUICtrlCreateButton("Befehl Suche",130,6,106,33,-1,-1)
ändern.
Dann sollte es gehen
HI!
Möchtest du komplett garkeine Versteckten Ordner in der Liste,oder das diese 3 nicht mit in die Liste gelesen werden, oder möchtest du das sie mit gelesen werden und im Nachhineinein entfernt werden ?
Lg,
Lenny