Jump to content
Valnurat

Listview search

Recommended Posts

Valnurat

I have 8 listview on my GUI. I would like to search in the listview for a number. I only want to search in 3 of the 8 listviews. I know number 1 is in $hLV_C1 and not in the others, but when I run this the result is that that I get the message that it is found in all of my 3 listviews I want to search for.

Global $aSearchListview[3] = ["$hLV_C1","$hLV_C3","$hLV_C5"]
    $hLV_C1 = GUICtrlCreateListView('0', 245, 40, 25, $iTotalHeight, $LVS_NOCOLUMNHEADER, $WS_EX_TRANSPARENT)
    _GUICtrlListView_SetColumnWidth($hLV_C1, 0, $LVSCW_AUTOSIZE)
    $hLV_C2 = GUICtrlCreateListView('0', 275, 40, 25, $iTotalHeight, $LVS_NOCOLUMNHEADER, $WS_EX_TRANSPARENT)
    _GUICtrlListView_SetColumnWidth($hLV_C2, 0, $LVSCW_AUTOSIZE)
    $hLV_C3 = GUICtrlCreateListView('0', 305, 40, 25, $iTotalHeight, $LVS_NOCOLUMNHEADER, $WS_EX_TRANSPARENT)
    _GUICtrlListView_SetColumnWidth($hLV_C3, 0, $LVSCW_AUTOSIZE)
    $hLV_C4 = GUICtrlCreateListView('0', 335, 40, 25, $iTotalHeight, $LVS_NOCOLUMNHEADER, $WS_EX_TRANSPARENT)
    _GUICtrlListView_SetColumnWidth($hLV_C4, 0, $LVSCW_AUTOSIZE)
    $hLV_C5 = GUICtrlCreateListView('0', 365, 40, 25, $iTotalHeight, $LVS_NOCOLUMNHEADER, $WS_EX_TRANSPARENT)
    _GUICtrlListView_SetColumnWidth($hLV_C5, 0, $LVSCW_AUTOSIZE)
    $hLV_C6 = GUICtrlCreateListView('0', 395, 40, 25, $iTotalHeight, $LVS_NOCOLUMNHEADER, $WS_EX_TRANSPARENT)
    _GUICtrlListView_SetColumnWidth($hLV_C6, 0, $LVSCW_AUTOSIZE)
    $hLV_C7 = GUICtrlCreateListView('0', 425, 40, 25, $iTotalHeight, $LVS_NOCOLUMNHEADER, $WS_EX_TRANSPARENT)
    _GUICtrlListView_SetColumnWidth($hLV_C7, 0, $LVSCW_AUTOSIZE)

    
    Local $sNumber = '1', $g_bSortSense = false
    GUICtrlCreateListViewItem($sNumber, $hLV_C1)
    _GUICtrlListView_SimpleSort($hLV_C1,$g_bSortSense,0,False)
    For $iColumnIndex = 0 to UBound($aSearchListview) -1
        Local $iIndex = _GUICtrlListView_FindItem($aSearchListview[$iColumnIndex],-1,$sNumber)
        If $iIndex <> -1 Then
            MsgBox(0,'Found',$aSearchListview[$iColumnIndex])
        Else
            MsgBox(0,'Not Found',$aSearchListview[$iColumnIndex])
        EndIf
    Next

Why is that?


Yours sincerely

Kenneth.

Share this post


Link to post
Share on other sites
AutoBert

Please, make a full runable with populated LV's (reproducer) script showing your issue(s).

Share this post


Link to post
Share on other sites
Valnurat
#include <GUIConstantsEx.au3>
#include <GuiListView.au3>

