Schlagwortsuche in Textdateien

bazii

Zitat von autoiter

Im Anhang mal eine angepasste Variante. Ich fände es super, wenn du es mit dieser noch einmal probierst.

Diese Version ist wieder richtig klasse geworden. Vielen Dank dafür !

Ich habe jetzt mal zum Test nur einen kleineren Teil meiner Dateien einlesen lassen. Das sind unter 500 Dateien. Enthalten sind nur "doc, docx, xls, xlsx und pdf" Dateien. MS-Office ist auf dem Testrechner nicht installiert. nur Libreoffice. Das sollte ja aber keine Rolle spielen.

Hier ein Video von dem Versuch unter 500 Dateien mit Konsolenausgabe:
http://www.eibenkunst.de/Autoiter/Aufna…8_54_20_103.mp4

Die Fehlerausgabe der Console zeigt auf die entsprechende Dateien wie z. B.:
Skriptzeile: 1399 D:\xxx\xxx\xxx\xxx\Protokoll xxx 19.12.12.doc - _Word_DocOpen-Fehler: 1

Allerdings wird dieselbe Datei unterhalb des Fehlers nochmals in der Consolenausgabe ohne den Fehler "_Word_DocOpen-Fehler: 1" ausgegeben.

Bei einem Test mit wieder mehr als 8.000 Dateien läuft das Skript nun sauber durch. Gefällt mir klasse. Dauer beim Erstdurchlauf mit allen möglichen Dateitypen ca. 13 Minuten. Das sollte im Regelfall aber eher die Ausnahme darstellen meine ich. Siehe: http://www.eibenkunst.de/Autoiter/Aufna…9_15_17_588.mp4

Die Suchresultate sind sehr gut. Eine andere von mir eingesetzte Software fand auch nicht mehr als Deine, dafür war Deine schneller. Vor allem im Hinblick auf die Datenbanksuche gibt es nichts besseres, zumindest nicht was ich jemals gesehen hätte. Von meiner seite her läuft Dein Skript jetzt sehr gut durch und bietet fast alles was ich für einen sehr guten Suchlauf benötige.

Ich danke Dir sehr für die Überarbeitungen.

**autoiter**

Hi @bazii,
vielen Dank, dass du dir nochmal so viel Zeit genommen hast und sogar wieder Videos gemacht hast. Es ist sehr schön, auch zu sehen, um was es geht.

Also scheinbar ist alles gut. Mir ist nicht klar, warum das Schreiben so lange dauert (bei den 489 Dateien waren es ja über 0,2 Sekunden je Datei. - So schnell durchsucht das Programm später die ganze Tabelle ). Aber das ist wohl einfach so. Hauptsache das Programm bleibt bedienbar und funktioniert.

Witzig finde ich aber, dass es bei dir am Ende ja gar nicht länger dauert als zuvor. Bei mir ist ist die Suchdauer bei 5841 Dateien um etwa 10-15 Sekunden gestiegen (dennoch nur max 66 Sekunden mit SSD).

Zitat von bazii

MS-Office ist auf dem Testrechner nicht installiert. nur Libreoffice. Das sollte ja aber keine Rolle spielen.

Das sollte keine Rolle spielen. In deinen Tests habe ich zwar keine Suchtreffer aus Office-Dateien gesehen, aber das funktioniert, oder?
Da sollte das Programm eigentlich auch eine seiner Stärken ausspielen, weil es ja eine eigene GUI für Textdokumente und Excel/CSV-Dateien gibt (wenn auch ohne Übernahme der Formatierung..). Mit einem Doppelklick auf den Treffer solltest du den Inhalt angezeigt bekommen (Rechtsklick würde das Standardprogramm öffnen).

Im Video konnte man aber auch schön sehen, dass immer wieder probiert wird, dass Dokument mit Word zu öffnen. Vielleicht wäre es besser, den Fehlversuch für die Suche zu speichern und gleich mit den anderen Methoden zu arbeiten.

Zitat von bazii

Vor allem im Hinblick auf die Datenbanksuche gibt es nichts besseres, zumindest nicht was ich jemals gesehen hätte. Von meiner seite her läuft Dein Skript jetzt sehr gut durch und bietet fast alles was ich für einen sehr guten Suchlauf benötige.

