GUICtrlCreateCombo used with StringRegExp?

[gseller]

I am trying to use GUICtrlCreateCombo together with StringRegExp. Am I doing something wrong or is this just something that doesn't work together? This is a very begining of a timezone calculator. I want to add current time that is changable and have it work with 12/24 hr formats at some point but trying to get over one hurdle at a time.. Here is what I have so far not working of course... Anybody wanna jump in and add anything please go right a head..

expandcollapse popup

#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>

$GUI = GUICreate("Timezone Calculator v 1.0", 400, 100, 375, 206)

$Add_1 = GUICtrlCreateInput("", 25, 32, 65, 21)
GUICtrlCreateLabel("+", 104, 33, 4, 4)

$Add_2 = GUICtrlCreateCombo("Time Zones", 125, 32, 150, 25)
GUICtrlSetData(-1, "Abu Dhabi: +4 Hours.|Adelaide: +9.5 Hours.|Aden: +3 Hours.|Alaska: -9 Hours.|Alberta: -7 Hours.|Almaty: +6 Hours.|Afghanistan: +4.5 Hours.|Amman: +3 Hours.|Amsterdam: +1 Hours.|Anchorage: -8 Hours.|Ankara: +3 Hours.|Athens: +2 Hours.|Atlantic Time: -4 Hours.|Auckland: +12 Hours.|Australia (Central): +9.5 Hours.|Azores: -1 Hours.|Baghdad: +3 Hours.|Bahrain: +3 Hours.|Baku: +4 Hours.|Bangkok: +7 Hours.|Beijing: +8 Hours.|Belfast: +0 Hours.|Berlin: +1 Hours.|Bern: +1 Hours.|Beruit: +3 Hours.|Bogota: -5 Hours.|Boston: -5 Hours.|Bratislava: +1 Hours.|Brazilia: -3 Hours.|Brisbane: +10 Hours.|British Columbia Cent.: -8 Hours.|British Columbia N.E.: -7 Hours.|Brussells: +1 Hours.|Bucharest: +2 Hours.|Buenos Aires: -3 Hours.|Burma: +6.5 Hours.|Calcutta: +5 Hours.|Canberra: +10 Hours.|Cairo: +2 Hours.|Cardiff: +0 Hours.|Cape Town: +2 Hours.|Cape Verde Is.: -1 Hours.|Caracas: -4 Hours.|Central Australia: +9.5 Hours.|Central Time: -6 Hours.|Chicago: -6 Hours.|Christchurch NZ: +12 Hours.|Chongqing: +8 Hours.|Colombo: +6 Hours.|Cyprus: +2 Hours.|Dammam: +3 Hours.|Darwin: +9.5 Hours.|Denver: -7 Hours.|Dhakar: +6 Hours.|Dublin: +0  Eastern Time: -5 Hours.|Edinburgh: +0 Hours.|Edmonton: -7 Hours.|Estonia: +2 Hours.|EUROPEAN UNION: +1 Hours.|Eniwetok: -12 Hours.|Fiji: +12 Hours.|Finland: +2 Hours.|French Polynesia: -9.5 Hours.|Georgetown: -3 Hours.|Greece: +2 Hours.|GREENWICH MEAN TIME [or UCT] Hours.|Guam: +10 Hours.| Hours.|Guatamala: -6 Hours.|Hanoi: +7 Hours.|Harare: +2 Hours.|Hawaii: -10 Hours.|Helsinki: +2 Hours.|Hobart: +10 Hours.|Hong Kong: +8 Hours.|Honolulu: -10 Hours.|Iceland: +0 Hours.|India: +5.5 Hours.|Indiana [east]: -5 Hours.|Indiana [west]: -6 Hours.|Iran: +4.5 Hours.|Iraq: +3.5 Hours.|Ireland: +0 Hours.|Islamabad: +5 Hours.|Israel: +2 Hours.|Istanbul: +2 Hours.|Jakarta: +7 Hours.|Kabul: +4 Hours.|Kamchatka: +12 Hours.|Kathmandu: +6 Hours.|Kazan: +4 Hours.|Kingston: -5 Hours.|Kuala Lumpar: +8 Hours.|Kuwait: +3 Hours.|Kwaialein: -12 Hours.|Labrador: -4 Hours.|Lagos: +1 Hours.|La Paz: -4 Hours.|Latvia: +2 Hours.|Lima: -5 Hours.|Lisbon: +0 Hours.|Lithuania: +2 Hours.|LONDON: +0 Hours.|Los Angeles: -8 Hours.|Madras: +5 Hours.|Madrid: +1 Hours.|Magadan: +11 Hours.|Malta: +1 Hours.|Manila: +8 Hours.|Manitoba: -6 Hours.|Maritimes: +0-4 Hours.|Marshall Is: +12 Hours.|Melbourne: +10 Hours.|Memphis: -6 Hours.|Mexico City: -6 Hours.|Miami: -5) Hours.|Mid-Atlantic: -2 Hours.|Midway Island: -11 Hours.|Monrovia: +0 Hours.|Montevideo: -3 Hours.|Montreal: -5 Hours.|Morocco: +0 Hours.|Moscow: +3 Hours.|Mountain Time: -7 Hours.|Muscat: +4 Hours.|Myanmar (Burma): +6.5 Hours.|Nairobi: +3 Hours.|Nepal: +5.75 Hours.|New Caledonia: +11 Hours.|New Dehli: +5 Hours.|Newfoundland: -3.5 Standard Time [Canada] Hours.|New Orleans: -6 Hours.|New York: -5 Hours.|Ontario: -5 Hours.|Ontario N.W.: -6 Hours.|Osaka: +9 Hours.|Pacific Time: -8 Hours.|Paris: +1 Hours.|Perth: +8 Hours.|Phnom Penh: +7 Hours.|Phoenix: -7 Hours.|Pitcairn Islands: -8.5 Hours.|Polynesia (French): -9.5 Hours.|Port Moresby: +10 Hours.|Portugal: +0 Hours.|Prague: +1 Hours.|Pretoria: +2 Hours.|Quebec: -5 Hours.|Rangoon: + 6.5 Hours.|Riga: + 1 Hours.|Rio de Janero: -3 Hours.|Riyadh: +3 Hours.|Rome: +1 Hours.|Salt Lake City: -7 Hours.|Samoa: -11 Hours.|San Antonia: - Texas: -6 Hours.|San Francisco: -8 Hours.|Santa Fe: -7 Hours.|Santiago....GMT: -4 Hours.|Sapporo: +9 Hours.|Sarajevo: +1 Hours.|Saskatchewan East: -6 Hours.|Saskatchewan West: -7 Hours.|Seattle: -8 Hours.|Seoul: +9 Hours.|Singapore: +8 Hours.|Solomon Is.: +11 Hours.|Sri Lanka.: +6 Hours.|Standard Time [Canada]: -3.5 Hours.|St. Louis: -6 Hours.|St. Petersburg: +3 Hours.|Suva: +12 Hours.|Sydney: +10 Hours.|Taipei: +8 Hours.|Tbilisi: +4 Hours.|Tehran: +3 Hours.|Tokyo: +9 Hours.|Tijuana: -8 Hours.|Urumqi: +8 Hours.|Valletta: +1 Hours.|Vancouver: -8 Hours.|Vienna: +1 Hours.|Vladivostok: +10 Hours.|Volgograd: +4 Hours.|Warsaw: +1 Hours.|Washington: -5 Hours.|Wellington: +12 Hours.|Winnipeg: -6 Hours.|Yakutsk: +9 Hours.|Yukon: -8 Hours.|Zagreb: +1 Hours.")
$asResult = StringRegExp($Add_2, '([\+-]*\d+\.*\d*)(?: Hours)', 1)

