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

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

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة عند تنصيب فيجوال بيسك 2013 Mohamed Magdy 4 20 منذ 43 دقيقة مضت
آخر رد: Mohamed Magdy
  [سؤال] استفسار عن مشكلة في كود لايجاد العملاء الغير موجودين بجدول الدفع ahmedmansour 19 642 منذ 1 ساعه مضت
آخر رد: asemshahen5
  مشكلة فى تعطيل زر الحفظ سمير جمال 7 111 أمس, 07:02 PM
آخر رد: elgokr
  [VB.NET] مشكلة في open file dailog nnnnn 1 61 14-11-18, 03:37 AM
آخر رد: عبد العزيز البسكري
  مشكلة ايجاد قاعدة البيانات m.reyati 5 85 13-11-18, 02:06 AM
آخر رد: mero5000
  [VB.NET] مشكلة في برنامج متعدد اللغات ay.alhaj 12 248 12-11-18, 03:30 AM
آخر رد: ay.alhaj
  حل مشكلة عدم تثبيت برنامجي hamadz 4 99 11-11-18, 02:29 PM
آخر رد: elgokr
  مشكلة في الكرستل ريبورت hassan 14 1 55 11-11-18, 02:15 PM
آخر رد: elgokr
  مشكلة التكرار في الكريستل ريبورت makky 6 107 09-11-18, 01:30 PM
آخر رد: makky
  مشكلة في الكود salahmax12 4 140 08-11-18, 08:36 PM
آخر رد: salahmax12

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


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