Jump to content
Sign in to follow this  

Populate Listbox

Recommended Posts


I'm trying to populate a listbox from a text file so the user can 1click the item to open its graphic from the web.

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Deck Browser", 346, 357, 192, 124)
$Block = GUICtrlCreateCombo("Choose Block...", 8, 16, 329, 25)
GUICtrlSetData(-1, IniRead("MagicDeckList.ini","Levels","Expert","Nil"))
$Expansion = GUICtrlCreateCombo("Choose expansion...", 8, 48, 329, 25)
$Deck = GUICtrlCreateCombo("Choose Deck...", 8, 80, 329, 25)
GUICtrlSetData(-1, "View")
$Btn = GUICtrlCreateButton("Click here to go to the wiki page for this deck", 8, 328, 331, 25, $WS_GROUP)
GUICtrlSetTip(-1, "Only works for theme decks")
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE

        Case $Block
            GUICtrlSetData($Expansion, "")
            GUICtrlSetData($Expansion, IniRead("MagicDeckList.ini","Blocks",GUICtrlRead($Block),"nul"))

        Case $Expansion
            GUICtrlSetData($Deck, "")
            GUICtrlSetData($Deck, IniRead("MagicDeckList.ini",GUICtrlRead($Block),GUICtrlRead($Expansion),"No Decks listed in INI"))

        Case $Deck
            GUICtrlSetData($View, "")
            GUICtrlSetData($View, FileRead("Decks\" & IniRead("MagicDeckList.ini",GUICtrlRead($Expansion),GUICtrlRead($Deck),"nul") & "\" & GUICtrlRead($Deck) & ".dec"))

        Case $Btn

;~          http://wiki.mtgsalvation.com/article/
;~ above is the web address where the decks are located. Spaces within deck names are replaced with an underscore and certain decks have _(Deck) attatched to the end of them due to conflicts
;~ between decks/Cards/sets with the same name. Link block/expansion to deck when searching.

;~ http://www.magiccards.info/autocard.php?card=
;~ above is the web address where the cards are located. Spaces within card names are replaced with %20 (the HTML for a space)


I'm trying to keep it as simple as possible interface wise.


-TCG options for other sets

-Child window for 1click Card Viewer(pop up window)

-Card list spell check (Against http://www.magiccards.info/autocard.php?card=**)

If anyone is interested:

I do have an extensive list of decks from all of the blocks and expansions to a percentage of world tour decks from Magic: The Gathering

All of the decks are of the Apprentice format.

Figured it out. Thanks.

GUICtrlSetData($View, "")
            FileRead("Decks\" & IniRead("MagicDeckList.ini",GUICtrlRead($Expansion),GUICtrlRead($Deck),"nul") & "\" & GUICtrlRead($Deck) & ".dec")
            $file = FileOpen("Decks\" & IniRead("MagicDeckList.ini",GUICtrlRead($Expansion),GUICtrlRead($Deck),"nul") & "\" & GUICtrlRead($Deck) & ".dec", 0)
            While 1
                $Line = FileReadLine($file)
                If @error = -1 Then ExitLoop
                GUICtrlSetData($View, $Line)
Edited by AceSentinal

:blink: What just happened?

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
Sign in to follow this  


Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.