$Clear = GUICtrlCreateButton("clear", 50, 65, 65, 21)

$_Add_Equal = GUICtrlCreateInput("", 300, 32, 65, 21)
$_Add_Equal_Button = GUICtrlCreateButton("=", 280, 32, 20, 19, 0)
GUICtrlSetTip(-1, "Add Equal Button")
GUISetState(@SW_SHOW)

While 1
 $nMsg = GUIGetMsg()
 Switch $nMsg
  Case $GUI_EVENT_CLOSE
   Exit
  Case $_Add_Equal_Button,$Add_2
   _calc()
  Case $Clear
   _Clear_All()
 EndSwitch
WEnd

Func _calc()                            
$Add_Equal = GUICtrlRead($Add_1) + GUICtrlRead($asResult)
GUICtrlSetData ($_Add_Equal, $Add_Equal)
EndFunc    

Func _Clear_All()
GUICtrlSetData ($Add_1, "")
GUICtrlSetData ($Add_2, "Time Zones")
GUICtrlSetData ($_Add_Equal, "")
EndFunc

[Airwolf]

Here is a modified version that correctly calculates based on the current time. I had to modify your StringRegExp, and you were trying to perform a GuiCtrlRead on your StringRegExp array - which will not work. GuiCtrlRead simply reads data from Gui Controls.

