[أسامة]

(29-06-16, 04:42 PM)الوادي كتب : يا أسامة،

هذا تعديل شامل

PHP كود :

Public Sub XmlFileToListView(listview As ListView, fileName As String)

   Dim reader As New System.Xml.XmlTextReader(fileName)
   Dim serialize As New Xml.Serialization.XmlSerializer(GetType(TEST))
   Dim deserialize As TEST = serialize.Deserialize(reader)

   For Each d As [Date] In deserialize.Dates
       listview.Items.Add(New ListViewItem(New String() {d.Name, d.Age, d.Data}))
   Next

End Sub


Class TEST
   <Xml.Serialization.XmlElement("Date")>
   Property Dates As New List(Of [Date])
End Class
Class [Date]
   <XmlAttribute("Name")> Property Name As String
   <XmlAttribute("Age")> Property Age As String
   <XmlAttribute("Data")> Property Data As String
End Class 


جزاك الله خيرا وزادك علما  عندى استفسار اخير اذا امكن يوجد مشكلة فى كود الكتابة 

كود :

Public Shared Function Wrire(listview As ListView, filePath As [String], fileName As [String]) As Boolean
       Dim fileStream As FileStream
       Dim streamWriter As StreamWriter
       Dim xmlTextWriter As XmlTextWriter
       Try
           fileStream = New FileStream(fileName, FileMode.Create, FileAccess.Write, FileShare.None)
           streamWriter = New StreamWriter(fileStream)
           xmlTextWriter = New XmlTextWriter(streamWriter)
           xmlTextWriter.Formatting = Formatting.Indented
           xmlTextWriter.WriteStartDocument()
           xmlTextWriter.WriteStartElement("TEST")
           Const SUBITEM1_POS As Integer = 0
           Const SUBITEM2_POS As Integer = 1
           Const SUBITEM3_POS As Integer = 2
           For i As Integer = 0 To listview.Items.Count - 1
               Dim currentSubItem1 As [String] = listview.Items(i).SubItems(SUBITEM1_POS).Text
               Dim currentSubItem2 As [String] = listview.Items(i).SubItems(SUBITEM2_POS).Text
               Dim currentSubItem3 As [String] = listview.Items(i).SubItems(SUBITEM3_POS).Text
               xmlTextWriter.WriteStartElement("Date")
               xmlTextWriter.WriteAttributeString("Name", currentSubItem1.ToString())
               xmlTextWriter.WriteAttributeString("Age", currentSubItem2.ToString())
               xmlTextWriter.WriteAttributeString("Data", currentSubItem3.ToString())
               xmlTextWriter.WriteEndElement()
           Next
           xmlTextWriter.WriteEndDocument()
           xmlTextWriter.Flush()
           xmlTextWriter.Close()

           Return True
       Catch ex As IOException

           Return False
       End Try
   End Function

المشكلة الاولى الكود يحتاج انشاء ملف جديد عند الحفظ عندما عدلت علية للكتابة على الذى تم حفظة مسبقآ لا يكتب
ثانيآ عند الانتعاء من الحفظ شكل السطر يكون هكذا <Date Name="Ahmed" Age="20" Data="0" />
هل يمكن انهاء السطر بنفس كلمت البداية ليكون هكذا <Date Name="Ahmed" Age="20" Data="0" /Date>

ثالثآ فى كود القراءة هل يمكن اضافة صور الى listview حيث لكل اسم صورة فى ملف

اسف على المشاكل