تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكلة صغيرة فى كتابة item الى xml
#1
اذا كان عندى 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
الكود يعمل بدون مشاكل لاكن لم استطيع ان اجعلة يكرر item الى id الى ان تنقص الى 0

هذه هو الناتج 

إقتباس :<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>
هل من الممكن
الرد
تم الشكر بواسطة:
#2
السلام عليكم

قم بالترتيب في البيانات الاساسية قبل تعبئتها في ادوات الليست بوكس.

ضع مشروعك لإيجاد الكود المناسب.
الرد
تم الشكر بواسطة: Mohamed20
#3
(10-02-17, 11:49 PM)مساعدة كتب : السلام عليكم

قم بالترتيب في البيانات الاساسية قبل تعبئتها في ادوات الليست بوكس.

ضع مشروعك لإيجاد الكود المناسب.

تم الحل عند الترتيب
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] مشكلة في كود الحفظ عاشق الرسول 10 192 16-01-19, 02:43 AM
آخر رد: عاشق الرسول
  مشكلة عند ترحيل البيانات الي اكسل nooralcown 1 71 14-01-19, 02:30 AM
آخر رد: اسامه الهرماوي
  لماذا يحدث مشكلة عند فتح الفورم ShowDialog new_programer 7 183 13-01-19, 10:20 PM
آخر رد: أسامة السالمي
  مشكلة ظهور مفاجيء للأخطاء عند تصدير الداتاجريدفيو كملف PDF ..[تم الحل] Hazem1 0 66 08-01-19, 11:48 AM
آخر رد: Hazem1
  طريقة تكرار الامر تلقائيا | حل مشكلة script error في webbrowser عند فتح صفحة ما soloxocf1 0 63 08-01-19, 07:05 AM
آخر رد: soloxocf1
  مشكلة البرنامج بعد التثبيت ( هام ) salah mansour 5 119 02-01-19, 11:57 PM
آخر رد: salah mansour
  بخصوص مشكلة فى الفيجوال ستوديو( هام ) salah mansour 11 249 02-01-19, 09:47 PM
آخر رد: salah mansour
  مشكلة بعد عمل setup لبرنامج في فيجوال بيسك 2010 السائل 11 239 02-01-19, 05:13 PM
آخر رد: السائل
  [نقاش] مشكلة الطباعة عند المستخدم اسامه الهرماوي 3 103 31-12-18, 12:40 PM
آخر رد: حريف برمجة
  مشكلة في تشغيل برنامج تمت صناعته بالفيجوال بيسك 2012 و فيجوال بيسك 2017 naderahly 3 114 30-12-18, 02:59 AM
آخر رد: a.wagdi

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم