10-02-17, 08:42 PM
اذا كان عندى list مكونة من 3500 items و يوجد لى هذه items ids و رقم id من 0 الى 6 مثال
Name vb4arb id 3 count 0
Name vb id 5 count 0
Name ss id 0 count 0
Name ww id 1 count 0
Name ee id 2 count 0
ما ريد هو ان يتم اعادة صيغة هذه الى ملف xml بهذا الشكل مثلآ Name vb4arb id 3 count 0
فيتم الكتابة هكذا
Name vb4arb id 3 count 0
Name vb4arb id 2 count 0
Name vb4arb id 1 count 0
Name vb4arb id 0 count 0
هذا هو الكود الذى استخدمة
الكود يعمل بدون مشاكل لاكن لم استطيع ان اجعلة يكرر item الى id الى ان تنقص الى 0
هذه هو الناتج
اريد ان يظهر الناتج هكذا
هل من الممكن
Name vb4arb id 3 count 0
Name vb id 5 count 0
Name ss id 0 count 0
Name ww id 1 count 0
Name ee id 2 count 0
ما ريد هو ان يتم اعادة صيغة هذه الى ملف xml بهذا الشكل مثلآ Name vb4arb id 3 count 0
فيتم الكتابة هكذا
Name vb4arb id 3 count 0
Name vb4arb id 2 count 0
Name vb4arb id 1 count 0
Name vb4arb id 0 count 0
هذا هو الكود الذى استخدمة
كود :
Public Sub Save()
Dim savefile As String = Application.StartupPath + "\vb4arb.xml"
If Not File.Exists(savefile) Then
File.Create(savefile)
End If
Dim xmlDoc As New XmlDocument()
Dim root As XmlElement = DirectCast(xmlDoc.AppendChild(xmlDoc.CreateElement("Itm")), XmlElement)
root.Attributes.Append(xmlDoc.CreateAttribute("Counts")).InnerText = 50000
For i = 1 To ListBox1.Items.Count - 1
Dim node As XmlNode = root.AppendChild(xmlDoc.CreateElement("Itm"))
node.Attributes.Append(xmlDoc.CreateAttribute("Name")).InnerText = ListBox1.Items(i)
node.Attributes.Append(xmlDoc.CreateAttribute("ID")).InnerText = ListBox2.Items(i)
node.Attributes.Append(xmlDoc.CreateAttribute("Count")).InnerText = ListBox3.Items(i)
Next
xmlDoc.Save(savefile)
End Sub
هذه هو الناتج
إقتباس :<Itm Counts="50000">
<Itm Name="vb2arb" ID="5" Count="0" />
<Itm Name="vb3arb" ID="4" Count="0" />
<Itm Name="vb1arb" ID="2" Count="0" />
<Itm Name="vb0arb" ID="1" Count="0" />
</Itm>
اريد ان يظهر الناتج هكذا
كود :
<Itm Counts="50000">
<Itm Name="vb2arb" ID="5" Count="0" />
<Itm Name="vb2arb" ID="4" Count="0" />
<Itm Name="vb2arb" ID="3" Count="0" />
<Itm Name="vb2arb" ID="2" Count="0" />
<Itm Name="vb2arb" ID="1" Count="0" />
<Itm Name="vb2arb" ID="0" Count="0" />
<Itm Name="vb3arb" ID="4" Count="0" />
<Itm Name="vb3arb" ID="3" Count="0" />
<Itm Name="vb3arb" ID="2" Count="0" />
<Itm Name="vb3arb" ID="1" Count="0" />
<Itm Name="vb3arb" ID="0" Count="0" />
<Itm Name="vb1arb" ID="2" Count="0" />
<Itm Name="vb1arb" ID="1" Count="0" />
<Itm Name="vb1arb" ID="0" Count="0" />
<Itm Name="vb0arb" ID="1" Count="0" />
<Itm Name="vb0arb" ID="0" Count="0" />
</Itm>