Fran Posted September 9, 2010 Share Posted September 9, 2010 Can someone help me shorten this code please? I'm going crazy with all the variables.. copy & paste and whotnotelse. Please... expandcollapse popup$pb0 = "HC200" $pb1 = "HC300" $pb2 = "HCA3L" $pb3 = "HCA4L" $pb4 = "SB200" $pb5 = "SB200" $pb6 = "SB300" $pb7 = "SBA3L" $pb8 = "SBA4L" $pb9 = "SBA4P" $pb10 = "SCA4P" $pb11 = "SCA5L" $pb12 = "SCMIN" GUICtrlSetData($chkPHOTOBOOKS[0], $pb0) GUICtrlSetData($chkPHOTOBOOKS[1], $pb1) GUICtrlSetData($chkPHOTOBOOKS[2], $pb2) GUICtrlSetData($chkPHOTOBOOKS[3], $pb3) GUICtrlSetData($chkPHOTOBOOKS[4], $pb4) GUICtrlSetData($chkPHOTOBOOKS[5], $pb5) GUICtrlSetData($chkPHOTOBOOKS[6], $pb6) GUICtrlSetData($chkPHOTOBOOKS[7], $pb7) GUICtrlSetData($chkPHOTOBOOKS[8], $pb8) GUICtrlSetData($chkPHOTOBOOKS[9], $pb9) GUICtrlSetData($chkPHOTOBOOKS[10], $pb10) GUICtrlSetData($chkPHOTOBOOKS[11], $pb11) GUICtrlSetData($chkPHOTOBOOKS[12], $pb12) If IniRead($iniFile, $SECTION, $pb0, "0") = "1" Then GUICtrlSetState($chkPHOTOBOOKS[0], $GUI_CHECKED) Else GUICtrlSetState($chkPHOTOBOOKS[0], $GUI_UNCHECKED) EndIf If IniRead($iniFile, $SECTION, $pb1, "0") = "1" Then GUICtrlSetState($chkPHOTOBOOKS[1], $GUI_CHECKED) Else GUICtrlSetState($chkPHOTOBOOKS[1], $GUI_UNCHECKED) EndIf If IniRead($iniFile, $SECTION, $pb2, "0") = "1" Then GUICtrlSetState($chkPHOTOBOOKS[2], $GUI_CHECKED) Else GUICtrlSetState($chkPHOTOBOOKS[2], $GUI_UNCHECKED) EndIf If IniRead($iniFile, $SECTION, $pb3, "0") = "1" Then GUICtrlSetState($chkPHOTOBOOKS[3], $GUI_CHECKED) Else GUICtrlSetState($chkPHOTOBOOKS[3], $GUI_UNCHECKED) EndIf If IniRead($iniFile, $SECTION, $pb4, "0") = "1" Then GUICtrlSetState($chkPHOTOBOOKS[4], $GUI_CHECKED) Else GUICtrlSetState($chkPHOTOBOOKS[4], $GUI_UNCHECKED) EndIf If IniRead($iniFile, $SECTION, $pb5, "0") = "1" Then GUICtrlSetState($chkPHOTOBOOKS[5], $GUI_CHECKED) Else GUICtrlSetState($chkPHOTOBOOKS[5], $GUI_UNCHECKED) EndIf If IniRead($iniFile, $SECTION, $pb6, "0") = "1" Then GUICtrlSetState($chkPHOTOBOOKS[6], $GUI_CHECKED) Else GUICtrlSetState($chkPHOTOBOOKS[6], $GUI_UNCHECKED) EndIf If IniRead($iniFile, $SECTION, $pb7, "0") = "1" Then GUICtrlSetState($chkPHOTOBOOKS[7], $GUI_CHECKED) Else GUICtrlSetState($chkPHOTOBOOKS[7], $GUI_UNCHECKED) EndIf If IniRead($iniFile, $SECTION, $pb8, "0") = "1" Then GUICtrlSetState($chkPHOTOBOOKS[8], $GUI_CHECKED) Else GUICtrlSetState($chkPHOTOBOOKS[8], $GUI_UNCHECKED) EndIf If IniRead($iniFile, $SECTION, $pb9, "0") = "1" Then GUICtrlSetState($chkPHOTOBOOKS[9], $GUI_CHECKED) Else GUICtrlSetState($chkPHOTOBOOKS[9], $GUI_UNCHECKED) EndIf If IniRead($iniFile, $SECTION, $pb10, "0") = "1" Then GUICtrlSetState($chkPHOTOBOOKS[10], $GUI_CHECKED) Else GUICtrlSetState($chkPHOTOBOOKS[10], $GUI_UNCHECKED) EndIf If IniRead($iniFile, $SECTION, $pb11, "0") = "1" Then GUICtrlSetState($chkPHOTOBOOKS[11], $GUI_CHECKED) Else GUICtrlSetState($chkPHOTOBOOKS[11], $GUI_UNCHECKED) EndIf If IniRead($iniFile, $SECTION, $pb12, "0") = "1" Then GUICtrlSetState($chkPHOTOBOOKS[12], $GUI_CHECKED) Else GUICtrlSetState($chkPHOTOBOOKS[12], $GUI_UNCHECKED) EndIf If $CATEGORY = "PHOTOBOOKS" Then GUICtrlSetState($chkPHOTOBOOKS[0], $GUI_ENABLE) GUICtrlSetState($chkPHOTOBOOKS[1], $GUI_ENABLE) GUICtrlSetState($chkPHOTOBOOKS[2], $GUI_ENABLE) GUICtrlSetState($chkPHOTOBOOKS[3], $GUI_ENABLE) GUICtrlSetState($chkPHOTOBOOKS[4], $GUI_ENABLE) GUICtrlSetState($chkPHOTOBOOKS[5], $GUI_ENABLE) GUICtrlSetState($chkPHOTOBOOKS[6], $GUI_ENABLE) GUICtrlSetState($chkPHOTOBOOKS[7], $GUI_ENABLE) GUICtrlSetState($chkPHOTOBOOKS[8], $GUI_ENABLE) GUICtrlSetState($chkPHOTOBOOKS[9], $GUI_ENABLE) GUICtrlSetState($chkPHOTOBOOKS[10], $GUI_ENABLE) GUICtrlSetState($chkPHOTOBOOKS[11], $GUI_ENABLE) GUICtrlSetState($chkPHOTOBOOKS[12], $GUI_ENABLE) 1 section from my ini file: [PHOTOBOOKS] SAMPLE_ALBUMS=10001234, 10001235, 10001236, 10001237, 10001238, 10001239, 10001240, 10001241 IMAGE_CONTENTUPDATE=smiley1.jpg IMAGE_WEB= MYSQL_ID= HCA4L=1 HCA4P=0 HCA3L=1 HC200=1 HC300=1 SCA4P=0 SCA5L=1 SCMIN=1 SBA4L=1 SBA4P=1 SBA3L=1 SB200=1 SB300=1 Link to comment Share on other sites More sharing options...
water Posted September 9, 2010 Share Posted September 9, 2010 Something like this: Global $pb[13] = ["HC200", "HC300", "HCA3L", "HCA4L", "SB200", "SB200", "SB300", "SBA3L", "SBA4L", "SBA4P", "SCA4P", "SCA5L", "SCMIN"] For $iIndex = 0 To 12 GUICtrlSetData($chkPHOTOBOOKS[$iIndex], $pb[$iIndex]) If IniRead($iniFile, $SECTION, $pb[$iIndex], "0") = "1" Then GUICtrlSetState($chkPHOTOBOOKS[$iIndex], $GUI_CHECKED) Else GUICtrlSetState($chkPHOTOBOOKS[$iIndex], $GUI_UNCHECKED) EndIf Next If $CATEGORY = "PHOTOBOOKS" Then For $iIndex = 0 To 12 GUICtrlSetState($chkPHOTOBOOKS[$iIndex], $GUI_ENABLE) Next EndIf My UDFs and Tutorials: Spoiler UDFs:Active Directory (NEW 2022-02-19 - Version 1.6.1.0) - Download - General Help & Support - Example Scripts - WikiExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example ScriptsOutlookEX (2021-11-16 - Version 1.7.0.0) - Download - General Help & Support - Example Scripts - WikiOutlookEX_GUI (2021-04-13 - Version 1.4.0.0) - DownloadOutlook Tools (2019-07-22 - Version 0.6.0.0) - Download - General Help & Support - WikiPowerPoint (2021-08-31 - Version 1.5.0.0) - Download - General Help & Support - Example Scripts - WikiTask Scheduler (NEW 2022-07-28 - Version 1.6.0.1) - Download - General Help & Support - Wiki Standard UDFs:Excel - Example Scripts - WikiWord - Wiki Tutorials:ADO - WikiWebDriver - Wiki Link to comment Share on other sites More sharing options...
Fran Posted September 9, 2010 Author Share Posted September 9, 2010 Dude... you are genius! Thank you sooooo much! This is gonna help me a lot with my AutoIt projects. Have a good one F Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now