#include <Array.au3>
#include <_XMLDomWrapper.au3>
$x = @ScriptDir & "\id_cd.xml"
$y =_XMLFileOpen($x)
;_NewField($s_User, $d_User2)
;_DelField("1")
;_UpField("1", $s_User, $d_User)
_ArrayDisplay(_GetField("2"))
Func _NewField($struct, $data)
Local $res
$count = _XMLGetAttrib("/grouplist", "count", "")
$aChilds = _XMLGetChildText("grouplist")
$count2= UBound($aChilds)
$c_str = UBound($struct)
_XMLCreateChildNode("grouplist" , "group", " ")
_XMLSetAttrib("grouplist/group["&$count2-1&"]", "id", $count+1)
For $i = 0 To $c_str-1
_XMLCreateChildNode("grouplist/group["&$count2&"]" , $struct[$i], $data[$i])
Next
$count+=1
_XMLSetAttrib("grouplist", "count", $count)
EndFunc
Func _UpField($id, $what, $than)
$sRoot = "grouplist"
Dim $aName[1], $aValue[1]
$aChilds = _XMLGetChildText($sRoot)
$c_str = UBound($what)
For $i = 1 To UBound($aChilds)-1
$aAttribs = _XMLGetAllAttribIndex($sRoot & "/" & $aChilds[$i], $aName, $aValue, "", $i-1)
if($aValue[0]=$id) Then
For $j = 0 To $c_str-1
_XMLUpdateField("grouplist/group["&$i&"]/"& $what[$j], $than[$j])
Next
EndIf
;_ArrayDisplay($aValue)
Next
EndFunc
Func _DelField($id)
$sRoot = "grouplist"
Dim $aName[1], $aValue[1]
$aChilds = _XMLGetChildText($sRoot)
For $i = 1 To UBound($aChilds)-1
$aAttribs = _XMLGetAllAttribIndex($sRoot & "/" & $aChilds[$i], $aName, $aValue, "", $i-1)
if($aValue[0]=$id) Then
_XMLDeleteNode("/grouplist/group["&$i&"]")
ExitLoop;
EndIf
Next
return 1
EndFunc
Func _GetField($id)
$sRoot = "grouplist"
Dim $aName[1], $aValue[1]
$aChilds = _XMLGetChildText($sRoot)
Dim $fret[1]
For $i = 1 To UBound($aChilds)-1
$aAttribs = _XMLGetAllAttribIndex($sRoot & "/" & $aChilds[$i], $aName, $aValue, "", $i-1)
if($aValue[0]=$id) Then
$aChilds2 = _XMLGetChildText($sRoot & "/" & $aChilds[$i])
$count = UBound($aChilds2)
For $j = 1 To $count-1
$tt = _XMLGetField($sRoot & "/" & $aChilds[$i] &"/" & $aChilds2[$j])
_ArrayAdd($fret, $tt[$i])
Next
return $fret
EndIf
Next
return 1
EndFunc