expandcollapse popup

#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <Date.au3>

$GUI = GUICreate("Timezone Calculator v 1.0", 400, 100, 375, 206)

$Add_2 = GUICtrlCreateCombo("Time Zones", 125, 32, 150, 25)
GUICtrlSetData(-1, "Abu Dhabi: +4 Hours.|Adelaide: +9.5 Hours.|Aden: +3 Hours.|Alaska: -9 Hours.|Alberta: -7 Hours.|Almaty: +6 Hours.|Afghanistan: +4.5 Hours.|Amman: +3 Hours.|Amsterdam: +1 Hours.|Anchorage: -8 Hours.|Ankara: +3 Hours.|Athens: +2 Hours.|Atlantic Time: -4 Hours.|Auckland: +12 Hours.|Australia (Central): +9.5 Hours.|Azores: -1 Hours.|Baghdad: +3 Hours.|Bahrain: +3 Hours.|Baku: +4 Hours.|Bangkok: +7 Hours.|Beijing: +8 Hours.|Belfast: +0 Hours.|Berlin: +1 Hours.|Bern: +1 Hours.|Beruit: +3 Hours.|Bogota: -5 Hours.|Boston: -5 Hours.|Bratislava: +1 Hours.|Brazilia: -3 Hours.|Brisbane: +10 Hours.|British Columbia Cent.: -8 Hours.|British Columbia N.E.: -7 Hours.|Brussells: +1 Hours.|Bucharest: +2 Hours.|Buenos Aires: -3 Hours.|Burma: +6.5 Hours.|Calcutta: +5 Hours.|Canberra: +10 Hours.|Cairo: +2 Hours.|Cardiff: +0 Hours.|Cape Town: +2 Hours.|Cape Verde Is.: -1 Hours.|Caracas: -4 Hours.|Central Australia: +9.5 Hours.|Central Time: -6 Hours.|Chicago: -6 Hours.|Christchurch NZ: +12 Hours.|Chongqing: +8 Hours.|Colombo: +6 Hours.|Cyprus: +2 Hours.|Dammam: +3 Hours.|Darwin: +9.5 Hours.|Denver: -7 Hours.|Dhakar: +6 Hours.|Dublin: +0  Eastern Time: -5 Hours.|Edinburgh: +0 Hours.|Edmonton: -7 Hours.|Estonia: +2 Hours.|EUROPEAN UNION: +1 Hours.|Eniwetok: -12 Hours.|Fiji: +12 Hours.|Finland: +2 Hours.|French Polynesia: -9.5 Hours.|Georgetown: -3 Hours.|Greece: +2 Hours.|GREENWICH MEAN TIME [or UCT] Hours.|Guam: +10 Hours.| Hours.|Guatamala: -6 Hours.|Hanoi: +7 Hours.|Harare: +2 Hours.|Hawaii: -10 Hours.|Helsinki: +2 Hours.|Hobart: +10 Hours.|Hong Kong: +8 Hours.|Honolulu: -10 Hours.|Iceland: +0 Hours.|India: +5.5 Hours.|Indiana [east]: -5 Hours.|Indiana [west]: -6 Hours.|Iran: +4.5 Hours.|Iraq: +3.5 Hours.|Ireland: +0 Hours.|Islamabad: +5 Hours.|Israel: +2 Hours.|Istanbul: +2 Hours.|Jakarta: +7 Hours.|Kabul: +4 Hours.|Kamchatka: +12 Hours.|Kathmandu: +6 Hours.|Kazan: +4 Hours.|Kingston: -5 Hours.|Kuala Lumpar: +8 Hours.|Kuwait: +3 Hours.|Kwaialein: -12 Hours.|Labrador: -4 Hours.|Lagos: +1 Hours.|La Paz: -4 Hours.|Latvia: +2 Hours.|Lima: -5 Hours.|Lisbon: +0 Hours.|Lithuania: +2 Hours.|LONDON: +0 Hours.|Los Angeles: -8 Hours.|Madras: +5 Hours.|Madrid: +1 Hours.|Magadan: +11 Hours.|Malta: +1 Hours.|Manila: +8 Hours.|Manitoba: -6 Hours.|Maritimes: +0-4 Hours.|Marshall Is: +12 Hours.|Melbourne: +10 Hours.|Memphis: -6 Hours.|Mexico City: -6 Hours.|Miami: -5) Hours.|Mid-Atlantic: -2 Hours.|Midway Island: -11 Hours.|Monrovia: +0 Hours.|Montevideo: -3 Hours.|Montreal: -5 Hours.|Morocco: +0 Hours.|Moscow: +3 Hours.|Mountain Time: -7 Hours.|Muscat: +4 Hours.|Myanmar (Burma): +6.5 Hours.|Nairobi: +3 Hours.|Nepal: +5.75 Hours.|New Caledonia: +11 Hours.|New Dehli: +5 Hours.|Newfoundland: -3.5 Standard Time [Canada] Hours.|New Orleans: -6 Hours.|New York: -5 Hours.|Ontario: -5 Hours.|Ontario N.W.: -6 Hours.|Osaka: +9 Hours.|Pacific Time: -8 Hours.|Paris: +1 Hours.|Perth: +8 Hours.|Phnom Penh: +7 Hours.|Phoenix: -7 Hours.|Pitcairn Islands: -8.5 Hours.|Polynesia (French): -9.5 Hours.|Port Moresby: +10 Hours.|Portugal: +0 Hours.|Prague: +1 Hours.|Pretoria: +2 Hours.|Quebec: -5 Hours.|Rangoon: + 6.5 Hours.|Riga: + 1 Hours.|Rio de Janero: -3 Hours.|Riyadh: +3 Hours.|Rome: +1 Hours.|Salt Lake City: -7 Hours.|Samoa: -11 Hours.|San Antonia: - Texas: -6 Hours.|San Francisco: -8 Hours.|Santa Fe: -7 Hours.|Santiago....GMT: -4 Hours.|Sapporo: +9 Hours.|Sarajevo: +1 Hours.|Saskatchewan East: -6 Hours.|Saskatchewan West: -7 Hours.|Seattle: -8 Hours.|Seoul: +9 Hours.|Singapore: +8 Hours.|Solomon Is.: +11 Hours.|Sri Lanka.: +6 Hours.|Standard Time [Canada]: -3.5 Hours.|St. Louis: -6 Hours.|St. Petersburg: +3 Hours.|Suva: +12 Hours.|Sydney: +10 Hours.|Taipei: +8 Hours.|Tbilisi: +4 Hours.|Tehran: +3 Hours.|Tokyo: +9 Hours.|Tijuana: -8 Hours.|Urumqi: +8 Hours.|Valletta: +1 Hours.|Vancouver: -8 Hours.|Vienna: +1 Hours.|Vladivostok: +10 Hours.|Volgograd: +4 Hours.|Warsaw: +1 Hours.|Washington: -5 Hours.|Wellington: +12 Hours.|Winnipeg: -6 Hours.|Yakutsk: +9 Hours.|Yukon: -8 Hours.|Zagreb: +1 Hours.")

