Also ich meine... Es geht nicht so ?
ZitatAlles anzeigenc:\
|- Weitere Daten\ (5000 MB)
'- MP3s\ (2000 MB)
'- Ordner\ (169 MB)
|- Windows\ (2100 MB)
|- Programme\ (500 MB)
'- AutoIt3\ (43 MB)
Vielen Dank im Voraus,
lG, Lenny
Also ich meine... Es geht nicht so ?
ZitatAlles anzeigenc:\
|- Weitere Daten\ (5000 MB)
'- MP3s\ (2000 MB)
'- Ordner\ (169 MB)
|- Windows\ (2100 MB)
|- Programme\ (500 MB)
'- AutoIt3\ (43 MB)
Vielen Dank im Voraus,
lG, Lenny
Hallo!
Ich verstehe das nicht ganz. Also ich meine, ich möchte das so:
#include <GUIConstantsEx.au3>
#include <TreeViewConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("TreeView", 616, 430, 192, 124)
GUISetBkColor(0xFFFFFF)
$TreeView1 = GUICtrlCreateTreeView(0, 0, 633, 449)
$TreeView1_0 = GUICtrlCreateTreeViewItem("C:\", $TreeView1)
$TreeView1_1 = GUICtrlCreateTreeViewItem("Größter Ordner", $TreeView1_0)
$TreeView1_2 = GUICtrlCreateTreeViewItem("Größter Ordner", $TreeView1_1)
$TreeView1_3 = GUICtrlCreateTreeViewItem("Größter Ordner", $TreeView1_2)
$TreeView1_4 = GUICtrlCreateTreeViewItem("2. Größter Ordner", $TreeView1_2)
$TreeView1_5 = GUICtrlCreateTreeViewItem("3. Größter Ordner", $TreeView1_2)
$TreeView1_6 = GUICtrlCreateTreeViewItem("Kleinster Ordner", $TreeView1_2)
$TreeView1_7 = GUICtrlCreateTreeViewItem("2. Größter Ordner", $TreeView1_1)
$TreeView1_8 = GUICtrlCreateTreeViewItem("3. Größter Ordner", $TreeView1_1)
$TreeView1_9 = GUICtrlCreateTreeViewItem("Kleinster Ordner", $TreeView1_1)
$TreeView1_10 = GUICtrlCreateTreeViewItem("2. Größter Ordner", $TreeView1_0)
$TreeView1_11 = GUICtrlCreateTreeViewItem("Größter Ordner", $TreeView1_10)
$TreeView1_12 = GUICtrlCreateTreeViewItem("2. Größter Ordner", $TreeView1_10)
$TreeView1_13 = GUICtrlCreateTreeViewItem("Kleinster Ordner", $TreeView1_10)
$TreeView1_14 = GUICtrlCreateTreeViewItem("3. Größter Ordner", $TreeView1_0)
$TreeView1_15 = GUICtrlCreateTreeViewItem("Größter Ordner", $TreeView1_14)
$TreeView1_16 = GUICtrlCreateTreeViewItem("Kleinster Ordner", $TreeView1_14)
$TreeView1_17 = GUICtrlCreateTreeViewItem("Kleinster Ordner", $TreeView1_0)
$TreeView1_18 = GUICtrlCreateTreeViewItem("Größter Ordner", $TreeView1_17)
$TreeView1_19 = GUICtrlCreateTreeViewItem("2. Größter Ordner", $TreeView1_17)
$TreeView1_20 = GUICtrlCreateTreeViewItem("3. Größter Ordner", $TreeView1_17)
$TreeView1_21 = GUICtrlCreateTreeViewItem("Kleinster Ordner", $TreeView1_17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Vielen Dank im Voraus,
Lenny
Hi.
Arbeite immoment an einem sehr ähnlichem Projekt (um nicht zu sagen "dem gleichen-> ICq Client in AutoIt"), und scheitere auch an der selben Sache.
Unsere Skripte sahen sehr ähnlich aus. Hab deins Probiert -> Ging bei mir auch nicht.
Ich würde mich sehr freuen wenn jmd vllt etwas dadrüber weiß und helfen kann.
Vielen Dank im Voraus und lG,
Lenny
Hi.
Das ist schonmal ein guter Anfang, aber leider ist das Ganze nicht nach der Größe Sortiert.
Wäre Super wenn das noch jemand hinbekommen würde
Vielen Dank im Voraus,
Lenny
Hallo ihr Lieben.
Ich wollte ein kleines Script schreiben das mit alle Ordner auf der Festplatte (oder ab gegebenen Pfad) in einem TreeView gibt, und diese denn nach 'Größe sortiert.
So sollte es später denn aussehen:
[autoit]#include <GUIConstantsEx.au3>
#include <TreeViewConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("About", 464, 335, 196, 124)
$TreeView1 = GUICtrlCreateTreeView(0, 0, 481, 353)
$TreeView1_0 = GUICtrlCreateTreeViewItem("C:\", $TreeView1)
$TreeView1_1 = GUICtrlCreateTreeViewItem("Programme 98048MB", $TreeView1_0)
$TreeView1_2 = GUICtrlCreateTreeViewItem("AutoIt 568MB", $TreeView1_1)
$TreeView1_3 = GUICtrlCreateTreeViewItem("shell 96MB", $TreeView1_2)
$TreeView1_4 = GUICtrlCreateTreeViewItem("bin 0.95MB", $TreeView1_2)
$TreeView1_5 = GUICtrlCreateTreeViewItem("Scite 62.9 MB", $TreeView1_1)
$TreeView1_6 = GUICtrlCreateTreeViewItem("Mein Ordner 8924MB", $TreeView1_0)
$TreeView1_7 = GUICtrlCreateTreeViewItem("Windows 5600MB", $TreeView1_0)
$TreeView1_8 = GUICtrlCreateTreeViewItem("System32 2684MB", $TreeView1_7)
$TreeView1_9 = GUICtrlCreateTreeViewItem("Driver 56MB", $TreeView1_8)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Also Ok... Ich habe bis jetzt die Ordnersuche , nur weiß ich nicht wie ich das ganze der Größe nach in einem TreeView auflisten soll.
Hat jemand vielleicht eine Idee ?
Wäre echt super! Vielen Dank im Vorraus,
Lenny
P.S.: Hier ist mein Script, so wie ich es bis jetzt habe:
[autoit]#include <GUIConstantsEx.au3>
#include <TreeViewConstants.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("About", 464, 335, 196, 124)
$TreeView1 = GUICtrlCreateTreeView(0, 0, 481, 353)
$TreeView1_0 = GUICtrlCreateTreeViewItem("C:\", $TreeView1)
$TreeView1_1 = GUICtrlCreateTreeViewItem("Programme 98048MB", $TreeView1_0)
$TreeView1_2 = GUICtrlCreateTreeViewItem("AutoIt 568MB", $TreeView1_1)
$TreeView1_3 = GUICtrlCreateTreeViewItem("shell 96MB", $TreeView1_2)
$TreeView1_4 = GUICtrlCreateTreeViewItem("bin 0.95MB", $TreeView1_2)
$TreeView1_5 = GUICtrlCreateTreeViewItem("Scite 62.9 MB", $TreeView1_1)
$TreeView1_6 = GUICtrlCreateTreeViewItem("Mein Ordner 8924MB", $TreeView1_0)
$TreeView1_7 = GUICtrlCreateTreeViewItem("Windows 5600MB", $TreeView1_0)
$TreeView1_8 = GUICtrlCreateTreeViewItem("System32 2684MB", $TreeView1_7)
$TreeView1_9 = GUICtrlCreateTreeViewItem("Driver 56MB", $TreeView1_8)
GUISetState(@SW_SHOW)
$List = ""
$I = 0
Func _SearchDir($Path = "C:\", $FileT = "*")
$Search = FileFindFirstFile($Path & "*.*")
While 1
$File = FileFindNextFile($Search)
If @error Then Return ($List)
$FilePath = $Path & $File
If StringInStr(FileGetAttrib($FilePath), "D") Then
$List &= $FilePath & " " & Round(DirGetSize($FilePath) / 1024 / 1024, 3) & "MB" & @CRLF
ToolTip($FilePath, 0, 0, "Current File")
_SearchDir($FilePath & "\", $FileT)
EndIf
WEnd
FileClose($Search)
EndFunc ;==>_SearchDir
ClipPut(_SearchDir())
[/autoit]lG
Ahhh ... Cool
Vielen Danki ... Ich finde das Tool echt suuper!
Weiter so
lG,
Lenny
Hi!
Ich finde dieses "new" nicht. Zur verdeutlichung hab ich einfach mal kurz ein Video gemacht:
http://www.lennart-worm.de/Videos/ToDo-Liste/ToDo-Liste.swf
Rot: Linksklick
Blau: Rechtsklick
Vielen Dank im Voraus,
Lenny
^Hiho... Ich finde das Script garnicht so schlecht, vorallem wenn man Sachen macht, die man nicht machen darf und denn kommt jemand der Erziehungsberechtigten ins Zimmer xD
Aber, wenn du SciTE benutzt auch ab und zu einmal Strg+T drücken: Sonst wird das alles zu unübersichtlich
[autoit]#include <Array.au3>
HotKeySet("°", "_hide")
Global $array[1]
Func _hide()
$var = WinList()
For $i = 1 To $var[0][0]
If $var[$i][0] <> "" And Visible($var[$i][1]) And $var[$i][0] <> "Program manager" Then
WinSetState($var[$i][0], "", @SW_HIDE)
_ArrayAdd($array, $var[$i][0])
EndIf
Next
HotKeySet("°", "_back")
EndFunc ;==>_hide
Func Visible($handle)
If BitAND(WinGetState($handle), 2) Then
Return 1
Else
Return 0
EndIf
EndFunc ;==>Visible
Func _back()
For $b In $array
WinSetState($b, "", @SW_SHOW)
Next
Run(@AutoItExe)
Exit
EndFunc ;==>_back
While True
Sleep(100)
WEnd
MfG
Edit1: Also sowas hab ich ja noch nie gehört, wie auf deinem Blog:
ZitatAutoit lehnt sich stark an C++ an,
Halloo!
Also ansich finde ich die ganze Sache eine sehr gute Idee. Nur ich habe ein Problem:
[Blockierte Grafik: http://www.abload.de/thumb/editfeldf05e.jpg]
Ich glaube bei mir ist das Inputfeld weg ?
MfG,
Lenny
Hallo!
Es wird wie das Englische Pronomen, im Sinne von "Automatisiere es" ausgesprochen, soweit ich weiß
MfG
Hi
$Title = WinGetTitle("")
Ja nicht für mich
Aber vielen Dank! Klappt wunderbar!
Freu mich
HiHo liebe AutoIt'ler.
Ich habe mich mal wieder (ohne Erfolg) and StringRegEx gemacht.
Ich weiß leider nicht wo der Fehler ist, vllt könnt ihr mir ja auf die Sprünge helfen:
Original: Iris (New)</a></td><td class="svRFull">3496/3500</td>
Was ich haben möchte: 3496
StringRegExp($String,"Iris \(New\)</a></td><td class="svRFull">(\d*)/3500</td>",2)
Wisst ihr wo der Fehler ist ?
lG,
Lenny
Hi.
[autoit]
#include <File.au3>
$String = ""
[/autoit][autoit][/autoit][autoit]$Open = FileOpen("File.txt", 0)
[/autoit][autoit][/autoit][autoit]For $i = 1 To _FileCountLines("File.txt")
$Line = FileReadLine($Open, $i)
If StringInStr($Line, "hello") Then $String &=$i &". "& $Line & @CRLF
Next
MsgBox(64,"Finished",$String)
[/autoit]Untested... Theoretisch sollte es aber gehen :o)
Lg,
Lenny
Hi. Fragst du DirCopy oder _Backup() ab?
[autoit]If _Backup($Quelle,$Ziel1) Then
$Ergebnis = "Die Dateien von " & $Quelle & " wurden nach " & $Ziel1 &" kopiert."
_LogWrite($Ergebnis)
Else
$Ergebnis = "ACHTUNG !!! Dateien wurden nicht auf " & $Ziel1 & " gesichert."
_LogWrite($Ergebnis)
EndIf
Func _Backup($srcDir, $destDir)
$Copy = DirCopy($srcDir,$destDir,1)
Return($Copy)
EndFunc
Lg, Lenny
Hi!
[autoit]
$Path = "C:\"
$Dest = "D:\"
AdlibEnable("_copyfiles", 60000) ; 1 Minute Wartezeit
[/autoit][autoit][/autoit][autoit]Func _copyfiles()
$Search = FileFindFirstFile($Path & "*.txt")
If $Search = -1 Then
MsgBox(0, "Error", "Alle Dateien wurden Kopiert!")
Exit
EndIf
For $i = 1 To 50
$File = FileFindNextFile($Search)
If @error Then ExitLoop
FileCopy($Path & $File, $Dest & $File)
Next
FileClose($Search)
EndFunc ;==>_copyfiles
Vllt kann es so ja schon gehen
Lg,
Lenny
Ich hätte das jetzt so gemacht:
[autoit]
$Zahl = "13754"
$Num = StringRegExp($Zahl, "([A-Z/a-z])", 2)
$Dot = StringRegExp($Zahl, "([1-9]*\.[1-9]*)", 2)
If Not IsArray($Num) Then
If IsArray($Dot) Then
MsgBox(0, "", "Ohne Buchstaben mit Punkt")
Else
MsgBox(0, "", "Ohne Buchstaben, ohne Punkt")
EndIf
EndIf
Lg,
Lenny
1. GuiCtrlRead()
2. StringIsFloat // StringIsInt (Bin mir nicht sicher.)
Lg,
Lenny
Bei mir schon
Hi!
Ja da ist ein ' , ' zuviel!
[autoit]
$Adresse = GUICtrlCreateInput("Adresse", 152, 16, 321, 21,)
müsste so heißen:
$Adresse = GUICtrlCreateInput("Adresse", 152, 16, 321, 21)
Lg, lenny