اريد قراة ملف xml و اضافة العناصر الى ListView بيانات الملف
استخدم هذا الكود للكتابة عدلت على الكود حيث يقراء الملف لاكن لا يعمل
بيانات listview 3 Column
إقتباس :<?xml version="1.0" encoding="utf-8"?>
<TEST>
<Date Name="Ahmed" Age="20" Data="0" />
<Date Name="Mohamed" Age="20" Data="0" />
</TEST>
استخدم هذا الكود للكتابة عدلت على الكود حيث يقراء الملف لاكن لا يعمل
كود :
Public Function Read(listview As ListView, filePath As [String], fileName As [String]) As Boolean
Dim fileStream As FileStream
Dim streamReader As StreamReader
Dim xmlTextReader As XmlTextReader
Try
fileStream = New FileStream(fileName, FileMode.Open, FileAccess.Read, FileShare.None)
streamReader = New StreamReader(fileStream)
xmlTextReader = New XmlTextReader(streamReader)
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
xmlTextReader.ReadStartElement("Date")
xmlTextReader.ReadStartElement("Name")
xmlTextReader.ReadStartElement("Age")
xmlTextReader.ReadStartElement("Data")
xmlTextReader.ReadEndElement()
Next
xmlTextReader.Close()
Return True
Catch ex As IOException
Return False
End Try
End Function
إقتباس :With ListView1.Items.Add( xmlTextReader.ReadStartElement("Date"))
.Subitem.Add( xmlTextReader.ReadStartElement("Age"))
بيانات listview 3 Column