Files lokalisieren und in Log schreiben

basler

Hallo @,

ich benötige ein Skript in Auto IT, das mir die komplette lokale Platte (C:\)
nach Dateien mit der Extension "*.id" durchsucht und wenn eine solche
Datei gefunden wurde, soll der Dateiname und das Verzeichnis in eine
Log Datei geschrieben werden.

Als Ergebnis soll also eine Logdatei mit allen .id Files + Verzeichnissangabe
rauskommen.

Hat jemand eine gute Umsetzungsidee ?

Helft mir bitte mal auf die Sprünge, ich bin krampfhaft am suchen von
AutoIT Funktionen die mir dabei helfen...

Danke schonmal im voraus für inspirative Tipps

Gruß
Christian

**GtaSpider**

Hallo Basler!

Ich habe mal eben ein Script für dich geschrieben:

Code

;~ $dgd = DriveGetDrive("FIXED")
;~ $dat = ""
;~ For $i = 1 To $dgd[0]
;~ 	$dat&=FileSearch($dgd[$i],"*.id")
;~ Next; So machst du es wenn er alle Festplatten durchsuchen soll!
$dat = FileSearch("c:","*.id")
$file = "id_of_c .log"
if FileExists($file) Then FileDelete($file)
FileWrite($file,$dat)




