Hilfe zu _FileListToArray() findest Du in "...\Programme\AutoIt\UDFs3.chm" auf Deiner Festplatte !
Zum Problem "Rekursiv":
Such mal nach "Rekursiv + FileFindFistFile" oder schau im englischen Forum z.B. nach "_FileListToArray3()".
Es gibt etliche Ansätze zum rekursiven Auflisten von Files. Und die Experten streiten wohl noch in einigen Jahren, welche die schnellste ist. 
Mit den zwei Suchbegriffen 'FileListToArray' und 'StringLen' in der Hilfe, hättest Du folgendes bestimmt auch geschafft:
[autoit]#include <File.au3>
[/autoit][autoit][/autoit][autoit]$laenge = InputBox("Länge","Bitte Dateilänge eingeben")
$array = _FileListToArray("C:\", "*.*", 1)
For $i = 1 To $array[0]
If StringLen($array[$i]) < $laenge Then msgbox(0,"zu kurz",$array[$i])
Next
Klar ist das möglich ! Fang an 
schau Dir doch das Script mal an. Es macht fast genau das was Du beschreibst:
[ gelöst ] .txt Dateien besonders auslesen
Zum Anzeigen der gefundenen Textstellen: Doppelklich auf die gefundene Textdatei im rechten Fenster !
Was meinst Du mit "Domain" ?
Einen FQN = Full-Qualified-Name = server.domain.FirstLevelDomain
Falls Du die Unterscheidung für die Funktion _TCPIpToName() haben willst, kannst Du dir das sparen. Die verarbeitet nicht nur Namen, sondern auch IP's.
Ansonsten:
[autoit]$unbekannt = StringReplace($unbekannt,".","")
If IsNumber($unbekannt) Then
Msgbox(0,"","Müsste eine IP sein, weil kein Buchstabe vorkommt !")
EndIf
Edit:
sry aber jetzt reg ich mich auf
mein explorer ist durchsitchtig und kann nix anklicken -.-
Und was spammst Du das hier in den Thread ? Das interessiert doch niemanden !
Ich sprach nicht vom Array sondern vom ListView !
Wenn ein Listview dir Items 0-4 hat und Du das Item 2 löscht, hat das ListView anschließende 0-3 und nicht 0,1,3,4.
Das Item des Listview wird entfernt und höhere rücken herunter. Es bleiben ja keine Lücken...
Ich würde sagen, ohne das ich die einzelnen Funktionen kenne, ein technischer Denkfehler:
Ausgangssituation: 1 - 2 - 3 - 4 - 5 - 6
gelöscht werden sollen 2,4,6
nach dem Löschen von 2 : 1 - 2 - 3 - 4 - 5 ( und nicht 1 - 3 - 4 - 5 - 6)
nach dem Löschen von 4 : 1 - 2 - 3 - 4 ( und nicht 1 - 3 - 5 - 6)
nach dem Löschen von 6 : 1 - 2 - 3 - 4 ( und nicht 1 - 3 - 5)
und wenn Du von hinten löscht geht es, da der Index immer kleiner wird.
In meinem Script steht in der Variable "$aktuelleDatei" in Zeile 73, der Dateiname der Textdatei, wenn alle Begriffe gefunden wurden.
Du brauchst also eigentlich nur ein FileMove in die Zeile 73 schreiben. Nur Dein Namenschema taug schonmal nicht ! Doppelpunkt (in der Uhrzeit) gehen nicht in einem Datei oder Verzeichnisnamen. Ich empfehle "JJJJ_MM_TT_hh_mm_ss_[Suchbegriff].xxx"
Ich habe gerade vor ein paar Tagen ein Script zum Suchen von mehreren Begriffen in Textdateien geschrieben. Ich such damit MP3-Titel in Inhaltsangaben.
Ggf. kannst Du es ja als Ausgangsbasis verwenden.
#include <GUIConstants.au3>
#Include <GuiListBox.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#Region ### START Koda GUI section ### Form=MP3Suche.kxf
$Main_GUI = GUICreate("MP3 Suche", 715, 559, 193, 115)
$Suchbegriffe_ID = GUICtrlCreateInput("", 116, 4, 513, 21)
$Suchliste_ID = GUICtrlCreateList("", 4, 60, 349, 487)
$StartSuche_ID = GUICtrlCreateButton("Start...", 324, 36, 65, 21, 0)
$Trefferliste_ID = GUICtrlCreateList("", 360, 60, 349, 487)
$Label_In_ID = GUICtrlCreateLabel("Suchen in", 8, 36, 84, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Treffer_Label_ID = GUICtrlCreateLabel("Treffer", 648, 36, 58, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Suchbegriffe_Label_ID = GUICtrlCreateLabel("Suchbegriffe", 8, 4, 107, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Suchliste_waehlen_ID = GUICtrlCreateButton("wählen...", 92, 36, 65, 21, 0)
;GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$Anzeigeliste_ID = GUICtrlCreateList("",4,60,705,487)
GUICtrlSetState($Anzeigeliste_ID,$GUI_HIDE)
$EndeSuche_ID = GUICtrlCreateButton("Ende",8,36,65,21,0)
GUICtrlSetState($EndeSuche_ID,$GUI_HIDE)
GUISetState(@SW_SHOW)
GUIRegisterMsg($WM_COMMAND, "WM_COMMAND")
Global $begriffe
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Suchliste_waehlen_ID
GUICtrlSetData($Suchliste_ID,"")
$SelectFiles = FileOpenDialog("'SHIFT' benutzen um mehrere Dateien auszuwählen...","E:\Listen\MP3\","Listen(*.txt)",4+1)
If @error = 1 Then ContinueLoop
If StringInStr($selectFiles,"|") Then
Dim $aListView = StringSplit($SelectFiles,"|")
For $i = 2 To $aListView[0]
GUICtrlSetData($Suchliste_ID,$aListView[1] & "\" & $aListView[$i])
Next
Else
GUICtrlSetData($Suchliste_ID,$SelectFiles)
EndIf
Case $StartSuche_ID
$pos = WinGetPos("MP3 Suche")
SplashTextOn("","Suche läuft...",200,50,$pos[0]+($pos[2]-200)/2,$pos[1]+($pos[3]-50)/2,33,"",14)
Sleep(500)
$begriffe = _SearchStringSplit(GUICtrlRead($Suchbegriffe_ID))
If $begriffe[0] = 0 Then
Msgbox(0,"Fehler...","Sie müssen schon wenigstens einen Suchbegriff eingeben !")
Else
$anzahl = _GUICtrlListBox_GetCount($Suchliste_ID)
If $anzahl = 0 Then
Msgbox(0,"Fehler...","Sie müssen mindestens eine Datei angeben, in der gesucht werden soll !")
Else
GUICtrlSetData($Trefferliste_ID,"")
For $i = 0 To $anzahl - 1
$aktuelleDatei = _GUICtrlListBox_GetText($Suchliste_ID,$i)
$fileID = FileOpen($aktuelleDatei,0)
While 1
$zeile = FileReadLine($fileID)
If @error Then ExitLoop
If _BegriffeSuchen($begriffe,$zeile) = $begriffe[0] Then
GUICtrlSetData($Trefferliste_ID,$aktuelleDatei)
ExitLoop
EndIf
Wend
FileClose($fileID)
Next
EndIf
EndIf
SplashTextOn("","Die Suche wurde abgeschlossen.",300,50,$pos[0]+($pos[2]-300)/2,$pos[1]+($pos[3]-50)/2,33,"",14)
Sleep(1000)
SplashOff()
Case $EndeSuche_ID
GUICtrlSetState($Suchbegriffe_ID,$GUI_ENABLE)
GUICtrlSetState($Anzeigeliste_ID,$GUI_HIDE)
GUICtrlSetState($EndeSuche_ID,$GUI_HIDE)
GUICtrlSetState($Label_In_ID,$GUI_SHOW)
GUICtrlSetState($StartSuche_ID,$GUI_SHOW)
GUICtrlSetState($Treffer_Label_ID,$GUI_SHOW)
GUICtrlSetState($Suchliste_ID,$GUI_SHOW)
GUICtrlSetState($Suchliste_waehlen_ID,$GUI_SHOW)
GUICtrlSetState($Trefferliste_ID,$GUI_SHOW)
GUICtrlSetData($Anzeigeliste_ID,"")
EndSwitch
WEnd
Func _SearchStringSplit($string)
Local $suchbegriffe[1]
If StringLen($string) > 0 Then
$begriff = 1
$i = 1
ReDim $suchbegriffe[2]
Do
If StringMid($string,$i,1) = '"' Then
Do
$i += 1
If $i <= StringLen($string) Then
If StringMid($string,$i,1) = '"' Then
If $suchbegriffe[Ubound($suchbegriffe)-1] <> "" Then
$begriff +=1
ReDim $suchbegriffe[Ubound($suchbegriffe)+1]
EndIf
$i += 1
ExitLoop
Else
$suchbegriffe[$begriff] &= StringMid($string,$i,1)
EndIf
EndIf
Until $i > StringLen($string)
Else
If StringMid($string,$i,1) = " " Then
If $suchbegriffe[Ubound($suchbegriffe)-1] <> "" Then
$begriff +=1
ReDim $suchbegriffe[Ubound($suchbegriffe)+1]
EndIf
Else
$suchbegriffe[$begriff] &= StringMid($string,$i,1)
EndIf
EndIf
$i += 1
Until $i > StringLen($string)
If $suchbegriffe[Ubound($suchbegriffe)-1] = "" Then ReDim $suchbegriffe[Ubound($suchbegriffe)-1]
$suchbegriffe[0] = UBound($suchbegriffe)-1
EndIf
Return $suchbegriffe
EndFunc
Func ListDblClick()
Local $fileID, $zeile
Local $selection = _GUICtrlListBox_GetCurSel($Trefferliste_ID)
;_GUICtrlListBox_SetCurSel($Trefferliste_ID,-1)
$fileID = FileOpen(_GUICtrlListBox_GetText($Trefferliste_ID,$selection),0)
GUICtrlSetState($Suchbegriffe_ID,$GUI_DISABLE)
GUICtrlSetState($Label_In_ID,$GUI_HIDE)
GUICtrlSetState($StartSuche_ID,$GUI_HIDE)
GUICtrlSetState($Treffer_Label_ID,$GUI_HIDE)
GUICtrlSetState($Suchliste_ID,$GUI_HIDE)
GUICtrlSetState($Suchliste_waehlen_ID,$GUI_HIDE)
GUICtrlSetState($Trefferliste_ID,$GUI_HIDE)
GUICtrlSetState($Anzeigeliste_ID,$GUI_SHOW)
GUICtrlSetState($EndeSuche_ID,$GUI_SHOW)
While 1
;GUICtrlSetData($AnzeigeListe_ID,_GUICtrlListBox_GetText($Trefferliste_ID,$selection))
$zeile = FileReadLine($fileID)
If @error Then ExitLoop
If _BegriffeSuchen($begriffe,$zeile) = $begriffe[0] Then GUICtrlSetData($Anzeigeliste_ID,$zeile)
Wend
FileClose($fileID)
;_GUICtrlListBox_SetCurSel($Anzeigeliste_ID,-1)
EndFunc
Func WM_COMMAND($hWnd, $iMsg, $iwParam, $ilParam)
Local $hWndFrom, $iIDFrom, $iCode, $hWndListBox
If Not IsHWnd($Trefferliste_ID) Then $hWndListBox = GUICtrlGetHandle($Trefferliste_ID)
$hWndFrom = $ilParam
$iIDFrom = BitAND($iwParam, 0xFFFF) ; Low Word
$iCode = BitShift($iwParam, 16) ; Hi Word
Switch $hWndFrom
Case $Trefferliste_ID, $hWndListBox
Switch $iCode
Case $LBN_DBLCLK
ListDblClick()
EndSwitch
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc ;==>WM_COMMAND
Func _BegriffeSuchen ($aBegriffe, $sString)
Local $gefunden = 0
If not IsArray($aBegriffe) Then Return 0
For $i = 1 To $aBegriffe[0]
If StringInStr($sString,$aBegriffe[$i]) > 0 Then $gefunden += 1
Next
Return $gefunden
EndFunc ; _BegriffeSuchen
Deswegen neme ich lieber einfach die ID´s, da wird das nict so lang, und ich von meiner seite finds übersichtlicher
Dann darfst Du nur nie Controls deines GUI's löschen oder einfügen, nur neue anhängen.
Sonst kannst Du die ganzen ID's nachbessern. Denn die werden bei generieren nummeriert. Meiner Erfahrung nach wird beim 'GUICtrlCreate' immer die nächste freie ID genutzt.
Oder mit RegExp:
[autoit]#include <inet.au3>
#include <array.au3>
$address = "http://www.google.de"
$source = _InetGetSource($address)
$links = StringRegExp($source,'<a href="(.*?)"',3)
[/autoit][autoit][/autoit][autoit]_ArrayDisplay($links)
[/autoit]Ich habe zwar schon viel chaotisches gesehen, aber so eine AutoIt-Programmierung bisher kaum.
"GUICtrlCreate..." gibt die ID des erzeugten Controls zurück. Du kannst die ID also einfach in eine Variable lesen ($var = GUICTRLCreate...) und dann damit arbeiten. Das erhöht die Übersichtlichkeit bei den Abfragen "Case $msg = $var" und bei "GUICtrlRead($var)", sowie "GUICtrlSetData($var,...). Dann kann man den AutoIt-Code besser lesen und Du kannst Dir die Kommentare hinter den "GUICtrlCreate..." sparen.
Es heißt "Calculator" und nicht "Claculator". Manchmal ist es halt besser man schreibt "Rechner"
Wenn Du "Select...Case...EndSelct" nutzt, warum dann "if $msg= $GUI_EVENT_CLOSE Then Exit" ?
"$rechnung=$rechnung & $edit" lässt sich mit "$rechnung &= $edit" kürzen und beschleunigen.
Na siehst Du, war gar nicht schwer.
Es ist richtig. Die Parameter sind durchnummeriert. Der erste Parameter ist $cmdline[1], der zweite $cmdline[2], u.s.w.
Aber Du darf den Parameter nicht einfach mit 'If' vergleichen, weil er ja nicht unbedingt übergeben wurde. Also musst Du immer erst die Variable $cmdline[0] auslesen, in der die Anzahl der Parameter steht. Diese Variable ist immer da. Ist sie '0' wurde kein Parameter übergeben.
P.S.: Es reicht wenn Du schreibst: 'If $variable = "irgendwas"'. Die Klammern () brauchst Du nicht.
Vieleich ist diese Bespiel besser zu verstehen:
[autoit]; Ausgabe der Parameteramzahl die übergeben wurden
Msgbox(0,"","Es wurden " & $cmdline[0] & " Parameter beim Start übergeben")
If $cmdLine[0] > 0 Then ; wenn mindestens ein Parameter angegeben wurde...
$i = 1
Do
Msgbox(0,"","Parameter Nr. " & $i & " ist : " & $cmdline[$i])
$i += 1
Until $i > $cmdline[0] ; wiederhole solange noch Parameter übrig
EndIf
Du machst das verkehrt.
1. Du solltest nicht die Funktion ( Func....EndFunc) anpassen, sondern sie AUFRUFEN.
Im Falle der Funktion '_ADGetObjectsInOU' lese ich im Funktionskopf heraus, das sie ein Array der Treffer zurückgibt. Da in der Funktion nur ein 'Return 1' oder 'Return 0' zu finden ist, in der Funktionsdeklaration aber eine Referenzierung auf ein Array steht (ByRef $ObjectArray), gehe ich mal davon aus der Aufruf muss folgendermaßen aussehen:
#include <array.au3> ; nur für _ArrayDisplay() !
Dim $ReturnArray
$meineOU = "cn=all,ou=Groups,dc=example,dc=com"
$meinFilter = "name=Max*"
_ADGetObjectsInOU($ReturnArray,$meineOU,$meinFilter)
_ArrayDisplay($ReturnArray)
Ist jetzt aber frei Hand geschrieben und nur als Beispiel zu sehen (nicht getestet).
Ich scripte nun mit Autoit auch schon fast 2 Jahre. Aber da kann ich im Quelltext auch nichts erkennen. Warten wir mal auf die Auflösung 
so...
#include <GUIConstants.au3>
[/autoit] [autoit][/autoit] [autoit]Local $INSTALL, $CH1, $CH2, $EXIT, $MSG
[/autoit] [autoit][/autoit] [autoit]GUICreate("Install", 350, 310)
Opt("GUICoordMode", 1)
$DIR = @ScriptDir
GUISetBkColor(16777215)
GUISetFont(9)
$PFAD = GUICtrlCreateInput("", 10, 130, 300)
; neuer Button für den Dialog
$SelectPfad = GUICtrlCreateButton("...",315,130,20,20)
$INSTALL = GUICtrlCreateButton("Installieren", 10, 160, 100)
$CH1 = GUICtrlCreateCheckbox("Verknüpfung auf Desktop erstellen.", 10, 200, 340)
$CH2 = GUICtrlCreateCheckbox("Programm starten nach Fertigstellung.", 10, 230, 340)
GUICtrlCreateLabel("Bitte Installationspfad eingeben.", 10, 108, 300, 15)
$EXIT = GUICtrlCreateButton("Exit", 10, 270, 50)
GUICtrlCreatePic($DIR & "\install\AutoIT.bmp", 10, 10, 330, 90)
GUISetState()
[/autoit] [autoit][/autoit] [autoit]While 1
$MSG = GUIGetMsg()
Select
Case $MSG = $INSTALL
$PH = GUICtrlRead($PFAD, 1)
If $PH < " " Then
MsgBox(16, "Error", "Bitte Pfad eingeben!")
Else
GUICtrlSetState($INSTALL, $GUI_DISABLE)
GUICtrlSetState($CH1, $GUI_DISABLE)
GUICtrlSetState($CH2, $GUI_DISABLE)
DirCreate($PH)
FileCopy($DIR & "\Install\Palette.ott", $PH & "\", 1)
FileCopy($DIR & "\Install\NewStart.exe", $PH & "\", 1)
FileCopy($DIR & "\Install\To-Do Checkbox.exe", $PH & "\", 1)
If GUICtrlRead($CH1) = $GUI_CHECKED Then
FileCreateShortcut($PH & "\To-Do Checkbox.exe", @DesktopDir & "\To-Do Checkbox.lnk")
EndIf
If GUICtrlRead($CH2) = $GUI_CHECKED Then
Run($PH & "\To-Do Checkbox.exe")
EndIf
EndIf
Case $MSG = $EXIT
Exit
; wenn Button gedrückt
Case $MSG = $SelectPfad
; Input-Feld mit Pfaddialog füllen
GUICtrlSetData($PFAD,FileSelectFolder("Bitte Pfad wählen",""))
EndSelect
WEnd
Aber auch diesen Text sieht der Anwender erst, wenn er "Strg-Alt-Ent" bereits gedrückt hat.
Ich wüsste eigentlich nur, das man den Anmeldebildschirm ändern kann, wenn man die dazugehörige MSGINA.DLL anpasst.
Nur wie das machbar ist, weiß ich auch nicht.
Hallo Haksor
Du solltest:
- Dir die Hilfe zu AutoIt wenigstens mal überfliegen
- Dir Schleifen und If-Strukturen ansehen (ist wohl das notwendigste, wenn man etwas programmiert)
- Dir beim Programmieren etwas Struktur im Script angewöhen
- und Beispiele posten die (wenigstens zum Testen) komplett sind und nicht fehlende Funktionen enthalten.
So könnte es mit etwas Fantasie (ich weiß bei dem Chaos ja nicht, was rauskommen soll) klappen:
Opt("GUIOnEventMode", 1)
WinWaitActive("Dokument - WordPad")
$gui = GUICreate("---", 400, 200)
GUICtrlCreateLabel("test!", 10, 15)
$endbutton2 = GUICtrlCreateButton("Ende", 185, 170, 55)
GUICtrlSetOnEvent($endbutton2, "Ende")
$number1 = GUICtrlCreateEdit("", 10, 45, 50, 20, 0)
$okbutton = GUICtrlCreateButton("Bestätigen", 75, 45, 65)
GUICtrlSetOnEvent($okbutton, "Bestaetigen")
GUISetState(@SW_SHOW)
; damit das GUI sichtbar bleibt
While (1)
Sleep (100)
WEnd
Func Ende()
GUIDelete($gui)
Exit
EndFunc
Func Bestaetigen()
EndFunc
Vielleicht eher so...
$get_html1 = _IEBodyReadHTML ($oIE)
$get_html = StringStripCR($get_html1)
$get_split = StringSplit($get_html, '<td>', 1)
For $i = 1 to $get_split[0] ; Array-Index 0 enthält die Anzahl nach dem StringSplit
$get = StringSplit($get_split[$i], '<br>', 1)
Next
