Beiträge von Lenny

Lenny

Also ich meine... Es geht nicht so ?

Zitat

c:\
|- Weitere Daten\ (5000 MB)
'- MP3s\ (2000 MB)
'- Ordner\ (169 MB)
|- Windows\ (2100 MB)
|- Programme\ (500 MB)
'- AutoIt3\ (43 MB)

Alles anzeigen

Vielen Dank im Voraus,

lG, Lenny

Lenny

Hallo!

Ich verstehe das nicht ganz. Also ich meine, ich möchte das so:

Spoiler anzeigen

[autoit]

#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 ###

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

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

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

EndSwitch
WEnd

[/autoit]

Vielen Dank im Voraus,

Lenny

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

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

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>

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

#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 ###

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

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

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

EndSwitch
WEnd

[/autoit]

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>

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

$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)

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

$List = ""
$I = 0

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

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

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

ClipPut(_SearchDir())

[/autoit]

lG

Lenny

Ahhh ... Cool

Vielen Danki ... Ich finde das Tool echt suuper!

Weiter so

lG,

Lenny

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

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

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

While True
Sleep(100)
WEnd

[/autoit]

MfG

Edit1: Also sowas hab ich ja noch nie gehört, wie auf deinem Blog:

Zitat

Autoit lehnt sich stark an C++ an,

Lenny

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

Lenny

Hallo!

Es wird wie das Englische Pronomen, im Sinne von "Automatisiere es" ausgesprochen, soweit ich weiß

MfG

Lenny

Hi

$Title = WinGetTitle("")

Lenny

Ja nicht für mich

Aber vielen Dank! Klappt wunderbar!

Freu mich

Lenny

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

Lenny

Hi.

[autoit]

#include <File.au3>

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

$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

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

MsgBox(64,"Finished",$String)

[/autoit]

Untested... Theoretisch sollte es aber gehen :o)

Lg,

Lenny

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

[/autoit]

Lg, Lenny

Lenny

Hi!

[autoit]

$Path = "C:\"
$Dest = "D:\"

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

AdlibEnable("_copyfiles", 60000) ; 1 Minute Wartezeit

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

Func _copyfiles()
$Search = FileFindFirstFile($Path & "*.txt")

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

If $Search = -1 Then
MsgBox(0, "Error", "Alle Dateien wurden Kopiert!")
Exit
EndIf

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

For $i = 1 To 50
$File = FileFindNextFile($Search)
If @error Then ExitLoop
FileCopy($Path & $File, $Dest & $File)
Next

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

FileClose($Search)
EndFunc ;==>_copyfiles

[/autoit]

Vllt kann es so ja schon gehen

Lg,

Lenny

Lenny

Ich hätte das jetzt so gemacht:

[autoit]

$Zahl = "13754"

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

$Num = StringRegExp($Zahl, "([A-Z/a-z])", 2)
$Dot = StringRegExp($Zahl, "([1-9]*\.[1-9]*)", 2)

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

If Not IsArray($Num) Then
If IsArray($Dot) Then
MsgBox(0, "", "Ohne Buchstaben mit Punkt")
Else
MsgBox(0, "", "Ohne Buchstaben, ohne Punkt")
EndIf
EndIf

[/autoit]

Lg,

Lenny

Lenny

1. GuiCtrlRead()

2. StringIsFloat // StringIsInt (Bin mir nicht sicher.)

Lg,

Lenny

Lenny

Bei mir schon

Lenny

Hi!

Ja da ist ein ' , ' zuviel!

[autoit]

$Adresse = GUICtrlCreateInput("Adresse", 152, 16, 321, 21,)

[/autoit]

müsste so heißen:

[autoit]

$Adresse = GUICtrlCreateInput("Adresse", 152, 16, 321, 21)

[/autoit]

Lg, lenny

Beiträge von Lenny

Ordner in TV auflisten; nach Größe sortiert

Ordner in TV auflisten; nach Größe sortiert

ICQ Client in autoit

Ordner in TV auflisten; nach Größe sortiert

Ordner in TV auflisten; nach Größe sortiert

ToDo-Liste und Kalender

ToDo-Liste und Kalender

DesktopHide

ToDo-Liste und Kalender

wie wird autoit eigentlich ausgesprochen?

Fenstertitel auslesen

StringRegEx Problem

StringRegEx Problem

TXT Datei nach bestimmtem Wort durchsuchen und rausschreiben.

Rückgabewert bei DirCopy

Bestimmte Anzahl(!!) von Dateien kopieren

2 kleine Fragen

2 kleine Fragen

Gui style problem

Gui style problem