Initial Upload

project/_Resources/SearchForUnneededRes.au3

@@ -0,0 +1,185 @@
+#include <Array.au3>
+
+;Skripte einlesen
+$ScriptsDir = @ScriptDir & "\scripts\"
+$ScriptsDir64 = @ScriptDir & "\scripts\x64\"
+
+Global $data = ""
+
+_Search($ScriptsDir)
+_Search($ScriptsDir64)
+
+If FileExists("output.txt") Then FileDelete("output.txt")
+FileWrite("output.txt", $data)
+;ShellExecute("output.txt")
+
+;unique
+$output = FileOpen("output.txt")
+$aContentOutput = FileReadToArray($output)
+FileClose($output)
+FileDelete("output.txt")
+
+$aContentOutput = _ArrayUnique($aContentOutput, "", 0)
+_ArraySort($aContentOutput, 0, 1)
+
+$dataUnique = ""
+For $k = 1 to $aContentOutput[0]
+   If $aContentOutput[$k] <> "" Then
+	  If $k = $aContentOutput[0] Then
+		 $dataUnique &= $aContentOutput[$k]
+	  Else
+		 $dataUnique &= $aContentOutput[$k] & @LF
+	  EndIf
+   EndIf
+Next
+
+If FileExists("UsedFiles.txt") Then FileDelete("UsedFiles.txt")
+FileWrite("UsedFiles.txt", $dataUnique)
+;ShellExecute("UsedFiles.txt")
+
+
+
+;Resourcen einlesen
+Global $theme = "gnome" ; = basic theme
+
+;get Files
+$aReturn = _RecursiveFileListToArray(@ScriptDir & "\" & $theme, "\.png\z|\.bmp\z|\.ico\z", 0) ;"\.png\z|\.svg\z"
+;_ArrayDisplay($aReturn)
+_ArraySort($aReturn, 0, 1)
+
+$data = ""
+For $k = 1 to $aReturn[0]
+   $data &= $aReturn[$k] & @LF
+Next
+
+If FileExists("file_index.txt") Then FileDelete("file_index.txt")
+FileWrite("file_index.txt", $data)
+;ShellExecute("file_index.txt")
+
+
+
+;Diff Skripte vs. Resourcen
+$res_used = FileOpen("UsedFiles.txt")
+$a_res_used = FileReadToArray($res_used)
+
+$res = FileOpen("file_index.txt")
+$a_res = FileReadToArray($res)
+
+
+For $a = UBound($a_res) - 1 To 0 Step -1
+    For $b = 0 To UBound($a_res_used) - 1
+        If $a_res[$a] = $a_res_used[$b] or StringInStr($a_res[$a], "basebrd.dll") > 0 or StringInStr($a_res[$a], "\themes\") > 0 or StringInStr($a_res[$a], "\symbolic\") > 0 Then
+            _ArrayDelete($a_res, $a)
+            ExitLoop
+        EndIf
+    Next
+Next
+
+
+FileDelete("file_index.txt")
+FileDelete("UsedFiles.txt")
+_ArrayDisplay($a_res, "Unneeded files")
+
+
+
+;=========================================================================================================
+; Function Name:   _RecursiveFileListToArray($sPath, $sPattern, $iFlag = 0, $iFormat = 1, $sDelim = @CRLF)
+; Description::    gibt Verzeichnisse und/oder Dateien (rekursiv) zur<75>ck, die
+;                  einem RegExp-Pattern entsprechen
+; Parameter(s):    $sPath = Startverzeichnis
+;                  $sPattern = ein beliebiges RexExp-Pattern f<>r die Auswahl
+;                  $iFlag = Auswahl
+;                           0 = Dateien & Verzeichnisse
+;                           1 = nur Dateien
+;                           2 = nur Verzeichnisse
+;                  $iFormat = R<>ckgabeformat
+;                             0 = String
+;                             1 = Array mit [0] = Anzahl
+;                             2 = Nullbasiertes Array
+;                  $sDelim = Trennzeichen f<>r die String-R<>ckgabe
+; Requirement(s):  AutoIt 3.3.0.0
+; Return Value(s): Array/String mit den gefundenen Dateien/Verzeichnissen
+; Author(s):       Oscar (www.autoit.de)
+;                  Anregungen von: bernd670 (www.autoit.de)
+;=========================================================================================================
+;Quelle: http://www.autoit.de/index.php?page=Thread&threadID=12423&highlight=_RecursiveFileListToArray
+Func _RecursiveFileListToArray($sPath, $sPattern, $iFlag = 0, $iFormat = 1, $sDelim = @CRLF)
+    Local $hSearch, $sFile, $sReturn = ''
+    If StringRight($sPath, 1) <> '\' Then $sPath &= '\'
+    $hSearch = FileFindFirstFile($sPath & '*.*')
+    If @error Or $hSearch = -1 Then Return SetError(1, 0, $sReturn)
+    While True
+        $sFile = FileFindNextFile($hSearch)
+        If @error Then ExitLoop
+        If StringInStr(FileGetAttrib($sPath & $sFile), 'D') Then
+            If StringRegExp($sPath & $sFile, $sPattern) And ($iFlag = 0 Or $iFlag = 2) Then $sReturn &= $sPath & $sFile & '\' & $sDelim
+            $sReturn &= _RecursiveFileListToArray($sPath & $sFile & '\', $sPattern, $iFlag, 0)
+            ContinueLoop
+        EndIf
+        If StringRegExp($sFile, $sPattern) And ($iFlag = 0 Or $iFlag = 1) Then $sReturn &= StringReplace($sPath & $sFile & $sDelim, @ScriptDir & "\" & $theme, "Resources") ;$sPath & $sFile & $sDelim
+    WEnd
+    FileClose($hSearch)
+    If $iFormat Then Return StringSplit(StringTrimRight($sReturn, StringLen($sDelim)), $sDelim, $iFormat)
+
+    Return $sReturn
+ EndFunc
+
+
+
+
+ ;Scripts Einlesen
+Func _Search($dir)
+
+   ; Assign a Local variable the search handle of all files in the current directory.
+   Local $hSearch = FileFindFirstFile($dir & "*.txt")
+
+   ; Check if the search was successful, if not display a message and return False.
+   If $hSearch = -1 Then
+	  MsgBox($MB_SYSTEMMODAL, "", "Error: No files/directories matched the search pattern.")
+	  Return False
+   EndIf
+
+   ; Assign a Local variable the empty string which will contain the files names found.
+   Local $sFileName = ""
+
+   While 1
+	  $sFileName = FileFindNextFile($hSearch)
+	  ; If there is no more file matching the search.
+	  If @error Then ExitLoop
+
+	  _Action($ScriptsDir & $sFileName)
+   WEnd
+
+   ; Close the search handle.
+   FileClose($hSearch)
+
+EndFunc
+
+
+Func _Action($file)
+
+   $script = FileOpen($file)
+   $aContent = FileReadToArray($script)
+   ;_ArrayDisplay($aContent)
+   FileClose($script)
+
+   $used_files = ""
+   For $i = 0 to UBound($aContent)-1
+	  If StringInStr($aContent[$i], "-modify") > 0 Then
+		 $string = StringSplit(StringReplace($aContent[$i], "-modify ", ""), ",")
+		 ;_ArrayDisplay($string)
+
+		 $used_files &= $string[1] & "|"
+	  EndIf
+   Next
+   $used_files = StringTrimRight($used_files, 1)
+
+   $aUsedFiles = StringSplit($used_files, "|")
+   $aUsedFiles = _ArrayUnique($aUsedFiles, "", 1)
+   ;_ArrayDisplay($aUsedFiles)
+
+   For $j = 1 to $aUsedFiles[0]
+	  $data &= $aUsedFiles[$j] & @LF
+   Next
+
+EndFunc