Local $aGUT[0]
Local $aSearchListview[3] = ["$hLV_C1","$hLV_C3","$hLV_C5"]
Local $MainGUIForm = GUICreate("My GUI",455,600)
Local $hHeader, $sNumber, $g_bSortSense = False

    For $i = 0 To 90
        _ArrayAdd($aGUT, $i)
    Next
    GUICtrlCreateTabItem("R/B")
    $hLV_RB = GUICtrlCreateListView('Test', 50, 100, 94, 255, $LVS_NOCOLUMNHEADER)

    ; Now calculate ListView 2 vertical size
    $hHeader = _GUICtrlListView_GetHeader($hLV_RB)
    $aSize = WinGetPos($hHeader)
    $iHeaderHeight = $aSize[3] ; Header height
    $aRect = _GUICtrlListView_GetItemRect($hLV_RB, 0)
    $iItemHeight = $aRect[3] - $aRect[1] ; Item height
    $iTotalHeight = $iHeaderHeight + (20 * ($iItemHeight + .5)) -10 ; Allow for the inter-item gaps
    $hLV_C0 = GUICtrlCreateListView('0', 185, 40, 50, $iTotalHeight, $LVS_NOCOLUMNHEADER)
    _GUICtrlListView_SetColumnWidth($hLV_C0, 0, $LVSCW_AUTOSIZE)
    For $i = 0 To 12
        GUICtrlCreateListViewItem( $i, $hLV_C0)
    Next
    $hLV_C1 = GUICtrlCreateListView('0', 245, 40, 25, $iTotalHeight, $LVS_NOCOLUMNHEADER)
    _GUICtrlListView_SetColumnWidth($hLV_C1, 0, $LVSCW_AUTOSIZE)
    $hLV_C2 = GUICtrlCreateListView('0', 275, 40, 25, $iTotalHeight, $LVS_NOCOLUMNHEADER)
    _GUICtrlListView_SetColumnWidth($hLV_C2, 0, $LVSCW_AUTOSIZE)
    $hLV_C3 = GUICtrlCreateListView('0', 305, 40, 25, $iTotalHeight, $LVS_NOCOLUMNHEADER)
    _GUICtrlListView_SetColumnWidth($hLV_C3, 0, $LVSCW_AUTOSIZE)
    $hLV_C4 = GUICtrlCreateListView('0', 335, 40, 25, $iTotalHeight, $LVS_NOCOLUMNHEADER)
    _GUICtrlListView_SetColumnWidth($hLV_C4, 0, $LVSCW_AUTOSIZE)
    $hLV_C5 = GUICtrlCreateListView('0', 365, 40, 25, $iTotalHeight, $LVS_NOCOLUMNHEADER)
    _GUICtrlListView_SetColumnWidth($hLV_C5, 0, $LVSCW_AUTOSIZE)
    $hLV_C6 = GUICtrlCreateListView('0', 395, 40, 25, $iTotalHeight, $LVS_NOCOLUMNHEADER)
    _GUICtrlListView_SetColumnWidth($hLV_C6, 0, $LVSCW_AUTOSIZE)
    $hLV_C7 = GUICtrlCreateListView('0', 425, 40, 25, $iTotalHeight, $LVS_NOCOLUMNHEADER)
    _GUICtrlListView_SetColumnWidth($hLV_C7, 0, $LVSCW_AUTOSIZE)

Local $id0 = GUICtrlCreatePic("C:\Program Files (x86)\AutoIt3\Examples\GUI\logo4.gif", 0, 0, 169, 68)


GUISetState(@SW_SHOW)

$bProceed = False
Do
    $idMsg = GUIGetMsg()
    Switch $idMsg
        Case $id0
            $sNumber = '1'
            $bProceed = True
    EndSwitch
    If $bProceed Then
        $iIndex = _ArraySearch($aGUT, $sNumber)
        If $iIndex <> - 1 Then
            ; Delete it
            _ArrayDelete($aGUT, $iIndex)
            ; Now clear ListViews 0
            _GUICtrlListView_BeginUpdate($hLV_C0)
            _GUICtrlListView_DeleteAllItems($hLV_C0)
            ; And reload with all / the top 20 elements in the main array
            For $i = 0 To UBound($aGUT) - 1
                If $i < 13 Then
                    GUICtrlCreateListViewItem($aGUT[$i], $hLV_C0)
                EndIf
            Next
            _GUICtrlListView_EndUpdate($hLV_C0)
            GUICtrlCreateListViewItem($sNumber, $hLV_C1)
            _GUICtrlListView_SimpleSort($hLV_C1,$g_bSortSense,0,False)
        Else
            For $iColumnIndex = 0 to UBound($aSearchListview) -1
                Local $iIndex = _GUICtrlListView_FindItem($aSearchListview[$iColumnIndex],-1,$sNumber)
                If $iIndex <> -1 Then
                    MsgBox(0,'Found',$aSearchListview[$iColumnIndex])
                Else
                    MsgBox(0,'Not Found',$aSearchListview[$iColumnIndex])
                EndIf
            Next
        EndIf
        $bProceed = False
        $sNumber = ''
    EndIf
Until $idMsg = $GUI_EVENT_CLOSE

This will produce the error. I'm searching in listview ["$hLV_C1","$hLV_C3","$hLV_C5"], but I know that my number is only in $hLV_C1 2nd time I press the AutoIT logo.

 

Press AutoIT logo and you will see number 2 is moved from one LV0 to LV1.


Yours sincerely

Kenneth.

Share this post


Link to post
Share on other sites
AutoBert
  1. your array $aSearchListview holds strings, it must be the ControlID's
  2. _GUICtrlListView_FindItem is not the func you need use _GUICtrlListView_FindText
#include <GUIConstantsEx.au3>
#include <GuiListView.au3>

