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

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

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  جملة select بها مشكلة atefkhalf2004 2 19 منذ 6 دقيقة مضت
آخر رد: atefkhalf2004
  مشكلة في توليد arabic qr code osmana2005 5 711 أمس, 02:04 PM
آخر رد: ndjakoub
  مشكلة طباعة الفاتورة في برنامج كاشير ibraheam 2 66 20-01-18, 03:24 PM
آخر رد: sendbad100
  مشكلة عند تخزين البيانات من اداة داتا قرايد فيو الى قاعدة البيانات nooralcown 4 59 19-01-18, 09:19 PM
آخر رد: الوايلي
  مشكلة بعد تنصيب البرنامج على جهاز العميل الوايلي 16 213 19-01-18, 09:05 PM
آخر رد: الوايلي
  [VB.NET] مشكلة بعد عمل publish for project sirnon 2 47 19-01-18, 07:30 PM
آخر رد: sirnon
Photo مشكلة عند عرض البيانات داخل داتا قرايد فيو nooralcown 1 33 19-01-18, 09:23 AM
آخر رد: محمود صالح
  [VB.NET] مشكلة في برنامج لتسديد اشتراكات شهرية الحسين احمد 7 209 18-01-18, 03:13 AM
آخر رد: الحسين احمد
  استخدمت هذه الطريقة للبحث ضمن datagrideview وعندي مشكلة nooralcown 5 97 16-01-18, 07:18 PM
آخر رد: عبدالله الدوسري
  مشكلة في كرستال ريبورت 2010 hglogtd 4 706 15-01-18, 10:25 PM
آخر رد: waleedessa

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


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