$Clear = GUICtrlCreateButton("clear", 50, 65, 65, 21)

$_Add_Equal = GUICtrlCreateInput("", 300, 32, 65, 21)
$_Add_Equal_Button = GUICtrlCreateButton("=", 280, 32, 20, 19, 0)
GUICtrlSetTip(-1, "Add Equal Button")
GUISetState(@SW_SHOW)

While 1
 $nMsg = GUIGetMsg()
 Switch $nMsg
  Case $GUI_EVENT_CLOSE
   Exit
  Case $_Add_Equal_Button,$Add_2
   _calc()
  Case $Clear
   _Clear_All()
 EndSwitch
WEnd

Func _calc()
$asResult = StringRegExp(GUICtrlRead($Add_2), '[[:digit:]]', 1) 
$Add_Equal = _DateAdd("h",$asResult[0],_NowCalc())
GUICtrlSetData ($_Add_Equal, StringRight($Add_Equal,8))
EndFunc   

Func _Clear_All()
GUICtrlSetData ($Add_2, "Time Zones")
GUICtrlSetData ($_Add_Equal, "")
EndFunc

[gseller]

Thanks Airwolf! I knew it had to be something I was doing wrong..

edit: Oh Hey, I bought your book! We'll see if it turns me into a great programer.. muttley