Local $aGUT[0]
Local $aSearchListview[3] = ["$hLV_C1","$hLV_C3","$hLV_C5"]
Local $MainGUIForm = GUICreate("My GUI",455,600)
Local $hHeader, $sNumber, $g_bSortSense = False

    For $i = 0 To 90
        _ArrayAdd($aGUT, $i)
    Next
    GUICtrlCreateTabItem("R/B")
    $hLV_RB = GUICtrlCreateListView('Test', 50, 100, 94, 255, $LVS_NOCOLUMNHEADER)

    ; Now calculate ListView 2 vertical size
    $hHeader = _GUICtrlListView_GetHeader($hLV_RB)
    $aSize = WinGetPos($hHeader)
    $iHeaderHeight = $aSize[3] ; Header height
    $aRect = _GUICtrlListView_GetItemRect($hLV_RB, 0)
    $iItemHeight = $aRect[3] - $aRect[1] ; Item height
    $iTotalHeight = $iHeaderHeight + (20 * ($iItemHeight + .5)) -10 ; Allow for the inter-item gaps
    $hLV_C0 = GUICtrlCreateListView('0', 185, 40, 50, $iTotalHeight, $LVS_NOCOLUMNHEADER)
    _GUICtrlListView_SetColumnWidth($hLV_C0, 0, $LVSCW_AUTOSIZE)
    For $i = 0 To 12
        GUICtrlCreateListViewItem( $i, $hLV_C0)
    Next
    $hLV_C1 = GUICtrlCreateListView('0', 245, 40, 25, $iTotalHeight, $LVS_NOCOLUMNHEADER)
    _GUICtrlListView_SetColumnWidth($hLV_C1, 0, $LVSCW_AUTOSIZE)
    $hLV_C2 = GUICtrlCreateListView('0', 275, 40, 25, $iTotalHeight, $LVS_NOCOLUMNHEADER)
    _GUICtrlListView_SetColumnWidth($hLV_C2, 0, $LVSCW_AUTOSIZE)
    $hLV_C3 = GUICtrlCreateListView('0', 305, 40, 25, $iTotalHeight, $LVS_NOCOLUMNHEADER)
    _GUICtrlListView_SetColumnWidth($hLV_C3, 0, $LVSCW_AUTOSIZE)
    $hLV_C4 = GUICtrlCreateListView('0', 335, 40, 25, $iTotalHeight, $LVS_NOCOLUMNHEADER)
    _GUICtrlListView_SetColumnWidth($hLV_C4, 0, $LVSCW_AUTOSIZE)
    $hLV_C5 = GUICtrlCreateListView('0', 365, 40, 25, $iTotalHeight, $LVS_NOCOLUMNHEADER)
    _GUICtrlListView_SetColumnWidth($hLV_C5, 0, $LVSCW_AUTOSIZE)
    $hLV_C6 = GUICtrlCreateListView('0', 395, 40, 25, $iTotalHeight, $LVS_NOCOLUMNHEADER)
    _GUICtrlListView_SetColumnWidth($hLV_C6, 0, $LVSCW_AUTOSIZE)
    $hLV_C7 = GUICtrlCreateListView('0', 425, 40, 25, $iTotalHeight, $LVS_NOCOLUMNHEADER)
    _GUICtrlListView_SetColumnWidth($hLV_C7, 0, $LVSCW_AUTOSIZE)

Local $id0 = GUICtrlCreatePic("C:\Program Files (x86)\AutoIt3\Examples\GUI\logo4.gif", 0, 0, 169, 68)
$aSearchListview[0]=$hLV_C1
$aSearchListview[1]=$hLV_C3
$aSearchListview[2]=$hLV_C5

GUISetState(@SW_SHOW)

$bProceed = False
Do
    $idMsg = GUIGetMsg()
    Switch $idMsg
        Case $id0
            $sNumber = '1'
            $bProceed = True
    EndSwitch
    If $bProceed Then
        $iIndex = _ArraySearch($aGUT, $sNumber)
        If $iIndex <> - 1 Then
            ; Delete it
            _ArrayDelete($aGUT, $iIndex)
            ; Now clear ListViews 0
            _GUICtrlListView_BeginUpdate($hLV_C0)
            _GUICtrlListView_DeleteAllItems($hLV_C0)
            ; And reload with all / the top 20 elements in the main array
            For $i = 0 To UBound($aGUT) - 1
                If $i < 13 Then
                    GUICtrlCreateListViewItem($aGUT[$i], $hLV_C0)
                EndIf
            Next
            _GUICtrlListView_EndUpdate($hLV_C0)
            GUICtrlCreateListViewItem($sNumber, $hLV_C1)
            _GUICtrlListView_SimpleSort($hLV_C1,$g_bSortSense,0,False)
        Else
            For $iColumnIndex = 0 to UBound($aSearchListview) -1
                Local $iIndex = _GUICtrlListView_FindText($aSearchListview[$iColumnIndex],$sNumber,-1,False)
                If $iIndex <> -1 Then
                    MsgBox(0,'Found',$aSearchListview[$iColumnIndex])
                Else
                    MsgBox(0,'Not Found',$aSearchListview[$iColumnIndex])
                EndIf
            Next
        EndIf
        $bProceed = False
        $sNumber = ''
    EndIf
Until $idMsg = $GUI_EVENT_CLOSE

your Piccontrol can cause troubles: if the path to pic is incorect a endless searching is done.

Share this post


Link to post
Share on other sites
Valnurat

Aha, of course. Doh.

 

Thank you.


Yours sincerely

