Beiträge von wuff100

  • Array 1D zu 2D

    Moin,

    Spoiler anzeigen

    Dim $aArray[6]

    $aArray[0] = '1'

    $aArray[1] = '2'

    $aArray[2] = '3'

    $aArray[3] = '4'

    $aArray[4] = '5'

    $aArray[5] = '6'

    $rows = UBound($aArray)

    $rows1 = $rows / 3

    Dim $aArray2D[$rows1][3]

    Local $cols = UBound($aArray2D, 2)

    For $i = 0 To UBound($aArray) - 1

    $aArray2D[0][0] = $aArray[0]

    $aArray2D[0][1] = $aArray[1]

    $aArray2D[0][2] = $aArray[2]

    $aArray2D[1][0] = $aArray[3]

    $aArray2D[1][1] = $aArray[4]

    $aArray2D[1][2] = $aArray[5]

    Next

    _ArrayDisplay($aArray2D)


    Ich versuche ein Array von 1D zu 2D zu wandeln.

    Nach jedem 3. Eintrag soll eine neue Zeile beginnen und die darauffolgenden 3. Einträge in die nächste Zeile eingetragen werden.

    Das Array kann sehr lang werden. So wie in dem Beispiel soll es aussehen, natürlich dynamisch.

    Könnt ihr mir helfen?

  • ShellExecuteWait mit Outlookdatei

    Spoiler anzeigen

    #include

    #include

    #include

    OnAutoItExitRegister('OnAutoItExit')

    ; Create GUI

    Local $hForm = GUICreate('Test ' & StringReplace(@ScriptName, '.au3', '()'), 400, 400)

    Local $idCheck = GUICtrlCreateCheckbox('Enable Drag && Drop', 10, 370, 120, 19)

    Local $idLabel = GUICtrlCreateLabel('', 100, 100, 200, 200)

    Global $g_hLabel = GUICtrlGetHandle($idLabel)

    GUICtrlSetBkColor(-1, 0xD3D8EF)

    GUICtrlCreateLabel('Drop here', 175, 193, 50, 14)

    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)

    ; Allow WM_DROPFILES to be received from lower privileged processes (Windows Vista or later)

    #cs

    If IsAdmin() Then

    _WinAPI_ChangeWindowMessageFilterEx($g_hLabel, $WM_COPYGLOBALDATA, $MSGFLT_ALLOW)

    _WinAPI_ChangeWindowMessageFilterEx($g_hLabel, $WM_DROPFILES, $MSGFLT_ALLOW)

    EndIf

    #ce

    ; Register label window proc

    Global $g_hDll = DllCallbackRegister('_WinProc', 'ptr', 'hwnd;uint;wparam;lparam')

    Global $g_pDll = DllCallbackGetPtr($g_hDll)

    Global $g_hProc = _WinAPI_SetWindowLong($g_hLabel, $GWL_WNDPROC, $g_pDll)

    GUISetState(@SW_SHOW)

    While 1

    Switch GUIGetMsg()

    Case $GUI_EVENT_CLOSE

    ExitLoop

    Case $idCheck

    _WinAPI_DragAcceptFiles($g_hLabel, GUICtrlRead($idCheck) = $GUI_CHECKED)

    EndSwitch

    WEnd

    Func _WinProc($hWnd, $iMsg, $wParam, $lParam)

    Switch $iMsg

    Case $WM_DROPFILES

    Local $sFileList = _WinAPI_DragQueryFileEx($wParam)

    If Not @error Then

    ConsoleWrite('--------------------------------------------------' & @CRLF)

    For $i = 1 To $sFileList[0]

    ConsoleWrite($sFileList[$i] & @CRLF)

    Next

    EndIf

    _WinAPI_DragFinish($wParam)

    Return 0

    EndSwitch

    Return _WinAPI_CallWindowProc($g_hProc, $hWnd, $iMsg, $wParam, $lParam)

    EndFunc ;==>_WinProc

    Func OnAutoItExit()

    _WinAPI_SetWindowLong($g_hLabel, $GWL_WNDPROC, $g_hProc)

    DllCallbackFree($g_hDll)

    EndFunc ;==>OnAutoItExit

    So funktioniert es vom Explorer aus, aber nicht von Outlook.

    Was könnte mein Fehler sein?

  • ShellExecuteWait mit Outlookdatei

    Zitat

    Der Benutzer oder das Skript?

    Der Benutzer!

    So würde es funktionieren!

    $SaveAsMail = D:\Testmail

    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders", "Personal", "REG_EXPAND_SZ", $SaveAsMail)

    local $Mail = _OL_ItemSave($oOutlook, $oItem, Default, $SaveAsMail & $Betreff & ".msg", $olMSGUnicode)

    $Mail.Display

    Mail öffnet, kann beschrieben werden, dann mit "speichern unter" speichern und versenden.

    Cool wäre es, wenn die Mail beim versenden automatisch gespeichert ( $SaveAsMail ) wird, dass ist aber meines Wissens nicht möglich, oder?

    Deshalb wollte ich sie mit ShellexecuteWait öffnen, Text schreiben, versenden und mit dem Skript abspeichern.

  • ShellExecuteWait mit Outlookdatei

    Zitat

    Das ginge auch mit $oMail.Display.

    Das weiß ich, aber dann kann ich die gespeicherte Datei nach dem Befüllen nicht wieder abspeichern, sondern nur die göffnete Datei.

    Der Hintergrund ist der, die mit _OL_ItemSave gespeicherte Datei öffnen, mit Text Befüllen, speichern und versenden.

  • ShellExecuteWait mit Outlookdatei

    water: Nein, die _OL_ItemSave Funktion funktioniert super.

    Ich öffne nach dem _OL_ItemSave Vorgang gleich die Datei mit ShellExecuteWait.


    Habe das Problem gefunden. Wenn Outlook in der Taskleiste sichtbar noch göffnet ist, funktioniert ShellExecuteWait nicht.

    Kann es nur leider mit _OL_Close nicht schließen. :/

  • EditControl bestimmten Text finden

    Oscar... :)

    Ich möchte anhand des Datums die Zeile und damit den Text ermitteln.
    Dann den Text auslesen.


    Spoiler anzeigen


    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <Date.au3>


    Example()


    Func Example()


    GUICreate("Test")


    Local $idMyedit = GUICtrlCreateEdit("20.02.2017 Hallo 1" & @CRLF, 176, 32, 200, 150, $ES_AUTOVSCROLL + $WS_VSCROLL)


    GUISetState(@SW_SHOW)


    Send("{END}")


    GUICtrlSetData($idMyedit, "27.02.2017 Hallo 2" & @CRLF, 1)
    GUICtrlSetData($idMyedit, "16.01.2017 Hallo 3" & @CRLF, 1)


    While 1
    Switch GUIGetMsg()
    Case $GUI_EVENT_CLOSE
    ExitLoop


    EndSwitch
    WEnd
    GUIDelete()
    EndFunc ;==>Example