تقييم الموضوع :
  • 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)مساعدة كتب : السلام عليكم

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

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة في كرستال ريبورت لما انقله لجهاز اخر a.baomar 10 164,899 منذ 9 ساعة مضت
آخر رد: ملهمـ
  مشكلة في الإتصال بقاعدة الAccess ارجوكم مساعدة فراس صلاح 1 49 أمس, 09:20 PM
آخر رد: elmezo
  [نقاش] عندك مشكلة فى كود او البرنامج مش شغال تعالا هنا elmezo 1 45 أمس, 11:49 AM
آخر رد: عبدالرحمن المكاوي
Lightbulb مشكلة عند حفظ الفاتورة atef_020 19 318 18-04-18, 08:44 PM
آخر رد: ismail abdullah
  المساعدة - في حل مشكلة حجم الفورم Mohamed El Meziani 1 57 18-04-18, 02:39 AM
آخر رد: ملهمـ
  [كود] حل مشكلة داتا سورس (ليست بوكس ) عبدالرحمن المكاوي 7 630 16-04-18, 08:36 PM
آخر رد: عبدالرحمن المكاوي
  حل مشكلة في الفيجوال بيسك عبدالرحمن المكاوي 5 60 16-04-18, 11:33 AM
آخر رد: عبدالرحمن المكاوي
  مشكلة فى اضافة windows media player محمد البلتاجى 2 55 15-04-18, 10:01 AM
آخر رد: ابو روضة
Photo كود استدعاء الصنف بمجرد كتابة كود الصنف atef_020 6 194 13-04-18, 12:18 PM
آخر رد: moniam
Rainbow مشكلة تشغيل من اليوتيوب vb.net aldery 2 82 12-04-18, 07:38 PM
آخر رد: aldery

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


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