Edited July 8, 2008 by gesller

[PsaltyDS]

Thanks Airwolf! I knew it had to be something I was doing wrong..

edit: Oh Hey, I bought your book! We'll see if it turns me into a great programer..

Your string of time zones is in danger of going over the 4095 character limit for an AutoIt script line. I would recommend adding them in two steps:

expandcollapse popup

$Add_2 = GUICtrlCreateCombo("Time Zones", 180, 25, 200, 225)
GUICtrlSetData(-1, "Abu Dhabi: +4 Hours.|Adelaide: +9.5 Hours.|Aden: +3 Hours.|Alaska: -9 Hours.|" & _
        "Alberta: -7 Hours.|Almaty: +6 Hours.|Afghanistan: +4.5 Hours.|Amman: +3 Hours.|Amsterdam: +1 Hours.|" & _
        "Anchorage: -8 Hours.|Ankara: +3 Hours.|Athens: +2 Hours.|Atlantic Time: -4 Hours.|Auckland: +12 Hours.|" & _
        "Australia (Central): +9.5 Hours.|Azores: -1 Hours.|Baghdad: +3 Hours.|Bahrain: +3 Hours.|Baku: +4 Hours.|" & _
        "Bangkok: +7 Hours.|Beijing: +8 Hours.|Belfast: +0 Hours.|Berlin: +1 Hours.|Bern: +1 Hours.|Beruit: +3 Hours.|" & _
        "Bogota: -5 Hours.|Boston: -5 Hours.|Bratislava: +1 Hours.|Brazilia: -3 Hours.|Brisbane: +10 Hours.|" & _
        "British Columbia Cent.: -8 Hours.|British Columbia N.E.: -7 Hours.|Brussells: +1 Hours.|Bucharest: +2 Hours.|" & _
        "Buenos Aires: -3 Hours.|Burma: +6.5 Hours.|Calcutta: +5 Hours.|Canberra: +10 Hours.|Cairo: +2 Hours.|" & _
        "Cardiff: +0 Hours.|Cape Town: +2 Hours.|Cape Verde Is.: -1 Hours.|Caracas: -4 Hours.|" & _
        "Central Australia: +9.5 Hours.|Central Time: -6 Hours.|Chicago: -6 Hours.|Christchurch NZ: +12 Hours.|" & _
        "Chongqing: +8 Hours.|Colombo: +6 Hours.|Cyprus: +2 Hours.|Dammam: +3 Hours.|Darwin: +9.5 Hours.|" & _
        "Denver: -7 Hours.|Dhakar: +6 Hours.|Dublin: +0  Eastern Time: -5 Hours.|Edinburgh: +0 Hours.|" & _
        "Edmonton: -7 Hours.|Estonia: +2 Hours.|EUROPEAN UNION: +1 Hours.|Eniwetok: -12 Hours.|Fiji: +12 Hours.|" & _
        "Finland: +2 Hours.|French Polynesia: -9.5 Hours.|Georgetown: -3 Hours.|Greece: +2 Hours.|" & _
        "GREENWICH MEAN TIME [or UCT] Hours.|Guam: +10 Hours.| Hours.|Guatamala: -6 Hours.|Hanoi: +7 Hours.|" & _
        "Harare: +2 Hours.|Hawaii: -10 Hours.|Helsinki: +2 Hours.|Hobart: +10 Hours.|Hong Kong: +8 Hours.|" & _
        "Honolulu: -10 Hours.|Iceland: +0 Hours.|India: +5.5 Hours.|Indiana [east]: -5 Hours.|Indiana [west]: -6 Hours.|" & _
        "Iran: +4.5 Hours.|Iraq: +3.5 Hours.|Ireland: +0 Hours.|Islamabad: +5 Hours.|Israel: +2 Hours.|" & _
        "Istanbul: +2 Hours.|Jakarta: +7 Hours.|Kabul: +4 Hours.|Kamchatka: +12 Hours.|Kathmandu: +6 Hours.|" & _
        "Kazan: +4 Hours.|Kingston: -5 Hours.|Kuala Lumpar: +8 Hours.|Kuwait: +3 Hours.|Kwaialein: -12 Hours.|" & _
        "Labrador: -4 Hours.|Lagos: +1 Hours.|La Paz: -4 Hours.|Latvia: +2 Hours.|Lima: -5 Hours.|Lisbon: +0 Hours.|")
