Beiträge von Moombas

Consolewrite(_Iif('200 = 200', 99, 2) & @CRLF) ; > 99

; #FUNCTION# ====================================================================================================================
; Name...........: _Iif
; Description ...: Perform a boolean test within an expression.
; Syntax.........: _Iif($fTest, $vTrueVal, $vFalseVal)
; Parameters ....: $fTest     - Boolean test.
;                  $vTrueVal  - Value to return if $fTest is true.
;                  $vFalseVal - Value to return if $fTest is false.
; Return values .: True         - $vTrueVal
;                  False        - $vFalseVal
; Author ........: Dale (Klaatu) Thompson
; Modified.......:
; Remarks .......:
; Related .......:
; Link ..........:
; Example .......: Yes
; ===============================================================================================================================
Func _Iif($fTest, $vTrueVal, $vFalseVal)
    If $fTest Then
        Return $vTrueVal
    Else
        Return $vFalseVal
    EndIf
EndFunc   ;==>_Iif

Opt('MustDeclareVars', 1)
#include <WinAPIShPath.au3>
#include <GuiTreeView.au3>
#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <TreeViewConstants.au3>
#include <StaticConstants.au3>
#include <Array.au3>
#AutoIt3Wrapper_Au3Check_Parameters=-q -d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6 -w 7

Global $bgcolor = 0x404040, $txtcolor = 0xff8800, $extcolor = 0xffcc00, $items[4000], $names[4000], $TreevieItemNow, $wParam, $hItemSelected
Global $aTreeViewItems[1][2] = [[0],[]]
Global Const $aExt[4] = [3, 'pdf', 'doc', 'xls']
;~Global Const  $StartDir = "D:\Test"
Global Const $StartDir = @ScriptDir

Global Const $hGui = GUICreate("Treeview_Test", 800, 600, -1, -1)
Global Const $hTreeView = _GUICtrlTreeView_Create($hGui, 2, 2, 180, 600)
Global Const $hTreeView_First = _GUICtrlTreeView_AddChild($hTreeView,"","Projekte")

_GUICtrlTreeView_BeginUpdate($hTreeView)
One($StartDir, $aExt, $hTreeView_First)
_GUICtrlTreeView_EndUpdate($hTreeView)
_GUICtrlTreeView_Expand($hTreeView)
GUISetState(@SW_SHOW)

GUIRegisterMsg($WM_NOTIFY, "_WM_NOTIFY")

 While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
             ExitLoop
    EndSwitch

    If _GUICtrlTreeView_GetSelected($hTreeView, $hItemSelected) Then
        $TreevieItemNow = $aTreeViewItems[_ArraySearch($aTreeViewItems, $hItemSelected)][1]
        _GUICtrlTreeView_SetSelected($hTreeView, $hItemSelected, False)

        ;Code to work on file here!
        ConsoleWrite($TreevieItemNow & @CRLF) ; just for testing
    EndIf
WEnd


Func One($Path, $ext, $hItem, $strict = False)
    $Path = _WinAPI_PathAddBackslash($Path)
Local $sFileName, $Split, $newHandle
Local Const $hSearch = FileFindFirstFile($Path & '*.*')

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

        If @extended = 1 then ;Ordner gefunden
            $newHandle = _GUICtrlTreeView_AddChild($hTreeView, $hItem, $sFileName)
            _ArrayAdd($aTreeViewItems, $newHandle & '|' & $Path & $sFileName)
            One($Path & $sFileName, $ext, $newHandle, $strict)
        EndIf

        For $i = 1 to $ext[0]
            $Split = StringSplit($sFileName, '.')
            If not $strict and _
               ($Split[0] > 1)   then
                if StringInStr($Split[$Split[0]], $ext[$i]) then ;auch xlsx, docx etc.
                    $newHandle = _GUICtrlTreeView_AddChild($hTreeView, $hItem, StringSplit($sFileName, '.')[1])
                    _ArrayAdd($aTreeViewItems, $newHandle & '|' & $Path & $sFileName)
                EndIf
            ElseIf $Split[0] > 1 then
                If $Split[$Split[0]] = $ext[$i] then ; nur explizit
                    $newHandle = _GUICtrlTreeView_AddChild($hTreeView, $hItem, $sFileName)
                    _GUICtrlTreeView_AddChild($hTreeView, $hItem, $sFileName)
                EndIf
            EndIf
        Next
    WEnd
EndFunc

