Excel-, Word-, CSV-Dateien nach einem Suchbegriff durchsuchen

**autoiter**

Hi Leute,

ich habe häufiger die Anforderung alle Excel-, CSV-, oder Word-Dateien in Verzeichnissen nach einem Suchbegriff zu durchsuchen - meist ein eindeutiger Bezeichner für einen Datensatz. Ich benutze dafür ein wunderbares Tool: grepWin (https://sourceforge.net/projects/grepwin/). Obwohl es wunderbar funktioniert, wollte ich die Suchfunktion nachbauen, um mir noch etwas zu automatisieren und im Grunde ist das Tool auch oversized für meine Zwecke..

CSV-Dateien stellen ja kein Problem dar; ich habe sie nur erwähnt, weil ich auch sie durchsuche.. Um einen Suchbegriff mit grepWin zu finden, muss man einen Haken bei "Include Binary Files" setzen und schon werden auch Excel-Dateien mit einem Treffer gelistet.

Da habe ich mir gedacht, ich könnte einfach, ohne Beachtung des Dateityps, alle Dateien als Binary öffnen und den Suchbegriff als Binary-String darin suchen. Aber so plump klappt das bei mir nicht. Ich hoffe ihr könnt mir da weiter helfen.

Unten habe ich mal einen Ordner mit einigen Testfiles und meinem Skript angehängt (Die Inhalte sind immer 1234 oder Das ist ein Test). Wahrscheinlich könnt mir aber schon anhand des Codes sagen, wo meine Fehler liegen.

Spoiler anzeigen

AutoIt

#include <FileConstants.au3>




Example()


Func Example()
	GUICreate("", 320, 55, @DesktopWidth / 2 - 160, @DesktopHeight / 2 - 45, -1)
	Local $idFile = GUICtrlCreateInput("", 10, 5, 300, 20)
	Local $idBtn = GUICtrlCreateButton("Suche", 10, 30, 60, 20)


	GUISetState(@SW_SHOW)


	While 1
		Switch GUIGetMsg()
			Case -3
				Exit
			Case $idBtn
				Local $sString = GUICtrlRead($idFile)
				Local $bString = StringToBinary($sString)
				_Search($bString)


		EndSwitch
	WEnd
EndFunc   ;==>Example




Func _Search($bString)


	Local $sFileName, $hFileOpen, $sFileRead


	Local $hSearch = FileFindFirstFile("*.*")


	While 1


		$sFileName = FileFindNextFile($hSearch)
		If @error Then ExitLoop




		$hFileOpen = FileOpen(@ScriptDir & "\" & $sFileName, $FO_BINARY)


		If $hFileOpen = -1 Then ConsoleWrite("Fehler beim Einlesen der Datei: " & $sFileName & @LF)


		$sFileRead = FileRead($hFileOpen)


		If StringInStr($sFileRead, $bString) Then
			ConsoleWrite("Treffer in " & $sFileName & @LF)
		Else
			ConsoleWrite("Kein Treffer in " & $sFileName & @LF)
		EndIf


		FileClose($hFileOpen)


	WEnd


EndFunc   ;==>_Search

Alles anzeigen

n00b-it

Ich würde einfach um zu testen mal hinter dein Local $sString = GUICtrlRead($idFile) ein ConsoleWrite($sString & @CRLF) machen und dann auch noch mal hinter Local $bString = StringToBinary($sString) um zu sehen ob da bei der Kovertierung eventuell was falsch läuft.

LG

**autoiter**

Das funktioniert schon. Allerdings wohl nicht richtig.

Mein Verdacht war ja das Öffnen mit FileOpen als Binary. Ich dachte, da liegt ein Fehler. Ich öffne alle Dateien im Binärmodus und wandele den String um. Bei der Suche erhalte ich dann nur in den csv-Dateien Treffer (allerdings wäre das Konvertieren hier ja eigentlich nicht nötig). Bei den Dateien, die schon nicht von vornherein einfach auszulesen sind, klappt es aber auch mit dem Binary-String nicht.

n00b-it

Bevor wir jetzt hier noch weiter suchen, was genau hast du denn dann vor?
Schritt 1: Du suchst einen bestimmtem Begriff
Schritt 2: ?
...
...
Ziel: ???

**autoiter**

Ich möchte einfach einen Suchbegriff in verschiedenen Dateien in einem Ordner suchen und mir die Datei/en auflisten lassen, in der/denen der Suchbegriff gefunden wurde. Fertig.
Schau dir noch einmal meinen ersten Beitrag an

n00b-it

ah ok, dachte damit soll noch mehr gemacht werden.
Sobald ich zuhause bin werde ich mal was testen.
Melde mich dann noch mal

**Kanashius**

Soweit ich weiß sind Excel-Dateien eine Art ZIP-Datei. Vielleich musst du erst entpacken... Kann ja gut sein, dass dies Programm das intern macht...
Je nach kompression wird dort dann nichts gefunden.

n00b-it

Ich hab jetzt einfach mal zu Spaß deine Funktion etwas angepasst

Spoiler anzeigen

AutoIt

#Region    ;************ Includes ************
#Include <Array.au3>
#include <FileConstants.au3>
#EndRegion ;************ Includes ************




Example()


Func Example()
	GUICreate("", 320, 55, @DesktopWidth / 2 - 160, @DesktopHeight / 2 - 45, -1)
	Local $idFile = GUICtrlCreateInput("", 10, 5, 300, 20)
	Local $idBtn = GUICtrlCreateButton("Suche", 10, 30, 60, 20)


	GUISetState(@SW_SHOW)


	While 1
		Switch GUIGetMsg()
			Case -3
				Exit
			Case $idBtn
				Local $sString = GUICtrlRead($idFile)
				Local $bString = StringToBinary($sString)
				_Search($bString)


		EndSwitch
	WEnd
EndFunc   ;==>Example




Func _Search($bString)


	Local $sFileName, $hFileOpen, $sFileRead


	Local $hSearch = FileFindFirstFile("*.*")


	While 1


		$sFileName = FileFindNextFile($hSearch)
		If @error Then ExitLoop




		$hFileOpen = FileOpen(@ScriptDir & "\" & $sFileName)
		If $hFileOpen = -1 Then ConsoleWrite("Fehler beim Einlesen der Datei: " & $sFileName & @LF)


		$aFileContent = FileReadToArray($hFileOpen)
		_ArrayDisplay($aFileContent, $sFileName)


;~ 		$sFileRead = FileRead($hFileOpen)


;~ 		If StringInStr($sFileRead, $bString) Then
;~ 			ConsoleWrite("Treffer in " & $sFileName & @LF)
;~ 		Else
;~ 			ConsoleWrite("Kein Treffer in " & $sFileName & @LF)
;~ 		EndIf


		FileClose($hFileOpen)


	WEnd


EndFunc   ;==>_Search

Alles anzeigen

Wenn ich das ausführe und mir das Array ansehe, sehe ich nur Hieroglyphen. Dabei spielt es keine Rolle wie die Datei geöffnet ist.
Eventuell musst du einen anderen Weg gehen. Hast du schon mal überlegt die Word und Excel Funktionen von AutoIt da zuzunehmen? Oder ist auf dem Client kein Office installiert?

LG

**autoiter**

Danke für eure Antworten

@Kanashius
Das kann natürlich sein.

@n00b-it
Stimmt. Wenn du das aber nicht mit dem Array-Kram machst, sondern einfach das FileRead ($sFileRead) in die Konsole oder eine MessageBox schreiben lässt, siehst du keine Hieroglyphen, sondern eigentlich eine Ausgabe, die aussieht, als könnte das richtig sein . Naja. Könnte.

Ich habe auch daran gedacht, die Word- und Excel-Funktionen zu nehmen - Office ist installiert. Allerdings hatte ich eher im Sinn, das vielleicht auf die zuvor eingegrenzten Trefferdateien zu machen, falls ich doch mal direkt zum Eintrag springen, oder bei Excel den ganzen Datensatz auslesen möchte. Für alle Dateien schien mir das zu langwierig, da ich immer so zwischen 500 und 1000 Dateien durchsuche..

Ich werde es mal ausprobieren. Mal sehen, ob das brauchbar ist. Im Zweifel automatisiere ich eben greWin für diesen Schritt. Das Tool lässt sich auch per Konsole bedienen.

bazii

Hallo,

event. könnte Dir dies weiterhelfen für Dein Vorhaben.

Excel: xlsxreadtoarray

CSV: _FileReadToArray

Word: reading-docx-files

**autoiter**

Hallo @bazii,

danke für deine Tipps. Da auch xls- und doc-Dateien dabei sind, schien es mir jetzt doch besser einfach die UDFs zu nehmen plus normales Lesen für csv.

Da habe ich eine Frage, die fast OT ist.. Ich habe Probleme mit der Excel UDF.
Das folgende funktioniert:

AutoIt

Local $oWorkbook = _Excel_BookOpen(_Excel_Open(False), $sPath, True)
Local $aData = _Excel_RangeRead($oWorkbook)

Das Array kann ich dann durchsuchen. Also eigentlich alles gut.

Allerdings dachte ich, es geht vllt. etwas schneller, wenn ich _Excel_RangeFind benutze.

AutoIt

Local $oWorkbook = _Excel_BookOpen(_Excel_Open(False), $sPath, True)
Local $aResult = _Excel_RangeFind($oWorkbook, "5678")

Allerdings stürzt dann das Skript in der UDF ab. Die Konsole sagt folgendes:

AutoIt

"C:\Program Files (x86)\AutoIt3\Include\Excel.au3" (656) : ==> The requested action with this object has failed.:
$aResult[$iIndex][1] = $oMatch.Name.Name
$aResult[$iIndex][1] = $oMatch^ ERROR

Kann mir jemand sagen, wo das Problem liegt?

**autoBert**

Ist ein AutoIt Bug, lies dazu: https://www.autoitscript.com/forum/topic/18…r-autoit-33120/

**autoiter**

Cool, danke dir!

**autoiter**

Guten Morgen Leute,

Gestern habe ich mal meine Suche gebastelt, die ich heute an vielen Dateien testen möchte. Es klappt nun auch mit _Excel_RangeFind - in der korrigierten Fassung, auf die autoBert verlinkt hat. Allerdings stört mich daran noch eine Sache. Ich weiß nicht, ob das auch ein Bug ist, oder einfach ein für mich eher unschönes Verhalten, das ich in anderen Zusammenhängen durch Prüfungen vermeide.

Und zwar gibt _Excel_RangeFind immer ein Array zurück - auch wenn kein Treffer gefunden wurde. In diesem Fall kommt eben ein völlig leeres Array (hier $aResult). Ein Blick in die Hilfe, sagt mir zwar nicht, dass in dem Fall ein @error-Wert gesetzt wird, aber als Success hätte ich das auch nicht erwartet.

Leeres Array.png Hier könntet ihr mir wieder etwas Grundlagen beibringen. Dafür wäre ich sehr verbunden. Wie prüft man das am Besten. Eine Prüfung ob $aResult[0][0] == "" ist, führt hier zum Absturz. Ich habe mich daher für Ubound($aResult) > 0 entschieden. Davon würde ich aber sehr gerne wieder weg.

Hier ein Bsp. wenn im Skript-Ordner eine excel1.xlsx mit einem beliebigen Inhalt liegt, der keinen Treffer mit dem Suchbegriff ergibt.

AutoIt

#include <Excel.au3>


$sPath = @ScriptDir & "\excel1.xlsx"


$sSearchString = "Fehler"


Local $oWorkbook = _Excel_BookOpen(_Excel_Open(False), $sPath, True)
Local $aResult = _Excel_RangeFind($oWorkbook, $sSearchString)


If Not @error Then


	_ArrayDisplay($aResult, $sPath)


	If UBound($aResult) > 0 Then MsgBox(0, "", "Treffer")
	If $aResult[0][0] == "" Then MsgBox(0, "", "Treffer") ; nur zur Illustration


EndIf

Alles anzeigen

**autoBert**

Zitat von water

No records found" isn't returned as an error by Excel. The function just returns an empty array. So you need to check for the number of rows in the array.

Und du weißt doch schon wie du dies überprüfen kannst:

Zitat von autoiter
AutoIt
If UBound($aResult) > 0 Then MsgBox(0, "", "Treffer")

**autoiter**

Oh, die Erklärung von water habe ich gar nicht gelesen. Steht wahrscheinlich im Wiki, oder?

Dann wird bei jeder xls oder xlsx ein Ubound nötig.. Wahrscheinlich fahre ich dann doch mit _Excel_RangeRead und _Arraysearch besser. Werde ich mal testen. Danke dir @autoBert.

AutoIt

Local $aData = _Excel_RangeRead($oWorkbook)
$iSearch = _ArraySearch($aData, $sSearchString, 0, 0, 0, 1)
If $iSearch <> - 1 Then ...

**autoBert**

Zitat von autoiter

Oh, die Erklärung von water habe ich gar nicht gelesen. Steht wahrscheinlich im Wiki, oder?

nein in einem Hilfe Thread

**autoiter**

Hey Leute,

falls es mal jemanden interessiert, hier meine Erfahrungen.
Die Experten werden es gewusst haben. Ich sehe nun ein, dass AutoIt nicht das Werkzeug der Wahl für massenhaftes Durchsuchen von Dateien ist (wenigstens nicht so, wie ich das mache)..

Überraschenderweise muss ich schon sagen, dass die oben geschilderte Kombination von _Excel_RangeFind und Ubound bei jeder Suche doch deutlich schneller ist, als mein Favorit _Excel_RangeRead und _ArraySearch (- etwa doppelt so schnell!!).

Getestet habe ich an einem Ordner mit 450 Excel-Dateien.
Bei meinem Skript habe ich nun voll auf die UDFs gesetzt.
(Das zeitraubende ArrayAdd wird nur im Erfolgsfall ausgeführt. Bei meinem Test nur einmal).

Ergebnis:

- Mein AutoIt-Skript: Zwischen 80 und 85 Sekunden (mit direktem Aufruf der Suche, ohne GUI-Abfrage).

- grepWin: 15 Sekunden

Da ist es sicher besser grepWin per Konsole zu starten und die Ergebnisse aus der GUI zu lesen, um damit weiter zu arbeiten.

Hier die Suche soweit ich sie hatte (Wenn ihr da Schnitzer seht, wäre ich euch für Hinweise dankbar.

Spoiler anzeigen

AutoIt

#include <FileConstants.au3>
#include <Array.au3>
#include <Excel.au3>
#include <Word.au3>
#include <File.au3>


Global $aResult[0][2] 				; Ergebnis-Array


Global $iCount = 1, $iNumberOfFiles 		; für eine eventuelle Fortschrittsanzeige. Siehe _Search


Global $sPath = @ScriptDir & "\Dateien" 	; hier noch ein fester Pfad


_GUI()


Func _GUI()
	GUICreate("", 320, 85, @DesktopWidth / 2 - 160, @DesktopHeight / 2 - 45, -1)
	GUICtrlCreateLabel(" (Bei Excel/CSV wird der erste Treffer je Datei angezeigt.)", 10, 35, 310, 20)
	Local $idInpt = GUICtrlCreateInput("", 10, 5, 300, 25)
	Local $idBtn = GUICtrlCreateButton("Suche Starten", 10, 55, 80, 25)


	Local $AccelKeys[1][2] = [["{Enter}", $idBtn]]
	GUISetAccelerators($AccelKeys)




	GUISetState(@SW_SHOW)


	While 1
		Switch GUIGetMsg()
			Case -3
				Exit
			Case $idBtn
				Local $sString = GUICtrlRead($idFile)
				_Search($sString)
		EndSwitch
	WEnd
EndFunc   ;==>_GUI




Func _Search($sString)
	Local $aSearch = _FileListToArrayRec($sPath, "*", 1, 1, 0, 2)
	$iNumberOfFiles = $aSearch[0]




	If Not @error Then
		Local $aPathSplit


		For $i = 1 To $iNumberOfFiles


;~ 			ConsoleWrite("Datei: " & $sFullPath & " /  Nummer " & $iCount & " von " & $iNumberOfFiles & @LF)
;~ 			$iCount += 1


			$aPathSplit = StringSplit($aSearch[$i], ".")


			Switch $aPathSplit[$aPathSplit[0]]
				Case $aPathSplit[$aPathSplit[0]] == "csv"
					_SearchCSV($aSearch[$i], $sString)
				Case $aPathSplit[$aPathSplit[0]] == "doc", "docx"
					_SearchWORD($aSearch[$i], $sString)
				Case $aPathSplit[$aPathSplit[0]] == "xls", "XLS", "xlsx", "XLSX"
					_SearchEXCEL($aSearch[$i], $sString)
			EndSwitch
		Next


		_ArrayDisplay($aResult, "Endergebnis") 	; nach Abschluss der Suche werden hier die Ergebnisse angezeigt.
		Exit
	EndIf
EndFunc   ;==>_Search


Func _SearchCSV($sFullPath, $sString)
	Local $aData
	$sData = FileRead($sFullPath)


	Local $sStringCheck = StringReplace($sData, $sString, "") ; erste Prüfung, ob der Such-String in der csv vorhanden ist. Wenn nicht, Funktion verlassen.
	If Not @extended Then Return 0


	$aData = StringSplit($sData, ";", 2)
	If @error Then
		_ArrayAdd($aResult, $sFullPath & "|" & StringReplace($sData, @CRLF, ""))
		Return 0
	EndIf
	Local $iSearch = _ArraySearch($aData, $sString, 0, 0, 0, 1)
	Local $sRow, $iMaxCol = UBound($aData, 2) - 1
	If $iMaxCol < 0 Then $iMaxCol = 0
	For $i = 0 To $iMaxCol
		If $iMaxCol > 0 Then
			$sRow &= "~*~" & $aData[$iSearch][$i]
			$sRow = StringTrimLeft($sRow, 3)
		Else
			$aData[$iSearch] = StringReplace($aData[$iSearch], @CRLF, "")
			$sRow &= "~*~" & $aData[$iSearch]
			$sRow = StringTrimLeft($sRow, 3)
		EndIf
		_ArrayAdd($aResult, $sFullPath & "|" & $sRow)
	Next
EndFunc   ;==>_SearchCSV


Func _SearchEXCEL($sFullPath, $sString)
	Local $oWorkbook = _Excel_BookOpen(_Excel_Open(False), $sFullPath, True)


	; ------------ Start "_Excel_RangeFind"-Variante ------------ ;


	Local $aData = _Excel_RangeFind($oWorkbook, $sString)


	If UBound($aData) > 0 Then _ArrayAdd($aResult, $sFullPath & "|" & "Worksheet: " & $aData[0][0] & "~*~" & "Cell: " & $aData[0][2] & "~*~" & "Value: " & $aData[0][3])


	; ------------ Ende "_Excel_RangeFind"-Variante ------------ ;






	; ------------ Start "_Excel_RangeRead"-Variante ------------ ;


;~ 	Local $aData = _Excel_RangeRead($oWorkbook)
;~ 	Local $iSearch = _ArraySearch($aData, $sString, 0, 0, 0, 1) ; 18,09, 10.34


;~ 	If $iSearch <> -1 Then
;~ 		Local $sRow
;~ 		For $i = 0 To UBound($aData, 2) - 1
;~ 			$sRow &= "~*~" & $aData[$iSearch][$i]
;~ 		Next
;~ 		$sRow = StringTrimLeft($sRow, 3)
;~ 		_ArrayAdd($aResult, $sFullPath & "|" & $sRow)
;~ 	EndIf


	; ------------ Ende "_Excel_RangeRead"-Variante ------------ ;


	_Excel_BookClose($oWorkbook, False)
EndFunc   ;==>_SearchEXCEL


Func _SearchWORD($sFullPath, $sString)
	Local $oWord = _Word_Create(False)
	Local $oDoc = _Word_DocOpen($oWord, $sFullPath, Default, Default, True)
	Local $oRangeFound = _Word_DocFind($oDoc, $sString)
	If Not @error Then _ArrayAdd($aResult, $sFullPath & "|" & $oDoc)
	_Word_DocClose($oDoc)
EndFunc   ;==>_SearchWORD

Alles anzeigen

Wahrscheinlich werde ich das Skript in einer Stichwortsuche für Arbeitsanleitungen verwenden. Da könnte das noch nützlich werden. Für größere Suchen, aber eher nicht..

Falls du dich hierhin verirrt hast und eine Lösung auf Binärebene hast, melde dich ruhig auch, wenn der Thread ein, zwei Jahre alt ist. Wahrscheinlich wird es mich wirklich noch interessieren

**autoiter**

Hi Leute,
auf eine email-Frage von mir, hat der grepWin-Programmierer mir geantwortet, dass dieses Programm tatsächlich ohne Beachtung der Datei arbeitet, wenn man die Suche in Binär-Dateien auswählt. Scheinbar geht das also doch?!?

Wahrscheinlich ist doch ein Fehler in meinem Skript in Post 1. Erkennt da jemand etwas? Werden die Dateien falsch geöffnet, oder der String falsch umgewandelt?

(Ungeliebter Push eines eigenen Themas.. Ist aber als einmalige Sache gedacht und kam nur, weil ich diese interessante Info bekommen habe).