GUICtrlSetData(-1, "Lithuania: +2 Hours.|LONDON: +0 Hours.|Los Angeles: -8 Hours.|Madras: +5 Hours.|Madrid: +1 Hours." & _
        "Magadan: +11 Hours.|Malta: +1 Hours.|Manila: +8 Hours.|Manitoba: -6 Hours.|Maritimes: +0-4 Hours.|" & _
        "Marshall Is: +12 Hours.|Melbourne: +10 Hours.|Memphis: -6 Hours.|Mexico City: -6 Hours.|Miami: -5) Hours.|" & _
        "Mid-Atlantic: -2 Hours.|Midway Island: -11 Hours.|Monrovia: +0 Hours.|Montevideo: -3 Hours.|" & _
        "Montreal: -5 Hours.|Morocco: +0 Hours.|Moscow: +3 Hours.|Mountain Time: -7 Hours.|Muscat: +4 Hours.|" & _
        "Myanmar (Burma): +6.5 Hours.|Nairobi: +3 Hours.|Nepal: +5.75 Hours.|New Caledonia: +11 Hours.|" & _
        "New Dehli: +5 Hours.|Newfoundland: -3.5 Standard Time [Canada] Hours.|New Orleans: -6 Hours.|" & _
        "New York: -5 Hours.|Ontario: -5 Hours.|Ontario N.W.: -6 Hours.|Osaka: +9 Hours.|Pacific Time: -8 Hours.|" & _
        "Paris: +1 Hours.|Perth: +8 Hours.|Phnom Penh: +7 Hours.|Phoenix: -7 Hours.|Pitcairn Islands: -8.5 Hours.|" & _
        "Polynesia (French): -9.5 Hours.|Port Moresby: +10 Hours.|Portugal: +0 Hours.|Prague: +1 Hours.|" & _
        "Pretoria: +2 Hours.|Quebec: -5 Hours.|Rangoon: + 6.5 Hours.|Riga: + 1 Hours.|Rio de Janero: -3 Hours.|" & _
        "Riyadh: +3 Hours.|Rome: +1 Hours.|Salt Lake City: -7 Hours.|Samoa: -11 Hours.|" & _
        "San Antonia: - Texas: -6 Hours.|San Francisco: -8 Hours.|Santa Fe: -7 Hours.|Santiago....GMT: -4 Hours.|" & _
        "Sapporo: +9 Hours.|Sarajevo: +1 Hours.|Saskatchewan East: -6 Hours.|Saskatchewan West: -7 Hours.|" & _
        "Seattle: -8 Hours.|Seoul: +9 Hours.|Singapore: +8 Hours.|Solomon Is.: +11 Hours.|Sri Lanka.: +6 Hours.|" & _
        "Standard Time [Canada]: -3.5 Hours.|St. Louis: -6 Hours.|St. Petersburg: +3 Hours.|Suva: +12 Hours.|" & _
        "Sydney: +10 Hours.|Taipei: +8 Hours.|Tbilisi: +4 Hours.|Tehran: +3 Hours.|Tokyo: +9 Hours.|" & _
        "Tijuana: -8 Hours.|Urumqi: +8 Hours.|Valletta: +1 Hours.|Vancouver: -8 Hours.|Vienna: +1 Hours.|" & _
        "Vladivostok: +10 Hours.|Volgograd: +4 Hours.|Warsaw: +1 Hours.|Washington: -5 Hours.|" & _
        "Wellington: +12 Hours.|Winnipeg: -6 Hours.|Yakutsk: +9 Hours.|Yukon: -8 Hours.|Zagreb: +1 Hours.")

muttley

Edited July 8, 2008 by PsaltyDS

[gseller]

Great idea PsaltyDS! Thanks...