I'm follow this Tutorial
https://drive.google.com/drive/folders/ ... 3RPc2x2N1k
and make same modify code
finnally i can get the conten of XML with revXMLNodeContents and populate into DataGrid
for anyone who has the same problem with me
Hope it will give you some direction to your problem ....
Code: Select all
local sXMLID
on mouseUp
createTree
populateFieldsHomeTeam
populateFieldsAwayTeam
end mouseUp
on createTree
put url ("file:G:/PRODUCT/TRIAL AND ERROR/reading xml/XML file/teams_edit.xml") into tXMLData
put revCreateXMLTree(tXMLData, true, true, true, true) into sXMLID
end createTree
on populateFieldsHomeTeam
--- Nomer Punggung
put revXMLNodeContents(sXMLID, "xml/teams/players[1]/pno") into tNo1
put revXMLNodeContents(sXMLID, "xml/teams/players[2]/pno") into tNo2
put revXMLNodeContents(sXMLID, "xml/teams/players[3]/pno") into tNo3
put revXMLNodeContents(sXMLID, "xml/teams/players[4]/pno") into tNo4
put revXMLNodeContents(sXMLID, "xml/teams/players[5]/pno") into tNo5
put revXMLNodeContents(sXMLID, "xml/teams/players[6]/pno") into tNo6
put revXMLNodeContents(sXMLID, "xml/teams/players[7]/pno") into tNo7
put revXMLNodeContents(sXMLID, "xml/teams/players[8]/pno") into tNo8
put revXMLNodeContents(sXMLID, "xml/teams/players[9]/pno") into tNo9
put revXMLNodeContents(sXMLID, "xml/teams/players[10]/pno") into tNo10
put revXMLNodeContents(sXMLID, "xml/teams/players[11]/pno") into tNo11
put revXMLNodeContents(sXMLID, "xml/teams/players[12]/pno") into tNo12
--- FirstName
put revXMLNodeContents(sXMLID, "xml/teams/players[1]/firstName") into tFirstName1
put revXMLNodeContents(sXMLID, "xml/teams/players[2]/firstName") into tFirstName2
put revXMLNodeContents(sXMLID, "xml/teams/players[3]/firstName") into tFirstName3
put revXMLNodeContents(sXMLID, "xml/teams/players[4]/firstName") into tFirstName4
put revXMLNodeContents(sXMLID, "xml/teams/players[5]/firstName") into tFirstName5
put revXMLNodeContents(sXMLID, "xml/teams/players[6]/firstName") into tFirstName6
put revXMLNodeContents(sXMLID, "xml/teams/players[7]/firstName") into tFirstName7
put revXMLNodeContents(sXMLID, "xml/teams/players[8]/firstName") into tFirstName8
put revXMLNodeContents(sXMLID, "xml/teams/players[9]/firstName") into tFirstName9
put revXMLNodeContents(sXMLID, "xml/teams/players[10]/firstName") into tFirstName10
put revXMLNodeContents(sXMLID, "xml/teams/players[11]/firstName") into tFirstName11
put revXMLNodeContents(sXMLID, "xml/teams/players[12]/firstName") into tFirstName12
put revXMLNodeContents(sXMLID, "xml/teams/coach[1]/firstName") into tCFirstName1
put revXMLNodeContents(sXMLID, "xml/teams/assistcoach1[1]/firstName") into tCFirstName2
put revXMLNodeContents(sXMLID, "xml/teams/assistcoach2[1]/firstName") into tCFirstName3
---- FamilyName
put revXMLNodeContents(sXMLID, "xml/teams/players[1]/familyName") into tFamilyName1
put revXMLNodeContents(sXMLID, "xml/teams/players[2]/familyName") into tFamilyName2
put revXMLNodeContents(sXMLID, "xml/teams/players[3]/familyName") into tFamilyName3
put revXMLNodeContents(sXMLID, "xml/teams/players[4]/familyName") into tFamilyName4
put revXMLNodeContents(sXMLID, "xml/teams/players[5]/familyName") into tFamilyName5
put revXMLNodeContents(sXMLID, "xml/teams/players[6]/familyName") into tFamilyName6
put revXMLNodeContents(sXMLID, "xml/teams/players[7]/familyName") into tFamilyName7
put revXMLNodeContents(sXMLID, "xml/teams/players[8]/familyName") into tFamilyName8
put revXMLNodeContents(sXMLID, "xml/teams/players[9]/familyName") into tFamilyName9
put revXMLNodeContents(sXMLID, "xml/teams/players[10]/familyName") into tFamilyName10
put revXMLNodeContents(sXMLID, "xml/teams/players[11]/familyName") into tFamilyName11
put revXMLNodeContents(sXMLID, "xml/teams/players[12]/familyName") into tFamilyName12
put revXMLNodeContents(sXMLID, "xml/teams/coach[1]/familyName") into tCFamilyName1
put revXMLNodeContents(sXMLID, "xml/teams/assistcoach1[1]/familyName") into tCFamilyName2
put revXMLNodeContents(sXMLID, "xml/teams/assistcoach2[1]/familyName") into tCFamilyName3
--- Team A
--- NoPunggung
put tNo1 into theDataA[ 1 ][ "No" ]
put tNo2 into theDataA[ 2 ][ "No" ]
put tNo3 into theDataA[ 3 ][ "No" ]
put tNo4 into theDataA[ 4 ][ "No" ]
put tNo5 into theDataA[ 5 ][ "No" ]
put tNo6 into theDataA[ 6 ][ "No" ]
put tNo7 into theDataA[ 7 ][ "No" ]
put tNo8 into theDataA[ 8 ][ "No" ]
put tNo9 into theDataA[ 9 ][ "No" ]
put tNo10 into theDataA[ 10 ][ "No" ]
put tNo11 into theDataA[ 11 ][ "No" ]
put tNo12 into theDataA[ 12 ][ "No" ]
put empty into theDataA[ 13 ][ "No" ]
--- FirstName
put tFirstName1 into theDataA[ 1 ][ "FirstName" ]
put tFirstName2 into theDataA[ 2 ][ "FirstName" ]
put tFirstName3 into theDataA[ 3 ][ "FirstName" ]
put tFirstName4 into theDataA[ 4 ][ "FirstName" ]
put tFirstName5 into theDataA[ 5 ][ "FirstName" ]
put tFirstName6 into theDataA[ 6 ][ "FirstName" ]
put tFirstName7 into theDataA[ 7 ][ "FirstName" ]
put tFirstName8 into theDataA[ 8 ][ "FirstName" ]
put tFirstName9 into theDataA[ 9 ][ "FirstName" ]
put tFirstName10 into theDataA[ 10 ][ "FirstName" ]
put tFirstName11 into theDataA[ 11 ][ "FirstName" ]
put tFirstName12 into theDataA[ 12 ][ "FirstName" ]
put empty into theDataA[ 13 ][ "FirstName" ]
put tCFirstName1 into theDataA[ 14 ][ "FirstName" ]
put tCFirstName2 into theDataA[ 15 ][ "FirstName" ]
put tCFirstName3 into theDataA[ 16 ][ "FirstName" ]
--- FamilyName
put tFamilyName1 into theDataA[ 1 ][ "FamilyName" ]
put tFamilyName2 into theDataA[ 2 ][ "FamilyName" ]
put tFamilyName3 into theDataA[ 3 ][ "FamilyName" ]
put tFamilyName4 into theDataA[ 4 ][ "FamilyName" ]
put tFamilyName5 into theDataA[ 5 ][ "FamilyName" ]
put tFamilyName6 into theDataA[ 6 ][ "FamilyName" ]
put tFamilyName7 into theDataA[ 7 ][ "FamilyName" ]
put tFamilyName8 into theDataA[ 8 ][ "FamilyName" ]
put tFamilyName9 into theDataA[ 9 ][ "FamilyName" ]
put tFamilyName10 into theDataA[ 10 ][ "FamilyName" ]
put tFamilyName11 into theDataA[ 11 ][ "FamilyName" ]
put tFamilyName12 into theDataA[ 12 ][ "FamilyName" ]
put empty into theDataA[ 13 ][ "FamilyName" ]
put tCFamilyName1 into theDataA[ 14 ][ "FamilyName" ]
put tCFamilyName2 into theDataA[ 15 ][ "FamilyName" ]
put tCFamilyName3 into theDataA[ 16 ][ "FamilyName" ]
set the dgData of group "DataGrid 2" to theDataA
end populateFieldsHomeTeam
on populateFieldsAwayTeam
--- Nomer Punggung
put revXMLNodeContents(sXMLID, "xml/teams[2]/players[1]/pno") into tNo1
put revXMLNodeContents(sXMLID, "xml/teams[2]/players[2]/pno") into tNo2
put revXMLNodeContents(sXMLID, "xml/teams[2]/players[3]/pno") into tNo3
put revXMLNodeContents(sXMLID, "xml/teams[2]/players[4]/pno") into tNo4
put revXMLNodeContents(sXMLID, "xml/teams[2]/players[5]/pno") into tNo5
put revXMLNodeContents(sXMLID, "xml/teams[2]/players[6]/pno") into tNo6
put revXMLNodeContents(sXMLID, "xml/teams[2]/players[7]/pno") into tNo7
put revXMLNodeContents(sXMLID, "xml/teams[2]/players[8]/pno") into tNo8
put revXMLNodeContents(sXMLID, "xml/teams[2]/players[9]/pno") into tNo9
put revXMLNodeContents(sXMLID, "xml/teams[2]/players[10]/pno") into tNo10
put revXMLNodeContents(sXMLID, "xml/teams[2]/players[11]/pno") into tNo11
put revXMLNodeContents(sXMLID, "xml/teams[2]/players[12]/pno") into tNo12
--- FirstName
put revXMLNodeContents(sXMLID, "xml/teams[2]/players[1]/firstName") into tFirstName1
put revXMLNodeContents(sXMLID, "xml/teams[2]/players[2]/firstName") into tFirstName2
put revXMLNodeContents(sXMLID, "xml/teams[2]/players[3]/firstName") into tFirstName3
put revXMLNodeContents(sXMLID, "xml/teams[2]/players[4]/firstName") into tFirstName4
put revXMLNodeContents(sXMLID, "xml/teams[2]/players[5]/firstName") into tFirstName5
put revXMLNodeContents(sXMLID, "xml/teams[2]/players[6]/firstName") into tFirstName6
put revXMLNodeContents(sXMLID, "xml/teams[2]/players[7]/firstName") into tFirstName7
put revXMLNodeContents(sXMLID, "xml/teams[2]/players[8]/firstName") into tFirstName8
put revXMLNodeContents(sXMLID, "xml/teams[2]/players[9]/firstName") into tFirstName9
put revXMLNodeContents(sXMLID, "xml/teams[2]/players[10]/firstName") into tFirstName10
put revXMLNodeContents(sXMLID, "xml/teams[2]/players[11]/firstName") into tFirstName11
put revXMLNodeContents(sXMLID, "xml/teams[2]/players[12]/firstName") into tFirstName12
put revXMLNodeContents(sXMLID, "xml/teams[2]/coach[1]/firstName") into tCFirstName1
put revXMLNodeContents(sXMLID, "xml/teams[2]/assistcoach1[1]/firstName") into tCFirstName2
put revXMLNodeContents(sXMLID, "xml/teams[2]/assistcoach2[1]/firstName") into tCFirstName3
---- FamilyName
put revXMLNodeContents(sXMLID, "xml/teams[2]/players[1]/familyName") into tFamilyName1
put revXMLNodeContents(sXMLID, "xml/teams[2]/players[2]/familyName") into tFamilyName2
put revXMLNodeContents(sXMLID, "xml/teams[2]/players[3]/familyName") into tFamilyName3
put revXMLNodeContents(sXMLID, "xml/teams[2]/players[4]/familyName") into tFamilyName4
put revXMLNodeContents(sXMLID, "xml/teams[2]/players[5]/familyName") into tFamilyName5
put revXMLNodeContents(sXMLID, "xml/teams[2]/players[6]/familyName") into tFamilyName6
put revXMLNodeContents(sXMLID, "xml/teams[2]/players[7]/familyName") into tFamilyName7
put revXMLNodeContents(sXMLID, "xml/teams[2]/players[8]/familyName") into tFamilyName8
put revXMLNodeContents(sXMLID, "xml/teams[2]/players[9]/familyName") into tFamilyName9
put revXMLNodeContents(sXMLID, "xml/teams[2]/players[10]/familyName") into tFamilyName10
put revXMLNodeContents(sXMLID, "xml/teams[2]/players[11]/familyName") into tFamilyName11
put revXMLNodeContents(sXMLID, "xml/teams[2]/players[12]/familyName") into tFamilyName12
put revXMLNodeContents(sXMLID, "xml/teams[2]/coach[1]/familyName") into tCFamilyName1
put revXMLNodeContents(sXMLID, "xml/teams[2]/assistcoach1[1]/familyName") into tCFamilyName2
put revXMLNodeContents(sXMLID, "xml/teams[2]/assistcoach2[1]/familyName") into tCFamilyName3
--- Team A
--- NoPunggung
put tNo1 into theDataA[ 1 ][ "No" ]
put tNo2 into theDataA[ 2 ][ "No" ]
put tNo3 into theDataA[ 3 ][ "No" ]
put tNo4 into theDataA[ 4 ][ "No" ]
put tNo5 into theDataA[ 5 ][ "No" ]
put tNo6 into theDataA[ 6 ][ "No" ]
put tNo7 into theDataA[ 7 ][ "No" ]
put tNo8 into theDataA[ 8 ][ "No" ]
put tNo9 into theDataA[ 9 ][ "No" ]
put tNo10 into theDataA[ 10 ][ "No" ]
put tNo11 into theDataA[ 11 ][ "No" ]
put tNo12 into theDataA[ 12 ][ "No" ]
put empty into theDataA[ 13 ][ "No" ]
--- FirstName
put tFirstName1 into theDataA[ 1 ][ "FirstName" ]
put tFirstName2 into theDataA[ 2 ][ "FirstName" ]
put tFirstName3 into theDataA[ 3 ][ "FirstName" ]
put tFirstName4 into theDataA[ 4 ][ "FirstName" ]
put tFirstName5 into theDataA[ 5 ][ "FirstName" ]
put tFirstName6 into theDataA[ 6 ][ "FirstName" ]
put tFirstName7 into theDataA[ 7 ][ "FirstName" ]
put tFirstName8 into theDataA[ 8 ][ "FirstName" ]
put tFirstName9 into theDataA[ 9 ][ "FirstName" ]
put tFirstName10 into theDataA[ 10 ][ "FirstName" ]
put tFirstName11 into theDataA[ 11 ][ "FirstName" ]
put tFirstName12 into theDataA[ 12 ][ "FirstName" ]
put empty into theDataA[ 13 ][ "FirstName" ]
put tCFirstName1 into theDataA[ 14 ][ "FirstName" ]
put tCFirstName2 into theDataA[ 15 ][ "FirstName" ]
put tCFirstName3 into theDataA[ 16 ][ "FirstName" ]
--- FamilyName
put tFamilyName1 into theDataA[ 1 ][ "FamilyName" ]
put tFamilyName2 into theDataA[ 2 ][ "FamilyName" ]
put tFamilyName3 into theDataA[ 3 ][ "FamilyName" ]
put tFamilyName4 into theDataA[ 4 ][ "FamilyName" ]
put tFamilyName5 into theDataA[ 5 ][ "FamilyName" ]
put tFamilyName6 into theDataA[ 6 ][ "FamilyName" ]
put tFamilyName7 into theDataA[ 7 ][ "FamilyName" ]
put tFamilyName8 into theDataA[ 8 ][ "FamilyName" ]
put tFamilyName9 into theDataA[ 9 ][ "FamilyName" ]
put tFamilyName10 into theDataA[ 10 ][ "FamilyName" ]
put tFamilyName11 into theDataA[ 11 ][ "FamilyName" ]
put tFamilyName12 into theDataA[ 12 ][ "FamilyName" ]
put empty into theDataA[ 13 ][ "FamilyName" ]
put tCFamilyName1 into theDataA[ 14 ][ "FamilyName" ]
put tCFamilyName2 into theDataA[ 15 ][ "FamilyName" ]
put tCFamilyName3 into theDataA[ 16 ][ "FamilyName" ]
set the dgData of group "DataGrid 3" to theDataA
end populateFieldsAwayTeam
There is one more question, maybe anyone could help me
Is it imposssible to make mycode sorter
i mean can we make this code sorter with repeat fungction
Code: Select all
put tFamilyName1 into theDataA[ 1 ][ "FamilyName" ]
put tFamilyName2 into theDataA[ 2 ][ "FamilyName" ]
put tFamilyName3 into theDataA[ 3 ][ "FamilyName" ]
put tFamilyName4 into theDataA[ 4 ][ "FamilyName" ]
put tFamilyName5 into theDataA[ 5 ][ "FamilyName" ]
put tFamilyName6 into theDataA[ 6 ][ "FamilyName" ]
put tFamilyName7 into theDataA[ 7 ][ "FamilyName" ]
put tFamilyName8 into theDataA[ 8 ][ "FamilyName" ]
put tFamilyName9 into theDataA[ 9 ][ "FamilyName" ]
put tFamilyName10 into theDataA[ 10 ][ "FamilyName" ]
put tFamilyName11 into theDataA[ 11 ][ "FamilyName" ]
put tFamilyName12 into theDataA[ 12 ][ "FamilyName" ]
Comment and help wouldbe appriciate
Best Regards
Gilar Kadarsah