Func _WM_NOTIFY($hWnd, $iMsg, $wParam, $lParam)
    #forceref $hWnd, $iMsg, $wParam
    ; Create NMTREEVIEW structure
    Local $tStruct = DllStructCreate("struct;hwnd hWndFrom;uint_ptr IDFrom;INT Code;endstruct;" & _
            "uint Action;struct;uint OldMask;handle OldhItem;uint OldState;uint OldStateMask;" & _
            "ptr OldText;int OldTextMax;int OldImage;int OldSelectedImage;int OldChildren;lparam OldParam;endstruct;" & _
            "struct;uint NewMask;handle NewhItem;uint NewState;uint NewStateMask;" & _
            "ptr NewText;int NewTextMax;int NewImage;int NewSelectedImage;int NewChildren;lparam NewParam;endstruct;" & _
            "struct;long PointX;long PointY;endstruct", $lParam)
    If DllStructGetData($tStruct, "hWndFrom") = $hTreeView Then
        Switch DllStructGetData($tStruct, "Code")
            ; If item selection changed
            Case $TVN_SELCHANGEDA, $TVN_SELCHANGEDW
                Local $hItem = DllStructGetData($tStruct, "NewhItem")
                ; Set flag to selected item handle
                If $hItem Then $hItemSelected = $hItem
        EndSwitch
    EndIf
EndFunc

Opt('MustDeclareVars', 1)
#include <WinAPIShPath.au3>

Global Const $aExt[4] = [3, 'pdf', 'doc', 'xls']
One(@ScriptDir, $aExt)

Func One($Path, $ext, $strict = False)
    $Path = _WinAPI_PathAddBackslash($Path)
Local $sFileName, $Split
Local Const $hSearch = FileFindFirstFile($Path & '*.*')

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

        If @extended = 1 then ;Ordner gefunden
            One($Path & $sFileName, $ext, $strict)
        EndIf

        For $i = 1 to $ext[0]
            $Split = StringSplit($sFileName, '.')
            If not $strict and _
               ($Split[0] > 1)   then
                if StringInStr($Split[$Split[0]], $ext[$i]) then ;auch xlsx, docx etc.
                    _AddItemToListview($Path & $sFileName)
                EndIf
            ElseIf $Split[0] > 1 then
                If $Split[$Split[0]] = $ext[$i] then ; nur explizit
                    _AddItemToListview($Path & $sFileName)
                EndIf
            EndIf
        Next
    WEnd
EndFunc

Func _AddItemToListview($sFile)
    ;Here comes your code to add the items to the listview
    ConsoleWrite($sFile & @CRLF) ;for testing only
EndFunc

func start_objekt()
    $__bOL_AlreadyRunning = True ; <-
    _OL_Close($oOutlook)

    $oOutlook = _OL_Open()
    If @error <> 0 Then
      error_speichern($soerror,  "Outlook Error -> creating a connection to Outlook. @error = " & @error & ", @extended = " & @extended)
      infotexte()
      error_speichern($soerror,  "")
      _OL_ErrorNotify(3, @ScriptDir& '\neuerr.txt')
    EndIf
EndFunc   ;==>start_objekt

func start_objekt()
  IF IsObj($oOutlook) Then ;wenn es ein Objekt ist, mache es IMMER leer (warum?)
    $oOutlook = ''
  EndIf

  If Not IsObj($oOutlook) Then ;wird IMMER der Fall sein wegen vorheriger Abfrage!
    $oOutlook = _OL_Open()
    If @error <> 0 Then
      error_speichern($soerror,  "Outlook Error -> creating a connection to Outlook. @error = " & @error & ", @extended = " & @extended)
      infotexte()
    EndIf
    error_speichern($soerror,  "") ;Fehler speichern, auch wenn keiner vorhanden?
    _OL_ErrorNotify(3, @ScriptDir& '\neuerr.txt') ;Fehler anzeigen, auch wenn keiner vorhanden?
  EndIf
EndFunc   ;==>start_objekt

Global $pidOutlook
;...

func start_objekt()
Local Const $pid = WinGetProcess('Outlook')
    If not ($pid = $pidOutlook) then
        _OL_Close($oOutlook)
        $pidOutlook = $pid
        $oOutlook = _OL_Open()
        If @error <> 0 Then
          error_speichern($soerror,  "Outlook Error -> creating a connection to Outlook. @error = " & @error & ", @extended = " & @extended)
          infotexte()
          error_speichern($soerror,  "")
          _OL_ErrorNotify(3, @ScriptDir& '\neuerr.txt')
        EndIf
    EndIf
EndFunc   ;==>start_objekt