Func FileSearch($search_dir, $s_ext = '*.*', $sep_char = @CRLF, $last_line = False)
	$allfiles = ''
	$z = 0
	$search_dir = StringReplace($search_dir & '\', '\\', '\')
	$search = FileFindFirstFile($search_dir & '*.*')
	While 1
		$z += 1
		$file = FileFindNextFile($search)
		If $file = '' Then ExitLoop
		$full_file = $search_dir & $file
		$check_file = StringInStr(FileGetAttrib($full_file), 'D')
		If $check_file <> 0 Then $allfiles &= FileSearch($full_file, $s_ext, $sep_char, True)
		If $check_file = 0 Then
			If $s_ext = '*.*' Then $allfiles &= $full_file & $sep_char
			If $s_ext <> '*.*' And StringTrimLeft($s_ext, 1) = StringRight($full_file, StringLen(StringTrimLeft($s_ext, 1))) Then $allfiles &= $full_file & $sep_char
		EndIf
	WEnd
	FileClose($search)
	If Not $last_line Then $allfiles = StringTrimRight($allfiles, StringLen($sep_char))
	Return $allfiles
EndFunc   ;==>FileSearch

Alles anzeigen

Mfg Spider

basler

Hi gtaspider,

danke für Deine schnelle Hilfe und Mühe, da ich noch AutoIT Anfänger
bin werde ich mir mal Dein Skript schnappen und langsam für mich zerlegen,
das ich die einzelnen Schritte und Befehle verstehe.
Aber ich werde es danach auf jedenfall mal testen und Feedback geben...

Vielen herzlichen Dank erstmal...

Gruß
Christian

**GtaSpider**

Hallo

Natürlich immer gerne wenn du fragen hast, frag

Mfg Spider

basler

Hi gtaspider,

hab das Skript mal kopiert und wollt es "blauäugig" einfach mal laufen lassen,
ich bekomme aber die Meldung "Error: Badly formatted "Func" statement"
in Zeile 12 des Skriptes.

Ich komme aber noch nicht auf den Fehler....

Hast Du es bei Dir mal getestet ?

Help me please...

Danke und Gruß
Christian

ytwinky

Hi,
ich habe die Forenseite gespeichert, das Skript rauskopiert und gestartet..
..und erhalte keine Ausgabe. Das ist eigentlich auch kein Wunder.
Was ich damit aber sagen will, ist, daß ich auch keine Fehlemeldung erhalte!
Nu komms du
ytwinky

**bernd670**

Hallo,

in dem Script werden Schlüsselworter und Operatoren benutzt die erst ab AutoIt v3.1.1.16 (beta) zur Verfügung stehen. Einfach hier die aktuelle Beta-Version herunterladen und schon geht's!

Mfg Bernd

**GtaSpider**

Hallo!

Ja genau wie bernd schon sagt wer keine beta will für den hab ichs neugeschrieben:

Code

;~ $dgd = DriveGetDrive("FIXED")
;~ $dat = ""
;~ For $i = 1 To $dgd[0]
;~ 	$dat&=FileSearch($dgd[$i],"*.id")
;~ Next; So machst du es wenn er alle Festplatten durchsuchen soll!
$dat = FileSearch("c:","*.id")
$file = "id_of_c .log"
if FileExists($file) Then FileDelete($file)
FileWrite($file,$dat)




Func FileSearch($search_dir, $s_ext = '*.*', $sep_char = @CRLF, $last_line = 0)
	$allfiles = ''
	$z = 0
	$search_dir = StringReplace($search_dir & '\', '\\', '\')
	$search = FileFindFirstFile($search_dir & '*.*')
	While 1
		$z += 1
		$file = FileFindNextFile($search)
		If $file = '' Then ExitLoop
		$full_file = $search_dir & $file
		$check_file = StringInStr(FileGetAttrib($full_file), 'D')
		If $check_file <> 0 Then $allfiles &= FileSearch($full_file, $s_ext, $sep_char, 1)
		If $check_file = 0 Then
			If $s_ext = '*.*' Then $allfiles &= $full_file & $sep_char
			If $s_ext <> '*.*' And StringTrimLeft($s_ext, 1) = StringRight($full_file, StringLen(StringTrimLeft($s_ext, 1))) Then $allfiles &= $full_file & $sep_char
		EndIf
	WEnd
	FileClose($search)
	If Not $last_line Then $allfiles = StringTrimRight($allfiles, StringLen($sep_char))
	Return $allfiles
EndFunc   ;==>FileSearch

Alles anzeigen

**bernd670**

Hallo,

da es die Operatoren "+=" und "&=" in v.3.1.0 noch nicht gibt müssen die Zeilen 18, 23, 25 und 26 auch noch angepasst werden:

Code

18:     $z = $z + 1
23:     If $check_file <> 0 Then $allfiles = $allfiles & FileSearch($full_file, $s_ext, $sep_char, 1)
25: 	If $s_ext = '*.*' Then $allfiles = $allfiles & $full_file & $sep_char
26:	If $s_ext <> '*.*' And StringTrimLeft($s_ext, 1) = StringRight($full_file, StringLen(StringTrimLeft($s_ext, 1))) Then $allfiles = $allfiles & $full_file & $sep_char

Nachtrag

Aufgrund eines Fehlers, in der Funktion FileFindFirstFile, kann es zu folgendem Fehler kommen:

--> Unable to open file, the maximum number of open files has been exceeded.

Dieser Fehler wurder erst in der Version v.3.1.1.81 (beta) behoben.

**GtaSpider**

Hallo!

Das mit Dem FilefindfirstFile kann eigentlich nicht passieren da die datei nur einmal geöffnet wird und nach der schleife wider Beendet wird! Dass mein bei FileFindNextFile auch FileClose hintersezten muss wäre mir neu..
Hier mal die überarbeitete

Code

;~ $dgd = DriveGetDrive("FIXED")
;~ $dat = ""
;~ For $i = 1 To $dgd[0]
;~ 	$dat&=FileSearch($dgd[$i],"*.id")
;~ Next; So machst du es wenn er alle Festplatten durchsuchen soll!
$dat = FileSearch("c:","*.id")
$file = "id_of_c .log"
if FileExists($file) Then FileDelete($file)
FileWrite($file,$dat)




Func FileSearch($search_dir, $s_ext = '*.*', $sep_char = @CRLF, $last_line = 0)
	$allfiles = ''
	$z = 0
	$search_dir = StringReplace($search_dir & '\', '\\', '\')
	$search = FileFindFirstFile($search_dir & '*.*')
	While 1
		$z = $z + 1
		$file = FileFindNextFile($search)
		If $file = '' Then ExitLoop
		$full_file = $search_dir & $file
		$check_file = StringInStr(FileGetAttrib($full_file), 'D')
		If $check_file <> 0 Then $allfiles = $allfiles & FileSearch($full_file, $s_ext, $sep_char, 1)
		If $check_file = 0 Then
			If $s_ext = '*.*' Then $allfiles = $allfiles & $full_file & $sep_char
			If $s_ext <> '*.*' And StringTrimLeft($s_ext, 1) = StringRight($full_file, StringLen(StringTrimLeft($s_ext, 1))) Then $allfiles = $allfiles & $full_file & $sep_char
		EndIf
	WEnd
	FileClose($search)
	If Not $last_line Then $allfiles = StringTrimRight($allfiles, StringLen($sep_char))
	Return $allfiles
EndFunc   ;==>FileSearch

Alles anzeigen

**bernd670**

Hallo,

schon mal was von Rekursion gehört? In Zeile 23 wird die Funktion FileSearch rekursiv aufgerufen, d.h. FileClose wird erst aufgerufen, wenn alle Unterverzeichnisse durchlaufen sind.
Natürlich darf man nach der Funktion FileFindNextFile kein FileClose aufrufen, diese Funktion arbeitet ja mit dem Filehandle den die Funktion FileFindFirstFile geöffnet hat und würde eine Fehler verursachen, wenn man ein FileClose aufrufen würde.

**GtaSpider**

Hallo

Ja hab ich... Eben! was sagt denn der Profi? (Du :comp1:?) Wie würdest du es machen?

**bernd670**

Hallo,

die Lösung die du gewählt hast ist natürlich die eleganteste und einfachste ;)! ich würde es im normalfall genauso lösen (evtl. mit Fehlermeldung), das ganze mit der aktuellen Beta-Version kompilieren und gut ist. Es würde zwar auch ohne Rekursion gehen aber der Aufwand lohnt sich wahrscheinlich nicht.

Man könnte es natürlich auch ganz einfach mit dem DIR-Befehl lösen:

Code

RunWait(@ComSpec & " /c DIR /S /B C:\*.id > idfiles_c.log", "", @SW_HIDE)

und danach mit dem Ergebins in "idfiles_c.log" weiterarbeiten.

basler

Hallo Leute,

tut mir echt sorry, aber ich habe mir nun mal die aktuelle Beta Ver 3.1.1.123
gezogen und installiert, das letzte aktualisierte Skript von "gtaspider" bringt aber immer noch den Fehler für Zeile 16....

"Error: Unable to open file, the maximum number of open files has been exceeded."

Kann mir bitte nochmal jemand einen guten Tipp geben, wie ich als totaler Neuling in AutoIT, das Teil zum laufen bekommen kann ?

Sorry für die lästigen Fragen, aber ich komme hier irgendwie nicht richtig weiter...

Danke und Grüße
Christian

**bernd670**

Hallo Christian,

hast du auch die richtige Autoit3.exe benutzt? Die befindet sich im Verzeichnis AutoI3\beta\ oder bei SciTE mit Alt+F5 ausführen bzw. mit Alt+F7 kompilieren!

basler

Hallo bernd670,

die Lösung des Problems war wirklich die neue AutoIT.exe

Ich dachte nach installation der Beta, wird auch automatisch beim nächsten compilieren diese benutzt.
Dem war wohl nicht so....

Aber jetzt nachdem ich die Beta Version wie von Dir richtig beschrieben
benutzt habe, hat es funktioniert. :-))

Recht herzlichen Dank...

Grüße
Christian