+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مشكلة صغيرة فى كتابة item الى xml (/showthread.php?tid=19181)
مشكلة صغيرة فى كتابة item الى xml - Mohamed20 - 10-02-17
اذا كان عندى 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
هذا هو الكود الذى استخدمة
كود :
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>RE: مشكلة صغيرة فى كتابة item الى xml - مساعدة - 10-02-17
السلام عليكم
قم بالترتيب في البيانات الاساسية قبل تعبئتها في ادوات الليست بوكس.
ضع مشروعك لإيجاد الكود المناسب.
RE: مشكلة صغيرة فى كتابة item الى xml - Mohamed20 - 11-02-17
(10-02-17, 11:49 PM)مساعدة كتب : السلام عليكم
قم بالترتيب في البيانات الاساسية قبل تعبئتها في ادوات الليست بوكس.
ضع مشروعك لإيجاد الكود المناسب.
تم الحل عند الترتيب