XML [بایگانی] - برنامه نویس

VB.NET2005

شنبه 13 بهمن 1386, 12:22 عصر

در ضمن برای ذخیره در فایل از کلاس زیر استفاده می کنم : ولی تمام مقادیر را به XMLobj.WriteStartElement("List"( نسبت می ده ولی من میخام هر وقت مقدار این قسمت تغییر کرد توی یه قسمت جدید با نام داده شده اطلاعات رو بریزه .
ببخشید من با XML زیاد اشنایی ندارم به همین دلیل اسمه <علی> رو نمیدونم چی باید میگفتم . . .
با تشکر

Module csdl_xml
Public tu AsNew ArrayList
Public nghia AsNew ArrayList
Sub Read_XML(ByRef tu As ArrayList, ByRef nghia As ArrayList)
Dim XMLReader As System.xml.XmlReader
XMLReader = New System.xml.XmlTextReader("tudien.xml")
While XMLReader.Read
SelectCase XMLReader.NodeType
Case System.Xml.XmlNodeType.Element
If XMLReader.AttributeCount > 0 Then
While XMLReader.MoveToNextAttribute
If XMLReader.Name = "Tu" Then
tu.Add(XMLReader.Value)
ElseIf XMLReader.Name = "Nghia" Then
nghia.Add(XMLReader.Value)
Else
EndIf
EndWhile
EndIf
EndSelect
EndWhile
XMLReader.Close()
EndSub
Sub Write_XML(ByRef tu As ArrayList, ByRef nghia As ArrayList)
Dim XMLobj As System.xml.XmlTextWriter
Dim ue AsNew System.[Text].UnicodeEncoding
XMLobj = New System.xml.XmlTextWriter("tudien.xml", ue)
XMLobj.Formatting = System.Xml.Formatting.Indented
XMLobj.Indentation = 3
XMLobj.WriteStartDocument()
XMLobj.WriteStartElement("List")
Dim i AsInteger
For i = 0 To tu.Count - 1
XMLobj.WriteStartElement("MyFile")
XMLobj.WriteAttributeString("Tu", tu.Item(i))
XMLobj.WriteAttributeString("Nghia", nghia.Item(i))
XMLobj.WriteEndElement()
Next
XMLobj.WriteEndElement()
XMLobj.Close()
EndSub
EndModule