Zouzaka

Editeur - JCC (Source)

Jul 17th, 2014
385
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
  2. #AutoIt3Wrapper_Icon=Icone.ico
  3. #AutoIt3Wrapper_Add_Constants=n
  4. #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
  5. #cs ----------------------------------------------------------------------------
  6.  
  7.         AutoIt Version : 3.3.8.1
  8.         Auteur:    Zouzaka
  9.  
  10.         Fonction du Script :
  11.         Editeur de creation de cartes et decks pour le script "JCC - Cards Game" sur
  12.         Rpg Maker VX.Ace
  13.  
  14. Notes:
  15. =====> $CardsData <=======
  16. = Row_id = Card_id       =
  17. = Card_max = Row_Max - 1 =
  18. = Col[0] = Name          =
  19. = Col[1] = Force         =
  20. = Col[2] = Defense       =
  21. = Col[3] = Picture       =
  22. = Col[4] = Type          =
  23. = Col[5] = Cible         =
  24. ==========================
  25.  
  26. ====> Cellul of number of cards
  27. StringRegExp(_Excel_RangeFind($oWorkbook,"NbrCards")[0][2],"\d",1)[0]&"B"
  28. ====> BDD to Hash
  29. '{:name => '&'"'&$CardsData[$i][0]&'"'&',:force => '&$CardsData[$i][1]&',:defense => '&$CardsData[$i][2]&',:picture => '&'"'&$CardsData[$i][3]&'"'&',:type => '&'"'&$CardsData[$i][4]&'"'&',:cilbe => '&'"'&$CardsData[$i][5]&'"'&'}'
  30. #ce ----------------------------------------------------------------------------
  31. ; Includes
  32. ;============================================================================================
  33. #include <String.au3>
  34. #include <GUIConstantsEx.au3>
  35. #include <GuiListView.au3>
  36. #include <File.au3>
  37. #include <StaticConstants.au3>
  38. #include <WindowsConstants.au3>
  39. #include <GDIPlus.au3>
  40. #include <Array.au3>
  41. #include <GuiListView.au3>
  42. #include <Excel.au3>
  43. ;Variables
  44. ;============================================================================================
  45. Opt("MouseCoordMode", 1)
  46. Global $CardsData[1][6], $Decks[1][2], $LocalArray[6]
  47. Global $CC_Pic = "Default.png", $Opened = False
  48. $CardsData[0][0] = 0
  49. $To_Save = 0
  50. $oExcel = _Excel_Open(False)
  51. ;Gui Editeur JCC - Cards Game
  52. ;============================================================================================
  53. $Fenetre_save = GUICreate("Editeur JCC - Cards Game", 280, 150)
  54. $Project_name = GUICtrlCreateInput("Nom du Projet", 5, 5, 260, 20)
  55. $Save = GUICtrlCreateButton("Sauvgarder", 5, 30, 100)
  56. $Load = GUICtrlCreateButton("Reprendre", 165, 30, 100)
  57. $Open = GUICtrlCreateButton("Ouvrir ... ", 110, 30)
  58. $Open_CE = GUICtrlCreateButton("Cards Editor", 5, 80, 260)
  59. $Open_DE = GUICtrlCreateButton("Deck Editor", 5, 110, 260)
  60. $Fenetre_pos = WinGetPos("Editeur JCC - Cards Game")
  61.  
  62. ; Gui Cards Editor
  63. ;============================================================================================
  64. $Fenetre = GUICreate("Cards Creator", 280, 400, $Fenetre_pos[0] + 320, -1, -1, -1, $Fenetre_save)
  65. $Card_List = GUICtrlCreateListView("ID|Name|Type", 0, 0, 150, 355)
  66. ;Inputs et Labels
  67. GUICtrlCreateLabel("Nom de la carte", 160, 5)
  68. $Input_name = GUICtrlCreateInput("Nom", 160, 25, 100, 25)
  69. GUICtrlCreateLabel("Force", 160, 55)
  70. $Input_force = GUICtrlCreateInput(0, 160, 75, 100, 25)
  71. GUICtrlCreateLabel("Defense", 160, 105)
  72. $Input_defense = GUICtrlCreateInput(0, 160, 125, 100, 25)
  73. ;Combobox et labels
  74. GUICtrlCreateLabel("Type", 160, 155)
  75. $Input_type = GUICtrlCreateCombo("Monstre", 160, 175, 100, 25)
  76. GUICtrlSetData(-1, "Spell")
  77. GUICtrlCreateLabel("Cible", 160, 205)
  78. $Input_cible = GUICtrlCreateCombo("Joueur", 160, 225, 100, 25)
  79. GUICtrlSetData(-1, "Adversaire")
  80. ;Picture and boutons
  81. $Image = GUICtrlCreatePic("", 160, 255, 100, 100, $WS_EX_LAYOUTRTL + $SS_NOTIFY)
  82. $Ajouter = GUICtrlCreateButton("Ajouter", 160, 370)
  83. $Modifier = GUICtrlCreateButton("Modifier", 215, 370)
  84. $card_select = GUICtrlCreateButton("Selectioner", 50, 370)
  85.  
  86. ; Gui Pictures Selection
  87. ;============================================================================================
  88. $Fenetre_img = GUICreate("Cards Picture", 200, 300, -1, $Fenetre_pos[1] + 190, 0, -1, $Fenetre)
  89. $Pictures_list = GUICtrlCreateListView("Nom", 5, 5, 185, 230)
  90. ;Inputs et Labels
  91. $validerpic = GUICtrlCreateButton("Valider", 78, 240)
  92.  
  93. ;Gui Deck Editor
  94. ;============================================================================================
  95. $Fenetre_DE = GUICreate("Deck Editor", 280, 400, $Fenetre_pos[0] - 320, -1, -1, -1, $Fenetre_save)
  96. GUICtrlCreateLabel("Creation de deck :", 5, 5)
  97. $Input_Deck = GUICtrlCreateInput("Nom du Deck", 5, 25, 150)
  98. $Ajouter_Deck = GUICtrlCreateButton("Ajouter", 170, 25, 100, 20)
  99. $Deck_List = GUICtrlCreateListView("Nom Du Deck", 0, 50, 280, 100)
  100. $Select_Deck = GUICtrlCreateButton("Selectionner Deck", 5, 155, 120, 20)
  101. $Delete_Deck = GUICtrlCreateButton("Supprimer Deck", 155, 155, 120, 20)
  102. $Deck_Cards = GUICtrlCreateListView("ID|Name|Type", 0, 180, 130, 195)
  103. $List_Cards = GUICtrlCreateListView("ID|Name|Type", 150, 180, 130, 195)
  104. $To_List = GUICtrlCreateButton("X", 15, 377, 100, 20)
  105. $To_Deck = GUICtrlCreateButton("<<", 165, 377, 100, 20)
  106.  
  107. ;Set States
  108. ;============================================================================================
  109. GUIRegisterMsg($WM_PAINT, "MY_WM_PAINT")
  110. GUISetState(@SW_SHOW, $Fenetre_save)
  111.  
  112. ; Boucle (Deroulement)
  113. ;============================================================================================
  114. While 1
  115.         $msg = GUIGetMsg()
  116.         Switch $msg
  117.                 Case $GUI_EVENT_CLOSE
  118.                         _Excel_Close($oExcel)
  119.                         Exit
  120.                 Case $Image
  121.                         GUISetState(@SW_SHOW, $Fenetre_img)
  122.                 Case $Open
  123.                         Global $Adresse = "C:\Users\" & @UserName & "\Documents\RPGVXAce\" & GUICtrlRead($Project_name)
  124.                         Global $Find_Pictures = _FileListToArray($Adresse & "\Graphics\Cards")
  125.                         If FileExists($Adresse) == 0 Then
  126.                                 MsgBox(0, "Erreur", "Le chemin :" & @LF & $Adresse & @LF & _
  127.                                                 "est introuvable")
  128.                         ElseIf FileExists($Adresse & "\Graphics\Cards\Default.png") == 0 Then
  129.                                 If MsgBox(4, "Erreur", "Le Fichier :" & @LF & "\Graphics\Cards\Default.png" & @LF & "est introuvable" & @LF & @LF & _
  130.                                                 "Voulez vous le créer ?") == 6 Then
  131.                                         DirCreate($Adresse & "\Graphics\Cards")
  132.                                         FileCopy("Default.png", $Adresse & "\Graphics\Cards", 0)
  133.                                         $Opened = True
  134.                                         MsgBox(0, "Message", "Projet ouvret avec succée")
  135.                                         Global $Find_Pictures = _FileListToArray($Adresse & "\Graphics\Cards")
  136.                                 EndIf
  137.                         ElseIf @error == 4 Then
  138.                                 MsgBox(0, "Erreur", "Aucune Image trouvée")
  139.                         Else
  140.                                 $Opened = True
  141.                                 MsgBox(0, "Message", "Projet ouvret avec succée")
  142.                         EndIf
  143.                 Case $validerpic
  144.                         If Verify_list($Pictures_list) == True Then
  145.                                 $CC_Pic_Index = _GUICtrlListView_GetSelectedIndices($Pictures_list, True)
  146.                                 $CC_Pic = _GUICtrlListView_GetItemText($Pictures_list, $CC_Pic_Index[1])
  147.                                 If $CC_Pic == "" Then
  148.                                         $CC_Pic = "Default.png"
  149.                                 EndIf
  150.                                 CreatImage($Adresse & "\Graphics\Cards\" & $CC_Pic, $Fenetre)
  151.                                 GUISetState(@SW_HIDE, $Fenetre_img)
  152.                         Else
  153.                                 MsgBox(0, "Erreur", "Veillez choisir une seul image")
  154.                         EndIf
  155.                 Case $Ajouter
  156.                         $LocalArray[0] = GUICtrlRead($Input_name) ;Name
  157.                         $LocalArray[1] = Int(GUICtrlRead($Input_force)) ;Force
  158.                         $LocalArray[2] = Int(GUICtrlRead($Input_defense)) ;Defense
  159.                         $LocalArray[3] = $CC_Pic ;Picture
  160.                         $LocalArray[4] = GUICtrlRead($Input_type) ;Type
  161.                         $LocalArray[5] = GUICtrlRead($Input_cible) ;Cible
  162.                         _ArrayInsert($CardsData,UBound($CardsData)-1,_ArrayToString($LocalArray))
  163.                         $CardsData[UBound($CardsData)-1][1] = UBound($CardsData)-1
  164.                         $CardsData[UBound($CardsData)-1][0] = "NbrCards"
  165.                         _ArrayDisplay($CardsData)
  166.                         GUICtrlCreateListViewItem(UBound($CardsData) - 1 & "|" & GUICtrlRead($Input_name) & "|" & GUICtrlRead($Input_type), $Card_List)
  167.                         GUICtrlCreateListViewItem(UBound($CardsData) - 1 & "|" & GUICtrlRead($Input_name) & "|" & GUICtrlRead($Input_type), $List_Cards)
  168.                 Case $Modifier
  169.                         $Card_Index = _GUICtrlListView_GetSelectedIndices($Card_List, True)
  170.                         $CardsData[$Card_Index[1]][0] = GUICtrlRead($Input_name) ;Name
  171.                         $CardsData[$Card_Index[1]][1] = Int(GUICtrlRead($Input_force)) ;Force
  172.                         $CardsData[$Card_Index[1]][2] = Int(GUICtrlRead($Input_defense)) ;Defense
  173.                         $CardsData[$Card_Index[1]][3] = $CC_Pic ;Picture
  174.                         $CardsData[$Card_Index[1]][4] = GUICtrlRead($Input_type) ;Type
  175.                         $CardsData[$Card_Index[1]][5] = GUICtrlRead($Input_cible) ;Cible
  176.                         _Update_Card_List()
  177.                 Case $card_select
  178.                         If Verify_list($Card_List) == True Then
  179.                                 $Card_Index = _GUICtrlListView_GetSelectedIndices($Card_List, True)
  180.                                 GUICtrlSetData($Input_name, $CardsData[$Card_Index[1]][0])
  181.                                 GUICtrlSetData($Input_force, $CardsData[$Card_Index[1]][1])
  182.                                 GUICtrlSetData($Input_defense, $CardsData[$Card_Index[1]][2])
  183.                                 GUICtrlSetData($Input_type, $CardsData[$Card_Index[1]][4])
  184.                                 GUICtrlSetData($Input_cible, $CardsData[$Card_Index[1]][5])
  185.                                 CreatImage($Adresse & "\Graphics\Cards\" & $CardsData[$Card_Index[1]][3], $Fenetre)
  186.                                 If $CardsData[$Card_Index[1]][3] == "" Then
  187.                                         CreatImage($Adresse & "\Graphics\Cards\Default.png", $Fenetre)
  188.                                 EndIf
  189.                         Else
  190.                                 MsgBox(0, "Erreur", "Veillez choisir une seul carte")
  191.                         EndIf
  192.                 Case $Load
  193.                         If $Opened == True Then
  194.                                 If FileExists(GUICtrlRead($Project_name)&".xlsx") == 0 Then
  195.                                         MsgBox(0, "Erreur", "Aucune Sauvgarde trouvée")
  196.                                 Else
  197.                                         _GUICtrlListView_DeleteAllItems($Deck_Cards)
  198.                                         _GUICtrlListView_DeleteAllItems($Deck_List)
  199.                                         GUICtrlSetData($Card_List, "")
  200.                                         GUICtrlSetData($List_Cards, "")
  201.                                         GUICtrlSetData($Deck_Cards, "")
  202.                                         GUICtrlSetData($Deck_List, "")
  203.                                         _Load_CardsData()
  204.                                         _Update_Card_List()
  205.                                         If FileExists(GUICtrlRead($Project_name)&"_Decks"&".xlsx") = 1 Then
  206.                                             _Load_Decks()
  207.                                             _Update_Deck_List()
  208.                                         EndIf
  209.                                         MsgBox(0, "Message", "Fichier repris avec succé")
  210.                                 EndIf
  211.                         Else
  212.                                 MsgBox(0, "Erreur", "Veillez ouvrir un projet")
  213.                         EndIf
  214.                 Case $Save
  215.                         If $Opened == True Then
  216.                                 If $Adresse And FileExists($Adresse) == 1 Then
  217.                                         MsgBox(0,"JCC","Sauvgarde en cours ...")
  218.                                         _Save_CardsData()
  219.                                         _Rgss_CardsData()
  220.                                         _Save_Decks()
  221.                                         _Rgss_Decks()
  222.                                         MsgBox(0,"JCC","Sauvgarde Terminé ! =D")
  223.                                 Else
  224.                                         MsgBox(0, "Erreur", "Veillez ouvrir un projet valide")
  225.                                 EndIf
  226.                         Else
  227.                                 MsgBox(0, "Erreur", "Veillez ouvrir un projet")
  228.                         EndIf
  229.                 Case $Open_CE
  230.                         If $Opened == True Then
  231.                                 GUISetState(@SW_SHOW, $Fenetre)
  232.                                 CreatImage($Adresse & "\Graphics\Cards\Default.png", $Fenetre)
  233.                                 For $Picture In $Find_Pictures
  234.                                         GUICtrlCreateListViewItem($Picture, $Pictures_list)
  235.                                 Next
  236.                                 _GUICtrlListView_DeleteItem($Pictures_list, 0)
  237.                         Else
  238.                                 MsgBox(0, "Erreur", "Veillez ouvrir un projet")
  239.                         EndIf
  240.                 Case $Ajouter_Deck
  241.                         _ArrayInsert($Decks,UBound($Decks)-1,GUICtrlRead($Input_Deck))
  242.                         $Decks[UBound($Decks)-1][1] = UBound($Decks)-1
  243.                         $Decks[UBound($Decks)-1][0] = "NbrDecks"
  244.                         GUICtrlCreateListViewItem(GUICtrlRead($Input_Deck), $Deck_List)
  245.                 Case $Select_Deck
  246.                         If Verify_list($Deck_List) == True Then
  247.                                 _GUICtrlListView_DeleteAllItems($Deck_Cards)
  248.                                 $Deck_index = _GUICtrlListView_GetSelectedIndices($Deck_List, True)
  249.                                 Local $LocalDeck = StringSplit($Decks[$Deck_index[1]][1],"|",2)
  250.                                 For $card = 0 To UBound($LocalDeck) - 1
  251.                                     If Not $LocalDeck[$card] = "" Then
  252.                                         GUICtrlCreateListViewItem($LocalDeck[$card]+1 & "|" & $CardsData[$LocalDeck[$card]][0] & "|" & _
  253.                                         $CardsData[$LocalDeck[$card]][4], $Deck_Cards)
  254.                                     EndIf
  255.                                 Next
  256.                         Else
  257.                                 MsgBox(0, "Erreur", "Veillez choisir un seul deck")
  258.                         EndIf
  259.                 Case $Delete_Deck
  260.                         If Verify_list($Deck_List) == True Then
  261.                                 $Deck_index = _GUICtrlListView_GetSelectedIndices($Deck_List, True)
  262.                                 _ArrayDelete($Decks, $Deck_index[1] + 1)
  263.                                 _GUICtrlListView_DeleteItem($Deck_List, $Deck_index[1])
  264.                         Else
  265.                                 MsgBox(0, "Erreur", "Veillez choisir un seul deck")
  266.                         EndIf
  267.                 Case $Open_DE
  268.                         If $Opened == True Then
  269.                                 GUISetState(@SW_SHOW, $Fenetre_DE)
  270.                         Else
  271.                                 MsgBox(0, "Erreur", "Veillez ouvrir un projet")
  272.                         EndIf
  273.                 Case $To_Deck
  274.                         If Verify_list($Deck_List) == True And IsDeclared("Deck_index") == 1 Then
  275.                                 If Verify_list($List_Cards) == True Then
  276.                                         $Card_Index = _GUICtrlListView_GetSelectedIndices($List_Cards, True)
  277.                                         $Decks[$Deck_index[1]][1] &= $Card_Index[1]&"|"
  278.                                         GUICtrlCreateListViewItem($Card_Index[1] + 1 & "|" & $CardsData[$Card_Index[1]][0] & "|" & $CardsData[$Card_Index[1]][4], $Deck_Cards)
  279.                                 Else
  280.                                         MsgBox(0, "Erreur", "Selectionner une carte")
  281.                                 EndIf
  282.                         Else
  283.                                 MsgBox(0, "Erreur", "Veillez selectionner un seul deck")
  284.                         EndIf
  285.                 Case $To_List
  286.                         If Verify_list($Deck_Cards) == True Then
  287.                                 $Card_Index = _GUICtrlListView_GetSelectedIndices($Deck_Cards, True)
  288. ;~                              _GUICtrlListView_GetItemTextArray($Deck_Cards,$Card_Index[1])[1]-1
  289.                                 Local $LocalDeck = StringSplit($Decks[$Deck_index[1]][1],"|",2)
  290.                                 _ArrayDisplay($LocalDeck)
  291.                                 _ArrayDelete($LocalDeck,_ArrayFindAll($LocalDeck,_GUICtrlListView_GetItemTextArray($Deck_Cards,$Card_Index[1])[1]-1)[0])
  292.                                 $Decks[$Deck_index[1]][1] = _ArrayToString($LocalDeck)
  293.                                 _GUICtrlListView_DeleteItem($Deck_Cards, $Card_Index[1])
  294.                         Else
  295.                                 MsgBox(0, "Erreur", "Selectionner une carte")
  296.                         EndIf
  297.         EndSwitch
  298. WEnd
  299.  
  300. ; Functions
  301. ;============================================================================================
  302. Func Verify_list($hWnd)
  303.         Local $Selected_count = _GUICtrlListView_GetSelectedCount($hWnd)
  304.         If $Selected_count == 1 Then
  305.                 Return True
  306.         Else
  307.                 Return False
  308.         EndIf
  309. EndFunc   ;==>Verify_list
  310. Func CreatImage($chemin, $hGUI)
  311.         Global $hImage, $hGraphic
  312.         _GDIPlus_Startup()
  313.         $hImage = _GDIPlus_ImageLoadFromFile($chemin)
  314.         $hGraphic = _GDIPlus_GraphicsCreateFromHWND($hGUI)
  315.         _GDIPlus_GraphicsDrawImage($hGraphic, $hImage, 160, 255)
  316. EndFunc   ;==>CreatImage
  317. Func MY_WM_PAINT($hWnd, $msg, $wParam, $lParam)
  318.         #forceref $hWnd, $Msg, $wParam, $lParam
  319.         If IsDeclared("Adresse") == 1 Then
  320.                 CreatImage($Adresse & "\Graphics\Cards\" & $CC_Pic, $Fenetre)
  321.         EndIf
  322.         Return $GUI_RUNDEFMSG
  323. EndFunc   ;==>MY_WM_PAINT
  324. Func _Save_CardsData()
  325.     $oCardBook = _Excel_BookNew($oExcel)
  326.     If $CardsData[0][0] == "" Or $CardsData[0][0] == "NbrCards" Then
  327.         FileDelete(@ScriptDir&"\"&GUICtrlRead($Project_name)&".xlsx")
  328.     Else
  329.         _Excel_RangeWrite($oCardBook, $oCardBook.Activesheet, $CardsData, "A1")
  330.         If FileExists(GUICtrlRead($Project_name)&".xlsx") == 1 Then
  331.             FileDelete(GUICtrlRead($Project_name)&".xlsx")
  332.         EndIf
  333.         _Excel_BookSaveAs ($oCardBook,@ScriptDir&"\"&GUICtrlRead($Project_name))
  334.     EndIf
  335.     _Excel_BookClose($oCardBook)
  336. EndFunc
  337. Func _Update_Card_List()
  338.     $oCardBook = _Excel_BookOpen($oExcel,@ScriptDir&"\"&GUICtrlRead($Project_name)&".xlsx")
  339.     If @error Then ConsoleWrite(@error &"|||||"&@extended & @CRLF)
  340.     _GUICtrlListView_DeleteAllItems($Card_List)
  341.     _GUICtrlListView_DeleteAllItems($List_Cards)
  342.     _Excel_RangeFind($oCardBook,"NbrCards")
  343.     For $i = 0 To StringRegExp(_Excel_RangeFind($oCardBook,"NbrCards")[0][2],"\d",1)[0] - 2
  344.         GUICtrlCreateListViewItem($i+1 & "|" & $CardsData[$i][0]& "|" & $CardsData[$i][4], $Card_List)
  345.         GUICtrlCreateListViewItem($i+1 & "|" & $CardsData[$i][0]& "|" & $CardsData[$i][4], $List_Cards)
  346.     Next
  347.     _Excel_BookClose($oCardBook)
  348. EndFunc
  349. Func _Load_CardsData()
  350.     $oCardBook = _Excel_BookOpen($oExcel,@ScriptDir&"\"&GUICtrlRead($Project_name)&".xlsx")
  351.     $CardsData = _Excel_RangeRead($oCardBook)
  352.     _Excel_BookClose($oCardBook)
  353. EndFunc
  354. Func _Rgss_CardsData()
  355.     $oCardBook = _Excel_BookOpen($oExcel,@ScriptDir&"\"&GUICtrlRead($Project_name)&".xlsx")
  356.     If Not @error = 2 Then
  357.         _FileCreate($Adresse & "\Data\Cards.rvdata2")
  358.         For $i = 0 To StringRegExp(_Excel_RangeFind($oCardBook,"NbrCards")[0][2],"\d",1)[0] - 2
  359.             Local $lcard = '{:name => '&'"'&$CardsData[$i][0]&'"'&',:force => '&$CardsData[$i][1]&',:defense => '&$CardsData[$i][2]&',:picture => '&'"'&$CardsData[$i][3]&'"'&',:type => '&'"'&$CardsData[$i][4]&'"'&',:cilbe => '&'"'&$CardsData[$i][5]&'"'&'}'
  360.             FileWriteLine($Adresse & "\Data\Cards.rvdata2",$lcard)
  361.         Next
  362.     EndIf
  363.     _Excel_BookClose($oCardBook)
  364. EndFunc
  365. Func _Save_Decks()
  366.     $oDeckBook = _Excel_BookNew($oExcel)
  367.     If $Decks[0][0] == "" Or $Decks[0][0] == "NbrDecks" Then
  368.         FileDelete(@ScriptDir&"\"&GUICtrlRead($Project_name)&"_Decks"&".xlsx")
  369.     Else
  370.         _Excel_RangeWrite($oDeckBook, $oDeckBook.Activesheet, $Decks, "A1")
  371.         _Excel_BookSaveAs ($oDeckBook,@ScriptDir&"\"&GUICtrlRead($Project_name)&"_Decks")
  372.     EndIf
  373.     _Excel_BookClose($oDeckBook)
  374. EndFunc
  375. Func _Rgss_Decks()
  376.     $oDeckBook = _Excel_BookOpen($oExcel,@ScriptDir&"\"&GUICtrlRead($Project_name)&"_Decks"&".xlsx")
  377.     If Not @error = 2 Then
  378.         _FileCreate($Adresse & "\Data\Decks.rvdata2")
  379.         For $i = 0 To StringRegExp(_Excel_RangeFind($oDeckBook,"NbrDecks")[0][2],"\d",1)[0] - 2
  380.             FileWriteLine($Adresse & "\Data\Decks.rvdata2",'{:name => '&'"'&$Decks[$i][0]&'"'&',:cards => '&'"'&$Decks[$i][1]&'"'&'}')
  381.         Next
  382.     EndIf
  383.     _Excel_BookClose($oDeckBook)
  384. EndFunc
  385. Func _Load_Decks()
  386.     $oDeckBook = _Excel_BookOpen($oExcel,@ScriptDir&"\"&GUICtrlRead($Project_name)&"_Decks"&".xlsx")
  387.     $Decks = _Excel_RangeRead($oDeckBook)
  388.     _Excel_BookClose($oDeckBook)
  389. EndFunc
  390. Func _Update_Deck_List()
  391.     $oDeckBook = _Excel_BookOpen($oExcel,@ScriptDir&"\"&GUICtrlRead($Project_name)&"_Decks"&".xlsx")
  392.     If @error Then ConsoleWrite(@error &"|||||"&@extended & @CRLF)
  393.     _GUICtrlListView_DeleteAllItems($Deck_List)
  394.     _Excel_RangeFind($oDeckBook,"NbrDecks")
  395.     For $i = 0 To StringRegExp(_Excel_RangeFind($oDeckBook,"NbrDecks")[0][2],"\d",1)[0] - 2
  396.         GUICtrlCreateListViewItem($Decks[$i][0], $Deck_List)
  397.     Next
  398.     _Excel_BookClose($oDeckBook)
  399. EndFunc
RAW Paste Data