Windows (10/8.1) selbst ist mittlerweile super. Wenn du das Startmenü öffnest und einfach deinen Suchbegriff schreibst, öffnet sich eine Ergebnisanzeige. Da musst du noch auf das Symbol für Dokumente klicken und findest die Ergebnisse der Volltextsuche mit Vorschau wenn der Mauszeiger über einem Eintrag ist. Allerdings würde es dir keine Vollansicht spendieren, wenn kein verknüpftes Programm installiert ist.

Mein Programm ist vor allem dann sinnvoll, wenn aus Performance-Erwägungen der Indexdienst abgeschaltet ist, oder die Dateien auf einem Netzlaufwerk liegen oder eben kein geeignetes Anzeigeprogramm verfügbar ist.

Ich werde das Programm nochmal so umstricken, dass die Option "alle 500 Dateien in DB schreiben" wieder funktioniert, aber das direkte Schreiben wird Standard. Wenn du noch eine Idee hast, immer her damit.

Nochmal vielen Dank. Bis dahin

bazii

Zitat von autoiter

Mir ist nicht klar, warum das Schreiben so lange dauert (bei den 489 Dateien waren es ja über 0,2 Sekunden je Datei. - So schnell durchsucht das Programm später die ganze Tabelle ). Aber das ist wohl einfach so.

Mir leutet es ein, warum die Erstsuche (Indexizierung) seine Zeit benötigt. Jede Datei einzeln öffnen, suchen, finden, schließen. Das benötigt seine Zeit. Wie gesagt, mir ist nicht schnelleres als Deine Softw. bekannt.

Zitat von autoiter

Bei mir ist ist die Suchdauer bei 5841 Dateien um etwa 10-15 Sekunden gestiegen (dennoch nur max 66 Sekunden mit SSD).

Ich arbeite auch mit einer SSD :). Beim zweiten Durchlauf komme ich auch auf Deine Werte. Nur beim ersten Durchlauf nicht. Ich vergleiche den ersten Durchlauf mit einem Indexizieren der Dateien auf Inhalt. Dann geht die Post aber so was von ab, das ist fantastisch. Auch andere Suchbegriffe sind schneller gefunden wie man schauen kann. Schlecht für Pausenliebhaber die ab und an mal wegen der Technik eine rauchen gehen konnten

Zitat von autoiter

In deinen Tests habe ich zwar keine Suchtreffer aus Office-Dateien gesehen, aber das funktioniert, oder?

Das funktioniert aber so was von perfekt. Rechtklick und Libre öffnet die Datei. Doppelklick öffnet das Textfenster in nullkommanix.

Zitat von autoiter

Mein Programm ist vor allem dann sinnvoll, wenn aus Performance-Erwägungen der Indexdienst abgeschaltet ist, oder die Dateien auf einem Netzlaufwerk liegen oder eben kein geeignetes Anzeigeprogramm verfügbar ist.

Oh ja. So ist es. Vor allem bei älterer Hardware habe ich grundsätzlich den Indexdienst deaktiv. Da leistet Deine Textsuche perfekte Arbeit.

Zitat von autoiter

Wenn du noch eine Idee hast, immer her damit.

OHA. Das ist eine gefährliche Sache bei mir. Ich muss Dich ausdrücklich davor warnen mich mit Ideeen aufzufordern. Davon habe ich mehr genug. Daraus könnte eine leicht aufwendige Arbeit werden.

Einiges habe ich aber schon zusammengestrickt. Nur wie, ist eine andere Sache . Und wie Du es dann umsetzen könntest auch. Ich schaffe das alleine nicht.

Mein Traum ist ein Text-Regenerator. Text suchen, Text finden, Text ersetzen. Incl. Office-Dateien und incl. gepackter Dateien.
Hier mein Skript, welches nicht optimal läuft da 7z., zip nicht funktioniert.
Es könnte entsprechend auf Deine Textsuche erweitert werden könnte oder anders herum. Doch ich packe das alleine einfach nicht.
Ich habe mich auch nicht getraut, im Forum hier nach entsprechender Unterstütz zu fragen weil ich oftmals die Tips nicht umsetzen kann die ich bekomme.
Oft brauche ich Tage um 2 zeilen Code funktional zu bekommen. Mir fehlen die Hintergründe eines Studiums oder die Gehirnwindungen. Auch egal.
Hier der Code:

AutoIt

