Beiträge von GML

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Change2CUI=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

;
; sort keys in dictionary
; https://stackoverflow.com/questions/35505931/sort-keys-in-dictionary
;

#include-once
#include <FileConstants.au3>
#include <Array.au3>

Global $sFileSelectFolder = FileSelectFolder("Verzeichnis auswählen", "c:\")

; damit bekommen alle Pfade (ohne Dateien) hinten einen \ dazu - damit weiß ich das das ein Directory ==> Verzeichniszwischenblatt, ist
$sFileSelectFolder = $sFileSelectFolder & "\"

Local $oFiles = _FileListToDict($sFileSelectFolder, True, -3, False, 100, 0)

ConsoleWrite(@CRLF & @CRLF)
ConsoleWrite(@extended & " Dateien" & @CRLF)

If Not @error Then
    For $vFiles In $oFiles.Keys
        ConsoleWrite($vFiles & ", " & $oFiles($vFiles) & @CRLF)
    Next
EndIf

MsgBox(0x0, "", 'Items Count : ' & $oFiles.count)

;===============================================================================
;
; Function Name:   _FileListToDict($vFolder[, $bRec[, $iFileInformation[, $bRelative[, $iMaxDepth[, $iFilesAndOrFolders]]]]])
; Description:     Speichert Dateien, optional mit einer gewählten Eigenschaft, in einerm Dictionary-Objekt.
; Parameter(s):    $vFolder = Ein Startverzeichnis oder ein eindimensionales Array von Startverzeichnissen für die Dateisuche.
;                  $bRec = Rekursive Dateisuche bei $bRec = True (Standardwert)
;                  $iFileInformation = In $oFiles.Items kann eine gewählte Datei-Information gespeichert werden.
;                   |-1 = Keine Information. $oFiles.Items = True. (Standardwert).
;                   | 0 = Bearbeitungszeitpunkt
;                   | 1 = Erstellzeitpunkt
;                   | 2 = Letzte Zugriffszeit
;                   |-2 = Dateigröße in bytes
;                   |-3 = Dateigröße in größter erreichter Einheit.
;                  $bRelative = $oFiles.Keys haben relativem Dateipfad bei $bRelative = True (Standardwert = False).
;                  $iMaxDepth = Anzahl der ausgelesenen Unterverzeichnisse unterhalb der/des Startverzeichniss(es) (Standardwert = 100).
;                  $iFilesAndOrFolders = $oFiles.Keys haben relativem Dateipfad bei $bRelative = True (Standardwert = False).
;                   |0 = Dateien und Ordner
;                   |1 = Nur Dateien
;                   |2 = Nur Ordner
; Return Value(s): Zurückgegeben wird ein Objekt mit den kompletten oder relativen Dateipfaden als Key (abhängig von $bRelative)
;                  und in Abhängigkeit von $iFileInformation mit True oder Datei-Information als Item.
;
;                  @error kann folgende Werte annehmen (Kombinationen möglich, BitOr):
;                         0 = kein Fehler aufgetreten, alle Dateien wurden korrekt kopiert
;                         1 = Der übergebene Pfad ist kein existierendes Verzeichnis
;                         2 = Startverzeichnis-Array ist nicht eindimensional
; Author(s):       autoiter
; Modified:
; Remarks:
;===============================================================================                               beides
Func _FileListToDict($vFolder, $bRec = True, $iFileInformation = -1, $bRelative = False, $iMaxDepth = 100, $iFilesOrFolders = 0)

    If $iFileInformation <> -1 Then
        Switch $iFileInformation
            Case 0
                $iFileInformation = $FT_MODIFIED
            Case 1
                $iFileInformation = $FT_CREATED
            Case 2
                $iFileInformation = $FT_ACCESSED
            Case -2, -3 ; FileGetSize
            Case Else
                $iFileInformation = -1
        EndSwitch
    EndIf

    If $bRec Then
        If $iMaxDepth < 1 Or Int($iMaxDepth) = 0 Then $iMaxDepth = 1
    EndIf

    If IsArray($vFolder) Then
        If UBound($vFolder, 2) > 1 Then Return SetError(2)
        Local $iMaxIndex = UBound($vFolder)
        Local $aFolder[$iMaxIndex], $iCount = 0
        For $i = 0 To $iMaxIndex - 1
            If Not StringInStr(FileGetAttrib($vFolder[$i]), "D") Then ContinueLoop
            $aFolder[$iCount] = $vFolder[$i]
            $iCount += 1
        Next
        If $iCount = 0 Then Return SetError(1)
        $iMaxIndex = $iCount
        ReDim $aFolder[$iMaxIndex]
    Else
        Local $iMaxIndex = 1
        Local $aFolder[$iMaxIndex]
        If Not StringInStr(FileGetAttrib($vFolder), "D") Then Return SetError(1)
        $aFolder[0] = $vFolder
    EndIf

    Local $oFiles = ObjCreate("Scripting.Dictionary")

    Local $aSearchFile[256], $sFile, $iDepth, $iInfo, $sFolder, $sStartFolder

    For $i = 0 To $iMaxIndex - 1
        $iDepth = 1

        $sFolder = StringRegExpReplace($aFolder[$i], "\\$", "")

        $sStartFolder = $sFolder ; Startfolder wird zur Bildung des vollen Dateipfades gespeichert.

        $aSearchFile[$iDepth] = FileFindFirstFile($sFolder & "\*.*")
        While $iDepth >= 0 ; In dieser Schleife werden alle Dateien/Ordner abgehandelt
            $sFile = FileFindNextFile($aSearchFile[$iDepth])
            If @extended And $bRec And $iDepth < $iMaxDepth Then ; Wenn es sich um ein Ordner handelt wird in diesem weiter gesucht - solange max. Rekursionstiefe nicht erreicht.
                $iDepth += 1
                $sFolder &= "\" & $sFile
                If $iFilesOrFolders <> 1 Then $oFiles($sFolder) = $iInfo
                $aSearchFile[$iDepth] = FileFindFirstFile($sFolder & "\*.*")
            ElseIf @error Then ; Wenn keine Dateien mehr im Ordner vorhanden sind wird das "Handle" Freigegeben
                FileClose($aSearchFile[$iDepth])
                $iDepth -= 1
                $sFolder = StringRegExpReplace($sFolder, "\\[^\\]*$", "")
            Else
                If $iFilesOrFolders <> 0 Then
                    If $iFilesOrFolders = 1 And StringInStr(FileGetAttrib($sFolder & "\" & $sFile), "D") Then ContinueLoop
                    If $iFilesOrFolders = 2 And Not StringInStr(FileGetAttrib($sFolder & "\" & $sFile), "D") Then ContinueLoop
                EndIf

                If $iFileInformation <> -1 Then
                    $iInfo = ""
                    Switch $iFileInformation
                        Case 0, 1, 2
                            $iInfo = FileGetTime($sFolder & "\" & $sFile, $iFileInformation, $FT_STRING)
                        Case -2
                            If Not StringInStr(FileGetAttrib($sFolder & "\" & $sFile), "D") Then $iInfo = FileGetSize($sFolder & "\" & $sFile)
                        Case -3
                            If Not StringInStr(FileGetAttrib($sFolder & "\" & $sFile), "D") Then $iInfo = __FileListToDict_ByteSuffix(FileGetSize($sFolder & "\" & $sFile))
                    EndSwitch
                    If @error Then ContinueLoop
                    If Not $bRelative Then
                        $oFiles($sFolder & "\" & $sFile) = $iInfo
                    Else
                        $oFiles(StringReplace($sFolder, $sStartFolder, "") & "\" & $sFile) = $iInfo
                    EndIf
                Else
                    If Not $bRelative Then
                        $oFiles($sFolder & "\" & $sFile) = True
                    Else
                        $oFiles(StringReplace($sFolder, $sStartFolder, "") & "\" & $sFile) = True
                    EndIf
                EndIf
            EndIf
        WEnd
    Next
    Return SetError(0, $oFiles.Count, $oFiles)
EndFunc   ;==>_FileListToDict


Func __FileListToDict_ByteSuffix($iBytes) ; Aus der Hilfe zu FileGetSize.
    Local $iIndex = 0, $aArray = [' bytes', ' kB', ' MB', ' GB', ' TB', ' PB', ' EB', ' ZB', ' YB']
    While $iBytes > 1023
        $iIndex += 1
        $iBytes /= 1024
    WEnd
    Return Round($iBytes) & $aArray[$iIndex]
EndFunc   ;==>__FileListToDict_ByteSuffix