LiveCode Forums.

Code: Select all

on mouseUp
   answer file "Select File"
   if the result is not "cancel" then
      loadFile
   else
   end if
   loadDracoSave
end mouseUp

command loadDracoSave
local tTree
put readDracoSaveToXMLTree() into tTree
if tTree is empty then
exit loadDracoSave
end if
processDracoSaveTree tTree
revDeleteXMLTree tTree
end loadDracoSave

command loadFile
   put it into rawurl
   put rawurl into tDracoSaveFile
end loadFile

// PART 2
private function readDracoSaveToXMLTree
   set the itemDelimiter to slash
   local tDracoSaveFile
   put item 1 to -2 of the effective filename of this stack & "/DracoSave.xml" into tDracoSaveFile
   set the itemDelimiter to comma
   local tDracoSaveData, tResult
   put url ("file:" & tDracoSaveFile) into tDracoSaveData
   //put tDracoSaveFile into tDracoSaveData
   put the result into tResult
   if tResult is not empty then
      answer error "Failed to read Draco's Data file at location: " & tDracoSaveFile
      return empty
   end if
   
   local tTree
   put revCreateXMLTree(tDracoSaveData, false, true, false) into tTree
   if tTree is not an integer then
      answer error "Failed to process preferences file with error: " & tTree
      return empty
   end if
   return tTree
end readDracoSaveToXMLTree

//PART 3 -------- PUT IN TO GUI 
private command processDracoSaveTree pTree
//PLAYER
local tPlayer1
put revXMLNodeContents(pTree, "DracoFootballXpression/DataFootball/DataPlayer/Player1") into tPlayer1
local tPlayer2
put revXMLNodeContents(pTree, "DracoFootballXpression/DataFootball/DataPlayer/Player2") into tPlayer2
local tPlayer3
put revXMLNodeContents(pTree, "DracoFootballXpression/DataFootball/DataPlayer/Player3") into tPlayer3
local tOutput1
put tPlayer1 & return after tPlayer
put tPlayer2 & return after tPlayer
put tPlayer3 & return after tPlayer
set the text of field "player_fld" to tPlayer

//URL LOGO TIM A
local tLogoTimA
put revXMLNodeContents(pTree, "DracoFootballXpression/DataFootball/DataPertandingan/LogoTimA") into tLogoTimA
local tOutput2
put tLogoTimA & return after tOutput2
set the text of field "timA_fld" to tOutput2
end processDracoSaveTree