#include <Array.au3>
#include <AutoItConstants.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <File.au3>
#include <FileConstants.au3>
#include <GUIConstantsEx.au3>
#include <StringConstants.au3>
#include <WindowsConstants.au3>


Opt('GUIOnEventMode', 1)
Opt('MustDeclareVars', 1)


Global Const $eWinTitle = "Text-Regenerator"
Global Const $eName     = " 2016 -Bazii-"


Global $g_hGUI, $g_idEdit_SearchText, $g_idEdit_TargetText, $g_idButton_End, $g_idButton_Fuse, _
	$g_idButton_Start, $g_aidCheckbox, $g_idButton_SourceFolder, $g_idInput_Path, $g_aidCheckbox2


Global Const $g_eCheckbox[] = ["txt", "html", "htm", "php", "srt", "ini", "inf", "reg", "xml", "bat", "cfg", "rtf", "xxx", "xxx", "xxx", "xxx", "xxx", "xxx", "xxx", "xxx", "xxx", "xxx"]


; ---------- --------- -------- ------- ------ ----- ---- --- -- -


$g_hGUI = GUICreate($eWinTitle, 670, 530, -1, -1, BitOR($GUI_SS_DEFAULT_GUI, $WS_THICKFRAME))
  $g_idEdit_SearchText = GUICtrlCreateEdit("(Suchtext)", 10, 120, 650, 153)
  $g_idEdit_TargetText = GUICtrlCreateEdit("(Zieltext)", 10, 300, 650, 153)
  $g_idButton_End = GUICtrlCreateButton("Beenden", 190, 8, 73, 33)
  $g_idButton_Fuse = GUICtrlCreateButton("Sicherung", 100, 8, 73, 33)
    GUICtrlSetTip(-1, "Eine Sicherung der ausgewählten Dateiendungen (Originale)" & @CRLF & "im Zielverzeichnis vor der Textersetzung erstellen")
  $g_idButton_Start = GUICtrlCreateButton("Start", 10, 8, 73, 33)
    GUICtrlSetTip(-1, "Die Textersetzung starten")
;~   GUICtrlCreateLabel($eName, 25, 500, 100, 17)
  $g_aidCheckbox = __GUI_CreateCheckbox()
  $g_idButton_SourceFolder = GUICtrlCreateButton("Quell Ordner", 611, 485, 34, 34, $BS_ICON)
    GUICtrlSetImage(-1, "shell32.dll", 4)
  $g_idInput_Path = GUICtrlCreateInput("Pfadauswahl nur über Icon Ordner", 125, 495, 466, 20, BitOR($GUI_SS_DEFAULT_INPUT, $ES_READONLY))
  $g_aidCheckbox2 = GUICtrlCreateCheckbox("Mit Anfangsbuchstaben (Zieltext) ganze Zeilen im Dokument entfernen", 10, 460)


  GUICtrlSetOnEvent($g_idButton_End, __idButton_End__)
  GUICtrlSetOnEvent($g_idButton_SourceFolder, __idButton_SourceFolder__)
  GUICtrlSetOnEvent($g_idButton_Fuse, __idButton_Fuse__)
  GUICtrlSetOnEvent($g_idButton_Start, __idButton_Start__)
  GUISetOnEvent($GUI_EVENT_CLOSE, GUI_EVENT_CLOSE)
GUISetState()


; ---------- --------- -------- ------- ------ ----- ---- --- -- -


While Sleep(1000)
WEnd


; ---------- --------- -------- ------- ------ ----- ---- --- -- -


Func _ReadCheckbox($sPath)
	Local $sMask = _GetMask(";", "*.")
	Local $avPath = _FileListToArrayRec($sPath, $sMask, $FLTAR_FILES, $FLTAR_RECUR, Default, $FLTAR_FULLPATH)


	If @error Then Dim $avPath[1] = [0]
	Return SetError(Not $sMask, 0, $avPath)
EndFunc




Func _GetMask($sSplit, $sPre = "")
	Local $iFor, $sMask


	For $iFor = 0 To UBound($g_aidCheckbox) -1
		If GUICtrlRead($g_aidCheckbox[$iFor]) = $GUI_CHECKED Then $sMask &= $sPre & $g_eCheckbox[$iFor] & $sSplit
	Next


	Return StringTrimRight($sMask, 1)
EndFunc




