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

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

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Photo [VB.NET] حل مشكلة {"This OleDbTransaction has completed; it is no longer usable."} محمد صلاح ابراهيم 1 27 منذ 4 ساعة مضت
آخر رد: Done
Exclamation ما هذا ؟ مشكلة في اداة ShockwaveFlash لعرض فيديوهات الـ Youtube YousefOkasha 6 71 أمس, 04:59 PM
آخر رد: YousefOkasha
  مشكلة فى استدعاء الفاتورة للتعديل عليها atef_020 27 374 21-07-18, 10:23 PM
آخر رد: atefkhalf2004
  [VB.NET] كيف يمكن تفادي مشكلة اقلاع البرنامج اكثر من مرة larbihamri 4 87 20-07-18, 03:29 AM
آخر رد: YousefOkasha
  مشكلة ظهور الارقام في تقرير الكريستال ريبورت باللغة الانجليزية محمد صلاح ابراهيم 1 57 15-07-18, 05:07 PM
آخر رد: elgokr
Exclamation مشكلة في تثبيت Visual Studio 2013 YousefOkasha 7 299 13-07-18, 10:33 PM
آخر رد: YousefOkasha
  [سؤال] مشكلة عند عمل رن للمشروع khaled_2017 9 171 13-07-18, 07:32 PM
آخر رد: elgokr
  [VB.NET] مشكلة عند اضافة البيانات للسيرفر محمد اسماعيل 7 100 11-07-18, 04:28 AM
آخر رد: elgokr
  [VB.NET] مشكلة في الكريستال ريبورت فراس الغزي 1 65 09-07-18, 03:00 PM
آخر رد: elgokr
  مشكلة في ال .NETFramework YousefOkasha 18 191 01-07-18, 03:33 AM
آخر رد: elgokr

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


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