Kenneth.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

  • Similar Content

    • nooneclose
      By nooneclose
      I forgot an important and needed aspect of my code. I need to be able to check for people who work every other week. Is it possible to write the dates that they work (every other week) between two date ranges? 
      Example:  Bob Smith has a Start date of 8-26-2018 (that is the date he is hired) And He stops working on 12-12-18 (that's the day he goes on vacation or whatever) However his work shift is every other Saturday from 7:30 AM to 6:00 Pm.  I need to calculate every other Saturday between 8-26-18 and 12-12-18 (is this clear?)
       
      here is the code I have so far. I am just missing this last part:
      ; Step 7 Func SendData() ;******************************************************************************* ; Sends all collected data to the Excel file in correct order for Upload ;******************************************************************************* MsgBox($MB_ICONINFORMATION, "Scheduler_Bot", "Sending Data", 2) ; Loop Counters $LoopCount = 0 $Array_Index = 0 $DayIndex = 0 $dataIndex = 0 ; Counter for the day of the week Local $dCount = 2 ; Counter for the numbers of Ys Local $yesCount = 0 ; Excel Write Counter (VERY IMPORTANT!) Local $EWriteCount = 2 ; Declare the global shift arrays (Sunday - Saturday) Global $ShiftDaySU[100][600] Global $ShiftDayM[100][600] Global $ShiftDayT[100][600] Global $ShiftDayW[100][600] Global $ShiftDayR[100][600] Global $ShiftDayF[100][600] Global $ShiftDayS[100][600] Global $sDates[400] While $Formatted_Names[$dataIndex] <> $Formatted_Names[$IndexRows] ; $LoopCount < $IndexRows $ACounter = 0 ; Array counter ; Gets the Start date from the array $Temp = $StartDate[$Array_Index] $TempStart = StringLeft($Temp, 8) $StartTempYear = StringLeft($TempStart, 4) $StartTempMonth = StringMid($TempStart, 5, 2) $StartTempDay = StringRight($TempStart, 2) ; Gets the End date from the array $Temp = $EndDate[$Array_Index] $TempEnd = StringLeft($Temp, 8) $EndTempYear = StringLeft($TempEnd, 4) $EndTempMonth = StringMid($TempEnd, 5, 2) $EndTempDay = StringRight($TempEnd, 2) ; The starting date (in value form) $sdate = _DateToDayValue($StartTempYear, $StartTempMonth, $StartTempDay) ;_DateToDayValue(2019,1,9) ;ConsoleWrite(@CRLF & "$start date " & $sdate & @CRLF & @CRLF) ; The ending date (in value form) $edate = _DateToDayValue($EndTempYear, $EndTempMonth, $EndTempDay) ;_DateToDayValue(2019,4,9) ;ConsoleWrite(@CRLF & "$end date " & $edate & @CRLF & @CRLF) ; Variables for readability Local $iYear, $iMonth, $iDay ;Stores what day of the week that shift lands on Local $tSU = _Excel_RangeRead($OpenWorkbook, Default, "I" & $dCount) If $tSU = "Y" Then $yesCount = 1 EndIf Local $tM = _Excel_RangeRead($OpenWorkbook, Default, "J" & $dCount) If $tM = "Y" Then $yesCount += 1 EndIf Local $tT = _Excel_RangeRead($OpenWorkbook, Default, "K" & $dCount) If $tT = "Y" Then $yesCount += 1 EndIf Local $tW = _Excel_RangeRead($OpenWorkbook, Default, "L" & $dCount) If $tW = "Y" Then $yesCount += 1 EndIf Local $tR = _Excel_RangeRead($OpenWorkbook, Default, "M" & $dCount) If $tR = "Y" Then $yesCount += 1 EndIf Local $tF = _Excel_RangeRead($OpenWorkbook, Default, "N" & $dCount) If $tF = "Y" Then $yesCount += 1 EndIf Local $tS = _Excel_RangeRead($OpenWorkbook, Default, "O" & $dCount) If $tS = "Y" Then $yesCount += 1 EndIf ConsoleWrite(@CRLF & @CRLF) ConsoleWrite($tSU & @CRLF) ConsoleWrite($tM & @CRLF) ConsoleWrite($tT & @CRLF) ConsoleWrite($tW & @CRLF) ConsoleWrite($tR & @CRLF) ConsoleWrite($tF & @CRLF) ConsoleWrite($tS & @CRLF) ConsoleWrite(@CRLF & @CRLF) ; Check to see if they work every other week Local $rotationWeek = _Excel_RangeRead($OpenWorkbook, Default, "U" & $dCount) If $rotationWeek = "0" Then ; Do nothing Else If $rotationWeek = 1 ; Do something Else ; $rotationWeek = 2 ; Do something EndIf EndIf Local $repeatWeek = _Excel_RangeRead($OpenWorkbook, Default, "V" & $dCount) If $rotationWeek = "0" Then ; Do nothing Else If $rotationWeek = 1 ; Do something Else ; $rotationWeek = 2 ; Do something EndIf EndIf While $yesCount > 0 If $tSU = "Y" Then For $Index = $sdate To $edate _DayValueToDate($Index, $iYear, $iMonth, $iDay) ; Finds the day based on its numerical value (1 = Sunday) If _DateToDayOfWeek($iYear, $iMonth, $iDay) = 1 Then $Temp = $iYear & "-" & $iMonth & "-" & $iDay & "T" & "00" & ":" & "00" & ":" & "00" & ":" & "000" $ShiftDaySU[$ACounter][$DayIndex] = $Temp _Excel_RangeWrite($OpenWorkbook, $OpenWorkbook.ActiveSheet, $ShiftDaySU[$ACounter][$DayIndex], "AI" & $EWriteCount) ; Send Name _Excel_RangeWrite($OpenWorkbook, $OpenWorkbook.ActiveSheet, $Formatted_Names[$dataIndex], "AA" & $EWriteCount) ; Send Start Time _Excel_RangeWrite($OpenWorkbook, $OpenWorkbook.ActiveSheet, $StartTimes[$dataIndex], "AB" & $EWriteCount) ; Send End Time _Excel_RangeWrite($OpenWorkbook, $OpenWorkbook.ActiveSheet, $EndTimes[$dataIndex], "AC" & $EWriteCount) ; Send Work Hours _Excel_RangeWrite($OpenWorkbook, $OpenWorkbook.ActiveSheet, $HoursWorked[$dataIndex], "AD" & $EWriteCount) ; Send Work Group _Excel_RangeWrite($OpenWorkbook, $OpenWorkbook.ActiveSheet, $WorkGroup[$dataIndex], "AE" & $EWriteCount) ; Send Department _Excel_RangeWrite($OpenWorkbook, $OpenWorkbook.ActiveSheet, $WorkDepartment, "AF" & $EWriteCount) ; Send Supervisor _Excel_RangeWrite($OpenWorkbook, $OpenWorkbook.ActiveSheet, $Supervisors[$dataIndex], "AG" & $EWriteCount) ; Send Notes _Excel_RangeWrite($OpenWorkbook, $OpenWorkbook.ActiveSheet, $WorkNotes[$dataIndex], "AH" & $EWriteCount) ; Send Shift Number $tempStime = StringReplace($StartTimes[$dataIndex], ":", "") $tempEtime = StringReplace($EndTimes[$dataIndex], ":", "") _Excel_RangeWrite($OpenWorkbook, $OpenWorkbook.ActiveSheet, "SU " & $tempStime & "-" & $tempEtime, "AJ" & $EWriteCount) $ACounter += 1 $EWriteCount += 1 ConsoleWrite(@CRLF & "Sunday " & $Temp & @CRLF) EndIf Next $yesCount -= 1 $tSU = "N" ElseIf $tM = "Y" Then For $Index = $sdate To $edate _DayValueToDate($Index, $iYear, $iMonth, $iDay) ; Finds the day based on its numerical value (1 = Sunday) If _DateToDayOfWeek($iYear, $iMonth, $iDay) = 2 Then $Temp = $iYear & "-" & $iMonth & "-" & $iDay & "T" & "00" & ":" & "00" & ":" & "00" & ":" & "000" $ShiftDayM[$ACounter][$DayIndex] = $Temp _Excel_RangeWrite($OpenWorkbook, $OpenWorkbook.ActiveSheet, $ShiftDayM[$ACounter][$DayIndex], "AI" & $EWriteCount) ; Send Name _Excel_RangeWrite($OpenWorkbook, $OpenWorkbook.ActiveSheet, $Formatted_Names[$dataIndex], "AA" & $EWriteCount) ; Send Start Time _Excel_RangeWrite($OpenWorkbook, $OpenWorkbook.ActiveSheet, $StartTimes[$dataIndex], "AB" & $EWriteCount) ; Send End Time _Excel_RangeWrite($OpenWorkbook, $OpenWorkbook.ActiveSheet, $EndTimes[$dataIndex], "AC" & $EWriteCount) ; Send Work Hours _Excel_RangeWrite($OpenWorkbook, $OpenWorkbook.ActiveSheet, $HoursWorked[$dataIndex], "AD" & $EWriteCount) ; Send Work Group _Excel_RangeWrite($OpenWorkbook, $OpenWorkbook.ActiveSheet, $WorkGroup[$dataIndex], "AE" & $EWriteCount) ; Send Department _Excel_RangeWrite($OpenWorkbook, $OpenWorkbook.ActiveSheet, $WorkDepartment, "AF" & $EWriteCount) ; Send Supervisor _Excel_RangeWrite($OpenWorkbook, $OpenWorkbook.ActiveSheet, $Supervisors[$dataIndex], "AG" & $EWriteCount) ; Send Notes _Excel_RangeWrite($OpenWorkbook, $OpenWorkbook.ActiveSheet, $WorkNotes[$dataIndex], "AH" & $EWriteCount) ; Send Shift Number $tempStime = StringReplace($StartTimes[$dataIndex], ":", "") $tempEtime = StringReplace($EndTimes[$dataIndex], ":", "") _Excel_RangeWrite($OpenWorkbook, $OpenWorkbook.ActiveSheet, "M " & $tempStime & "-" & $tempEtime, "AJ" & $EWriteCount) $ACounter += 1 $EWriteCount += 1 ConsoleWrite(@CRLF & "Monday " & $Temp & @CRLF) EndIf Next $yesCount -= 1 $tM = "N" ElseIf $tT = "Y" Then For $Index = $sdate To $edate _DayValueToDate($Index, $iYear, $iMonth, $iDay) ; Finds the day based on its numerical value (1 = Sunday) If _DateToDayOfWeek($iYear, $iMonth, $iDay) = 3 Then $Temp = $iYear & "-" & $iMonth & "-" & $iDay & "T" & "00" & ":" & "00" & ":" & "00" & ":" & "000" $ShiftDayT[$ACounter][$DayIndex] = $Temp _Excel_RangeWrite($OpenWorkbook, $OpenWorkbook.ActiveSheet, $ShiftDayT[$ACounter][$DayIndex], "AI" & $EWriteCount) ; Send Name _Excel_RangeWrite($OpenWorkbook, $OpenWorkbook.ActiveSheet, $Formatted_Names[$dataIndex], "AA" & $EWriteCount) ; Send Start Time _Excel_RangeWrite($OpenWorkbook, $OpenWorkbook.ActiveSheet, $StartTimes[$dataIndex], "AB" & $EWriteCount) ; Send End Time _Excel_RangeWrite($OpenWorkbook, $OpenWorkbook.ActiveSheet, $EndTimes[$dataIndex], "AC" & $EWriteCount) ; Send Work Hours _Excel_RangeWrite($OpenWorkbook, $OpenWorkbook.ActiveSheet, $HoursWorked[$dataIndex], "AD" & $EWriteCount) ; Send Work Group _Excel_RangeWrite($OpenWorkbook, $OpenWorkbook.ActiveSheet, $WorkGroup[$dataIndex], "AE" & $EWriteCount) ; Send Department _Excel_RangeWrite($OpenWorkbook, $OpenWorkbook.ActiveSheet, $WorkDepartment, "AF" & $EWriteCount) ; Send Supervisor _Excel_RangeWrite($OpenWorkbook, $OpenWorkbook.ActiveSheet, $Supervisors[$dataIndex], "AG" & $EWriteCount) ; Send Notes _Excel_RangeWrite($OpenWorkbook, $OpenWorkbook.ActiveSheet, $WorkNotes[$dataIndex], "AH" & $EWriteCount) ; Send Shift Number $tempStime = StringReplace($StartTimes[$dataIndex], ":", "") $tempEtime = StringReplace($EndTimes[$dataIndex], ":", "") _Excel_RangeWrite($OpenWorkbook, $OpenWorkbook.ActiveSheet, "T " & $tempStime & "-" & $tempEtime, "AJ" & $EWriteCount) $ACounter += 1 $EWriteCount += 1 ConsoleWrite(@CRLF & "Tuesday " & $Temp & @CRLF) EndIf Next $yesCount -= 1 $tT = "N" ElseIf $tW = "Y" Then For $Index = $sdate To $edate _DayValueToDate($Index, $iYear, $iMonth, $iDay) ; Finds the day based on its numerical value (1 = Sunday) If _DateToDayOfWeek($iYear, $iMonth, $iDay) = 4 Then $Temp = $iYear & "-" & $iMonth & "-" & $iDay & "T" & "00" & ":" & "00" & ":" & "00" & ":" & "000" $ShiftDayW[$ACounter][$DayIndex] = $Temp _Excel_RangeWrite($OpenWorkbook, $OpenWorkbook.ActiveSheet, $ShiftDayW[$ACounter][$DayIndex], "AI" & $EWriteCount) ; Send Name _Excel_RangeWrite($OpenWorkbook, $OpenWorkbook.ActiveSheet, $Formatted_Names[$dataIndex], "AA" & $EWriteCount) ; Send Start Time _Excel_RangeWrite($OpenWorkbook, $OpenWorkbook.ActiveSheet, $StartTimes[$dataIndex], "AB" & $EWriteCount) ; Send End Time _Excel_RangeWrite($OpenWorkbook, $OpenWorkbook.ActiveSheet, $EndTimes[$dataIndex], "AC" & $EWriteCount) ; Send Work Hours _Excel_RangeWrite($OpenWorkbook, $OpenWorkbook.ActiveSheet, $HoursWorked[$dataIndex], "AD" & $EWriteCount) ; Send Work Group _Excel_RangeWrite($OpenWorkbook, $OpenWorkbook.ActiveSheet, $WorkGroup[$dataIndex], "AE" & $EWriteCount) ; Send Department _Excel_RangeWrite($OpenWorkbook, $OpenWorkbook.ActiveSheet, $WorkDepartment, "AF" & $EWriteCount) ; Send Supervisor _Excel_RangeWrite($OpenWorkbook, $OpenWorkbook.ActiveSheet, $Supervisors[$dataIndex], "AG" & $EWriteCount) ; Send Notes _Excel_RangeWrite($OpenWorkbook, $OpenWorkbook.ActiveSheet, $WorkNotes[$dataIndex], "AH" & $EWriteCount) ; Send Shift Number $tempStime = StringReplace($StartTimes[$dataIndex], ":", "") $tempEtime = StringReplace($EndTimes[$dataIndex], ":", "") _Excel_RangeWrite($OpenWorkbook, $OpenWorkbook.ActiveSheet, "W " & $tempStime & "-" & $tempEtime, "AJ" & $EWriteCount) $ACounter += 1 $EWriteCount += 1 ConsoleWrite(@CRLF & "Wednesday " & $Temp & @CRLF) EndIf Next $yesCount -= 1 $tW = "N" ElseIf $tR = "Y" Then For $Index = $sdate To $edate _DayValueToDate($Index, $iYear, $iMonth, $iDay) ; Finds the day based on its numerical value (1 = Sunday) If _DateToDayOfWeek($iYear, $iMonth, $iDay) = 5 Then $Temp = $iYear & "-" & $iMonth & "-" & $iDay & "T" & "00" & ":" & "00" & ":" & "00" & ":" & "000" $ShiftDayR[$ACounter][$DayIndex] = $Temp _Excel_RangeWrite($OpenWorkbook, $OpenWorkbook.ActiveSheet, $ShiftDayR[$ACounter][$DayIndex], "AI" & $EWriteCount) ; Send Name _Excel_RangeWrite($OpenWorkbook, $OpenWorkbook.ActiveSheet, $Formatted_Names[$dataIndex], "AA" & $EWriteCount) ; Send Start Time _Excel_RangeWrite($OpenWorkbook, $OpenWorkbook.ActiveSheet, $StartTimes[$dataIndex], "AB" & $EWriteCount) ; Send End Time _Excel_RangeWrite($OpenWorkbook, $OpenWorkbook.ActiveSheet, $EndTimes[$dataIndex], "AC" & $EWriteCount) ; Send Work Hours _Excel_RangeWrite($OpenWorkbook, $OpenWorkbook.ActiveSheet, $HoursWorked[$dataIndex], "AD" & $EWriteCount) ; Send Work Group _Excel_RangeWrite($OpenWorkbook, $OpenWorkbook.ActiveSheet, $WorkGroup[$dataIndex], "AE" & $EWriteCount) ; Send Department _Excel_RangeWrite($OpenWorkbook, $OpenWorkbook.ActiveSheet, $WorkDepartment, "AF" & $EWriteCount) ; Send Supervisor _Excel_RangeWrite($OpenWorkbook, $OpenWorkbook.ActiveSheet, $Supervisors[$dataIndex], "AG" & $EWriteCount) ; Send Notes _Excel_RangeWrite($OpenWorkbook, $OpenWorkbook.ActiveSheet, $WorkNotes[$dataIndex], "AH" & $EWriteCount) ; Send Shift Number $tempStime = StringReplace($StartTimes[$dataIndex], ":", "") $tempEtime = StringReplace($EndTimes[$dataIndex], ":", "") _Excel_RangeWrite($OpenWorkbook, $OpenWorkbook.ActiveSheet, "R " & $tempStime & "-" & $tempEtime, "AJ" & $EWriteCount) $ACounter += 1 $EWriteCount += 1 ConsoleWrite(@CRLF & "Thursday " & $Temp & @CRLF) EndIf Next $yesCount -= 1 $tR = "N" ElseIf $tF = "Y" Then For $Index = $sdate To $edate _DayValueToDate($Index, $iYear, $iMonth, $iDay) ; Finds the day based on its numerical value (1 = Sunday) If _DateToDayOfWeek($iYear, $iMonth, $iDay) = 6 Then $Temp = $iYear & "-" & $iMonth & "-" & $iDay & "T" & "00" & ":" & "00" & ":" & "00" & ":" & "000" $ShiftDayF[$ACounter][$DayIndex] = $Temp _Excel_RangeWrite($OpenWorkbook, $OpenWorkbook.ActiveSheet, $ShiftDayF[$ACounter][$DayIndex], "AI" & $EWriteCount) ; Send Name _Excel_RangeWrite($OpenWorkbook, $OpenWorkbook.ActiveSheet, $Formatted_Names[$dataIndex], "AA" & $EWriteCount) ; Send Start Time _Excel_RangeWrite($OpenWorkbook, $OpenWorkbook.ActiveSheet, $StartTimes[$dataIndex], "AB" & $EWriteCount) ; Send End Time _Excel_RangeWrite($OpenWorkbook, $OpenWorkbook.ActiveSheet, $EndTimes[$dataIndex], "AC" & $EWriteCount) ; Send Work Hours _Excel_RangeWrite($OpenWorkbook, $OpenWorkbook.ActiveSheet, $HoursWorked[$dataIndex], "AD" & $EWriteCount) ; Send Work Group _Excel_RangeWrite($OpenWorkbook, $OpenWorkbook.ActiveSheet, $WorkGroup[$dataIndex], "AE" & $EWriteCount) ; Send Department _Excel_RangeWrite($OpenWorkbook, $OpenWorkbook.ActiveSheet, $WorkDepartment, "AF" & $EWriteCount) ; Send Supervisor _Excel_RangeWrite($OpenWorkbook, $OpenWorkbook.ActiveSheet, $Supervisors[$dataIndex], "AG" & $EWriteCount) ; Send Notes _Excel_RangeWrite($OpenWorkbook, $OpenWorkbook.ActiveSheet, $WorkNotes[$dataIndex], "AH" & $EWriteCount) ; Send Shift Number $tempStime = StringReplace($StartTimes[$dataIndex], ":", "") $tempEtime = StringReplace($EndTimes[$dataIndex], ":", "") _Excel_RangeWrite($OpenWorkbook, $OpenWorkbook.ActiveSheet, "F " & $tempStime & "-" & $tempEtime, "AJ" & $EWriteCount) $ACounter += 1 $EWriteCount += 1 ConsoleWrite(@CRLF & "Friday " & $Temp & @CRLF) EndIf Next $yesCount -= 1 $tF = "N" ElseIf $tS = "Y" Then For $Index = $sdate To $edate _DayValueToDate($Index, $iYear, $iMonth, $iDay) ; Finds the day based on its numerical value (1 = Sunday) If _DateToDayOfWeek($iYear, $iMonth, $iDay) = 7 Then $Temp = $iYear & "-" & $iMonth & "-" & $iDay & "T" & "00" & ":" & "00" & ":" & "00" & ":" & "000" $ShiftDayS[$ACounter][$DayIndex] = $Temp _Excel_RangeWrite($OpenWorkbook, $OpenWorkbook.ActiveSheet, $ShiftDayS[$ACounter][$DayIndex], "AI" & $EWriteCount) ; Send Name _Excel_RangeWrite($OpenWorkbook, $OpenWorkbook.ActiveSheet, $Formatted_Names[$dataIndex], "AA" & $EWriteCount) ; Send Start Time _Excel_RangeWrite($OpenWorkbook, $OpenWorkbook.ActiveSheet, $StartTimes[$dataIndex], "AB" & $EWriteCount) ; Send End Time _Excel_RangeWrite($OpenWorkbook, $OpenWorkbook.ActiveSheet, $EndTimes[$dataIndex], "AC" & $EWriteCount) ; Send Work Hours _Excel_RangeWrite($OpenWorkbook, $OpenWorkbook.ActiveSheet, $HoursWorked[$dataIndex], "AD" & $EWriteCount) ; Send Work Group _Excel_RangeWrite($OpenWorkbook, $OpenWorkbook.ActiveSheet, $WorkGroup[$dataIndex], "AE" & $EWriteCount) ; Send Department _Excel_RangeWrite($OpenWorkbook, $OpenWorkbook.ActiveSheet, $WorkDepartment, "AF" & $EWriteCount) ; Send Supervisor _Excel_RangeWrite($OpenWorkbook, $OpenWorkbook.ActiveSheet, $Supervisors[$dataIndex], "AG" & $EWriteCount) ; Send Notes _Excel_RangeWrite($OpenWorkbook, $OpenWorkbook.ActiveSheet, $WorkNotes[$dataIndex], "AH" & $EWriteCount) ; Send Shift Number $tempStime = StringReplace($StartTimes[$dataIndex], ":", "") $tempEtime = StringReplace($EndTimes[$dataIndex], ":", "") _Excel_RangeWrite($OpenWorkbook, $OpenWorkbook.ActiveSheet, "S " & $tempStime & "-" & $tempEtime, "AJ" & $EWriteCount) $ACounter += 1 $EWriteCount += 1 ConsoleWrite(@CRLF & "Saturday " & $Temp & @CRLF) EndIf Next $yesCount -= 1 $tS = "N" Else ;Error Nothing equals "Y" ConsoleWrite(@CRLF & "Error Nothing equals 'Y'" & @CRLF) EndIf $DayIndex += 1 $LoopCount += 1 WEnd $Array_Index += 1 $dataIndex += 1 $dCount += 1 WEnd MsgBox($MB_ICONINFORMATION, "Scheduler_Bot", "Finished Sending Data", 2) EndFunc  
    • gahhon
      By gahhon
      Is there any resource/sample to generating a fancy report?
      I was downloaded this resource and try the example, but it failed to execution due to function not define. PDF
      My simple idea of generating the report would be like this:-
      Read data from excel instead of database, then generate PDF report based on my custom design.
      Any better ideas is much appreciate to share with me here
      Thanks.
    • gahhon
      By gahhon
      While Not _Login() _Login() WEnd _Initial_Check() GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE, $GUI_CLOSE_BUTTON, $BTN_EXIT _GUIDisable($GUI_MAIN, 0, 30) _Close_Application() EndSwitch WEnd ; #FUNCTION# ==================================================================================================================== ; Name ..........: _Password_Check ; Description ...: To check against the input with the password file ; =============================================================================================================================== Func _Password_Check() Local $IN_PASSWORD = _Metro_InputBox("Please Enter Your Password:" , 11, "", True, True) If @error Then Return SetError(1, 0, "") ElseIf $PASSWORD <> $IN_PASSWORD Then Return SetError(2, 0, "Access Denied!") Else Return True EndIf EndFunc ; #FUNCTION# ==================================================================================================================== ; Name ..........: _Login ; Description ...: Login ; =============================================================================================================================== Func _Login() Local $FLAG_LOGIN = _Password_Check() If @error = 1 Then _Close_Application() ElseIf @error = 2 Then _Metro_MsgBox(0, "", $FLAG_LOGIN) Return False Else _Metro_MsgBox(0, "", "Access Granted!") Return True EndIf EndFunc When the application start, it will prompt for password for login.
      I entered several wrong password, it shows "Access Denied!" and re-prompt for password for login.
      Then I entered the correct one, it shows "Access Granted!" but it still re-prompt for password for login.
      Any idea what's wrong? Thanks
    • gahhon
      By gahhon
      #Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Icon=..\..\Downloads\ALlogo.ico #AutoIt3Wrapper_Compile_Both=y #AutoIt3Wrapper_UseX64=y #AutoIt3Wrapper_Res_HiDpi=y #AutoIt3Wrapper_Run_Au3Stripper=y #Au3Stripper_Parameters=/so /rm /pe #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** I found out that a lot of sources provided by AutoIT members like what I am recently using is the Metro UDF.
      On top of it, it always written the Region of code and red color. Then it also assign some value into some variable.
      May I know, what are their use and what is the purpose of doing?
      If I remove them, will affect the application?
      Thanks
    • gahhon
      By gahhon
      I don't find any relevant topic via Google Search. Please kindly advise how to read and update data in Google SpreadSheet.
      Thanks a lot.
×