Func _Run7Zip($sCMD)
	Local $iPID = Run('"7za.exe" ' & $sCMD, @ScriptDir, @SW_HIDE, $STDOUT_CHILD)
	Local $sRead


	Do
		$sRead &= StdoutRead($iPID)
	Until @error


	StdioClose($iPID)
	Return $sRead
EndFunc




Func _ArchiveList($sPath, $sFilter)
	Local Const $eCMD = '"l" "' & $sPath & '"'
	Local Const $eRegEx = '[0-9 :-]{20}.{33}(.*\.(?:' & $sFilter & '))'
	Local $avRegEx


	$avRegEx = StringRegExp(_Run7Zip($eCMD), $eRegEx, $STR_REGEXPARRAYGLOBALMATCH)
	If IsArray($avRegEx) Then
		_ArrayInsert($avRegEx, 0, UBound($avRegEx))
	Else
		Dim $avRegEx[1] = [0]
	EndIf


	Return $avRegEx
EndFunc




Func _ArchiveExtract($sPath, $sFile)
	Local Const $eCMD = '"e" "' & $sPath & '" "' & $sFile & '" "-o' & @TempDir & '"'


	_Run7Zip($eCMD)


	Return StringRegExp($sFile, "(?:.*\\|)(.*)", $STR_REGEXPARRAYGLOBALMATCH)[0]
EndFunc




Func _ArchiveAdd($sPath, $sFile)
	Local Const $eCMD = '"a" "' & $sPath & '" "' & $sFile & '"'
	_Run7Zip($eCMD)
EndFunc


; ---------- --------- -------- ------- ------ ----- ---- --- -- -


Func __idButton_End__()
	GUI_EVENT_CLOSE()
EndFunc




Func GUI_EVENT_CLOSE()
	Exit
EndFunc




Func __idButton_SourceFolder__()
	Local $sPath = FileSelectFolder("Öffnen", @MyDocumentsDir, Default, "", $g_hGUI)
	If @error Then Return ;--Return um nicht das Programm zu beenden, sondern um zur GUI zurückzukehren


	GUICtrlSetData($g_idInput_Path, $sPath)
EndFunc




Func __idButton_Fuse__() ;--Sicherung anlegen
	Local $iFor, $bChecked, $avPath
	Local $sPath = GUICtrlRead($g_idInput_Path)
	Local $iCount = 1


	If $sPath <> "Pfadauswahl nur über Icon Ordner" Then
		If FileExists($sPath & "\Text-Regenerator Backup Verzeichnis") And Not DirRemove($sPath & "\Text-Regenerator Backup Verzeichnis", $DIR_REMOVE) Then Return MsgBox(0, "Hinweis", "Es sind geöffnete Dateien im Backupverzeichnis enthalten. Bitte schließen Sie diese vor der Ausführung!", 0, $g_hGUI)


		$avPath = _ReadCheckbox($sPath)


		If Not @error Then
			For $iFor = 1 To $avPath[0]
				If FileCopy($avPath[$iFor], $sPath & "\Text-Regenerator Backup Verzeichnis\" & $iFor, $FC_CREATEPATH) Then
					FileWriteLine($sPath & "\Text-Regenerator Backup Verzeichnis\Copy.txt", $iFor & " = " & $avPath[$iFor])
				EndIf
			Next
		Else
			Return MsgBox(0, "Hinweis", "Es wurde keine Dateiendung ausgewählt!", 0, $g_hGUI)
		EndIf
	Else
		Return MsgBox(0, "Hinweis", "Es wurde kein Pfad ausgewählt!", 0, $g_hGUI)
	EndIf


	If $avPath[0] Then Return MsgBox(0, "Hinweis", "Backup wurde erfolgreich erstellt!", 0, $g_hGUI)
	MsgBox(0, "Hinweis", "Keine Dateien zur Sicherung mit den gewählten Dateieindungen vorhanden.", 0, $g_hGUI)
EndFunc




Func __idButton_Start__()
	Local $sPath = GUICtrlRead($g_idInput_Path)
	Local $sSearch = GUICtrlRead($g_idEdit_SearchText)
	Local $sTarget = GUICtrlRead($g_idEdit_TargetText)
	Local $avPath, $iFor, $sText, $hFile, $sFail, $avArchive, $iIn, $sFile


	If $sPath <> "Pfadauswahl nur über Icon Ordner" Then
		$avPath = _ReadCheckbox($sPath)
		If Not @error Then
			For $iFor = 1 To $avPath[0]
				$sText = FileRead($avPath[$iFor])
				$sText = StringReplace($sText, $sSearch, $sTarget, 0, $STR_CASESENSE)


				$hFile = FileOpen($avPath[$iFor], $FO_OVERWRITE)


				If $hFile <> -1 Then
					FileWrite($hFile, $sText)
					FileClose($hFile)
				Else
					$sFail &= $avPath[$iFor] & @CRLF
				EndIf
			Next


			$avPath = _FileListToArrayRec($sPath, "*.zip;*.7z", $FLTAR_FILES, $FLTAR_RECUR, Default, $FLTAR_FULLPATH)
			If Not @error Then
				ConsoleWrite($avPath)
				For $iFor = 1 To $avPath[0]
					$avArchive = _ArchiveList($avPath[$iFor], _GetMask("|"))


					For $iIn = 1 To $avArchive[0]
						$sFile = @TempDir & "\" & _ArchiveExtract($avPath[$iFor], $avArchive[$iIn])
						$sText = FileRead($sFile)
						$sText = StringReplace($sText, $sSearch, $sTarget, 0, $STR_CASESENSE)


						$hFile = FileOpen($sFile, $FO_OVERWRITE)
						FileWrite($hFile, $sText)
						FileClose($hFile)
					Next
				Next
			EndIf
		Else
			Return MsgBox(0, "Hinweis", "Es wurden keine entsprechend ausgewählten Dateiendungen gefunden!", 0, $g_hGUI)
		EndIf
	Else
		Return MsgBox(0, "Hinweis", "Es wurde kein Pfad ausgewählt!", 0, $g_hGUI)
	EndIf


	If $sFail Then $sFail = @CRLF & @CRLF & "Folgende Dateien konnten nicht überschrieben werden:" & @CRLF & $sFail
	MsgBox(0, "Hinweis", "Der Text wurde erfolgreich ersetzt!" & $sFail, 0, $g_hGUI)
EndFunc


; ---------- --------- -------- ------- ------ ----- ---- --- -- -


Func __GUI_CreateCheckbox()
	Local $iFor, $avCheckbox[UBound($g_eCheckbox)]
	Local $iWidth = WinGetPos($g_hGUI)[2]
	Local Const $eLeft = 50


	Local $iCtrl = Floor($iWidth / $eLeft)




	For $iFor = 0 To $iCtrl -1
		$avCheckbox[$iFor] = GUICtrlCreateCheckbox(" " & $g_eCheckbox[$iFor], $iFor * $eLeft + 10, 65, $eLeft, 20)
	Next


	For $iFor = $iCtrl To UBound($g_eCheckbox) -1
		$avCheckbox[$iFor] = GUICtrlCreateCheckbox(" " & $g_eCheckbox[$iFor], ($iFor - $iCtrl) * $eLeft + 10, 90, $eLeft, 20)
	Next


	Return $avCheckbox
EndFunc


; ---------- --------- -------- ------- ------ ----- ---- --- -- -


;~ Func __GUI_CreateCheckbox2()
;~
;~ EndFunc


; ---------- --------- -------- ------- ------ ----- ---- --- -- -

Alles anzeigen

Also wenn Du Dir ein wenig Zeit für die Idee nehemn kannst, wäre das klasse Quasi ein Gemeinschaftsprojekt.

Ich bin Gärtnermeister und äußerst kreativ im "planen" aber wesentlich zu naiv (oder zu doof), die wichtigsten Dinge im Code hinzubekommen. Bernd670, Oscar, Autobert, UEZ und nicht zuletzt MakeGrafik haben sich an mir die Zähne bereits ausgebissen, weil ich immer gleich die Hand abreisen will, wenn mir jemand den Finger hinstreckt.

Und diese Idee wäre nicht die einzigste. Hätte da noch eine .... zündende ....

**autoiter**

Das Programm ist aktualisiert und im ersten Beitrag angehängt.

Soo @bazii, gleich ein Attentat oder wie?
Gerne will ich helfen. Allerdings übersteigen die Anforderungen zum Teil sicher auch das was ich hinbekomme. Text ersetzen kann ich in Office-Dateien nicht ohne installiertes Office. Das übersteigt einfach meine Kenntnisse/Fähigkeiten. Die Forensoftware nennt mich zwar Profi, aber das liegt nur an der Anzahl der Beiträge. Interessiert sie nicht, dass die meisten davon lauten: Tolles Skript, BugFix. Danke für das tolle Skript UEZ, Wow, super Arbeit Oscar.
Hier wäre vielleicht grepWin etwas für dich: http://stefanstools.sourceforge.net/grepWin.html
Das ist ein ganz tolles Programm, bei dem mir am Ende doch ein paar Dinge (für genau meine Zwecke) gefehlt haben, so dass ich die Textsuche geschrieben habe. Aber wenn du da Binär-Dateien anhakst findet Grewpwin alles, bietet Suchen/Ersetzen und Regex Suchpattern.

Ansonsten kann ich dir sicher die Suche in dein Programm einbauen. Aber ohne Datenbank in dem Fall, oder?

bazii

Zitat von autoiter

Hier wäre vielleicht grepWin etwas für dich: stefanstools.sourceforge.net/grepWin.html

Das kenne ich bereits. Kein Programm aber das ich kenne bietet mir das was ich alles vereinen möchte.

Zitat von autoiter

Text ersetzen kann ich in Office-Dateien nicht ohne installiertes Office.

Das habe ich nie für ein Problem gehalten, da ja auch mit einem Open- oder Libreoffice die Dateien geöffnet und bearbeitet werden können. Kann mich aber auch täuschen.

Zitat von autoiter

Die Forensoftware nennt mich zwar Profi, aber

und mich Fortgeschrittener .... Ich habe schon ein paar nützliche Dinge gecodet aber brauchte immer Hilfe weil ich irgendwann nicht mehr weiter wusste.

Zitat von autoiter

Ansonsten kann ich dir sicher die Suche in dein Programm einbauen. Aber ohne Datenbank in dem Fall, oder?

Das ist es ja, ich kann das nicht richtig beurteilen.
Mein Programm sucht und findet Text und kann ihn auch ersetzen.

Dein Programm sucht und findet Text und kann die Dateien auf verschiedene Weise anzeigen.

Vereint wäre das klasse. Ob eine Datenbank dazu notwendig sein muss kann ich nicht beurteilen. Fehler ist es aber sicher nicht oder was meinst Du?

In mein Skript sollte noch die Funktionalität von Zip, 7z. entpacken, Text suchen, finden, ersetzen und die zuvor entpackten dateien wieder packen integrert werden. Das habe ich nicht geschafft.
Und Textersetzen von Officedateien sollte halt auch möglich sein. Zur Not auch nur dann, wenn Office installiert ist.

**autoiter**

Huiuiui, also das volle Programm
Sorry, da macht es nach aktuellem Stand keinen Sinn, ich portiere alles in dein Programm, denn selbst deine GUI muss ja noch umgebaut werden.
Prinzipiell hätte ich auch schon einen Vorschlag für einen Ersatz deiner Checkboxen für Dateitypen. Wie man das nun zusammenbekommt, Oberfläche, mit/ohne DB, Archive, Office usw. können wir gerne per PN bequatschen. Das ufert hier sonst zu sehr aus.

**autoiter**

Hallo Leute,
ich musste das Programm nochmal aktualisieren. Falls es jemand nutzt, sorry. Im letzten Update war ein böser Bug. Statt dem Bearbeitet-Zeitpunkt habe ich den Erstellt-Zeitpunkt ausgewertet und immer mit dem Wert in der Datenbank verglichen. Änderungen in Dateien wurden dadurch überhaupt nicht bemerkt..

bazii

Danke für die Info. Ich hatte das Programm bereits mehrfach sehr erfolgreich im Einsatz, hatte den Fehler aber nicht entdeckt, da ich die Datenbank für meine Suchen stets entleert habe, da die verschiedenen Suchordner immer auf einer anderen Festplattenpartition waren. Hier auch gleich die Frage, wie sich das mit solch verschiedenen Suchorten verhält. Wie reagiert da die Datenbank, wenn ich diese nicht entleere? Was ist sinnvoller in diesem Fall meine ich. Besser DB leeren oder nicht, wenn die Suche auf verschiedenen Partitionen stattfindet?

**autoiter**

Hallo @bazii

Zitat von bazii

Ich hatte das Programm bereits mehrfach sehr erfolgreich im Einsatz, hatte den Fehler aber nicht entdeckt, da ich die Datenbank für meine Suchen stets entleert habe, da die verschiedenen Suchordner immer auf einer anderen Festplattenpartition waren.

Also bei so einer Nutzung sehe ich keinen guten Grund auf dieses Programm zurückzugreifen Da nimm zum Beispiel GrepWin, womit das erste Einlesen deutlich schneller ist. Die Textsuche spielt ja erst bei wiederholten Suchen ihre Vorteile aus.

Aber es ist so:
Alle neuen Dateien werden in die DB gelesen. Wenn du das Verzeichnis wechselst werden dort auch alle Dateien (sind dem Programm ja neu) eingelesen. Also bis dahin alles gut.

Wenn du den Haken "Datenbankbereinigung" setzt, wird bei jeder Suche auch geprüft, ob die Datei im aktuellen Ordnerzweig vorhanden ist. Wenn nicht wird sie aus der Datenbank entfernt.

Das heißt, du kannst ruhig ohne Löschen der DB in Verzeichnissen suchen. Wenn dir die Suchen träge erscheinen kannst du mit "Datenbankbereinigung" alle obsoleten Daten löschen.

- Das ist aber auch eine große Schwäche des Programms. Hier hast du bisher keine Möglichkeit nur bestimmte Daten zu entfernen. Alles was nicht zur aktuellen Suche passt, fliegt raus. Das kann ich bei Gelegenheit verbessern. Aber gerade erledige ich eine umfangreiche, unbezahlte Auftragsarbeit, @bazii.

bazii

Zitat von autoiter

Das heißt, du kannst ruhig ohne Löschen der DB in Verzeichnissen suchen. Wenn dir die Suchen träge erscheinen kannst du mit "Datenbankbereinigung" alle obsoleten Daten löschen.

Na, das ist doch echt genial. Dann nutze ich doch das richtige Programm und kann es jetzt, nachdem Du den Fehler gefixt hat auf allen Partitionen nutzen und somit in der Datenbanksuche und gleichsam mit genauer Trefferquote enorm viel Zeit sparen.

Zitat von autoiter

Das ist aber auch eine große Schwäche des Programms. Hier hast du bisher keine Möglichkeit nur bestimmte Daten zu entfernen. Alles was nicht zur aktuellen Suche passt, fliegt raus.

Man muss ja nicht unbedingt Daten daraus entfernen. Solage die Datenbank nicht spürbar träger wird, wenn sie immer voller wird finde ich das voll ok so wie es ist.

Zitat von autoiter

Statt dem Bearbeitet-Zeitpunkt habe ich den Erstellt-Zeitpunkt ausgewertet und immer mit dem Wert in der Datenbank verglichen.

Eben habe ich von 7268 indexierten Dateien bei denen ein Suchwort vorkam, in einer der gefundenen Dateien das Suchwort geändert.
Resultat (ohne nur Datenbanksuche) war in 24 Sekunden perfekt. Die Datei wurde nicht mehr gefunden. . Klasse Arbeit !

Zitat von autoiter

gerade erledige ich eine ...

tut mir echt leid .... ich konnte nicht im entferntesten ahnen was ich Dir damit antue.

**autoiter**

Hallo Leute,
Das Programm hat noch mal ein Update erhalten.
Neben einigen Fehlerkorrekturen und Aufräumarbeiten wurden einige Arrays, die ich als Filter verwandte durch Dictionaries ersetzt. Gerade bei vielen Dateien macht sich ein enormer Geschwindigkeitszuwachs bemerkbar, wenn _ArraySearch durch $oObj.Exists("Element") ersetzt wird (etwa beim Dateitypfilter auf jede Datei oder deren letzter Änderungszeitpunkt..).
Ich habe es wieder kommentiert, damit man das hoffentlich etwas nachvollziehen kann. Die betroffenen Funktionen finden sich im ersten Beitrag und zum Vergleich liegt die letzte Version mit Arrays auch im Verzeichnis.
PS: Statt mit den eingefügten Beispieldateien, kann man das entweder mit einem eigenen Verzeichnis mit vielen Office- und Textdateien testen oder etwa das Autoit Installationsverzeichnis mit den ganzen au3-Dateien nehmen.