درخواست کمک برای کار با فایلهای XML

من یه فایل XML میخوام یه چیزی شبیه به این :

نقل قول:

---

<?xml version="1.0" encoding="utf-8"?>
<Events>
<Shamsi>
<INFO Day="1" Month="فروردین" Event="آغاز نوروز - تعطيل" Holiday="True" Date="1/1" Picture="\images\Nouroz.jpg" />
<Shamsi>
<Miladi>
</Miladi>
<GHamari>
</GHamari>
</Events>

---

ومیخوام بین تگ های <Shamsi> و <Miladi> و <GHamari> اطلاعات ماه ها رو قرار بدم . اون اطلاعات این ها هستند .
روز ، ماه ، رخداد ، تاریخ ، یه مقدار True یا False و یه آدرس تصویر . مثل زیر .
<INFO Day="1" Month="فروردین" Event="آغاز نوروز - تعطيل" Holiday="True" Date="1/1" Picture="\images\Nouroz.jpg" />
ولی نمیدونم که چه جوری این مقدار ها رو توش بزارم . اما مشکل اصلی نحوه خوندن اطلاعات از این فایلی که ایجاد میشه . میخوام بعد از درست کردن
فایلی که گفتم . بتونم اطلاعات فایل XML رو بخونم و توی یه ArrayList بریزم . مثلا 6 تا ArrayList که هرکدوم یکی از مقدار ها رو توی خودش نگه داره مثل
مقدار روز که خط به خط خونده بشه و بره توی ArrayList . ولی نکته مهم اینه که میخوام بتونم اطلاعات رو به صورت های مختلف بخونم مثل زیر :
1- خوندن اطلاعات از تگ <Shamsi>
2- خوندن اطلاعات از تگ<Miladi>
3- خوندن اطلاعات از تگ<GHamari>
4- خوندن اطلاعات از کل فایل
و همین طور نوشتن اطلاعات توی فایل با حالت های مختلف مثل زیر :
1- نوشتن اطلاعات در تگ <Shamsi>
2- نوشتن اطلاعات در تگ<Miladi>
3- نوشتن اطلاعات در تگ<GHamari>
و همین طور ویرایش اطلاعات .
ممنون میشم اگه یه چیز مناسب رو بذارید که همه ی این ها رو داشته باشه .
پس چی شد ؟ من چی می خوام .
1- یه کد XML که بشه اطلاعاتی رو که گفتم رو بشه توش نوشت .البته به صورتی که گفتم .
2- نحوه خوندن اون اطلاعات به حالت های مختلف گفته شده .
3- نحوه نوشتن اطلاعات به حالت های مختلف گفته شده .
4- نحوه ویرایش اطلاعات .
میدونم در خواست بزرگیه ولی خوب واقعا بهش نیاز دارم و خیلی گیرم و فوریه . فوری !
ولی به شما اعتماد دارم و میدونم که میتونید .

سلام
یه راه ساده و آسون استفاده از XmlSerializer برای سریالی کردن کلاس ها به شکل XML است برای حل این نمونه شما می توانید یک رابط به شکل زیر به پروژه استفاده کنید:

کد:

---

    // C#


    public interface IInfo
    {
        string Day { get; set; }
        string Month { get; set; }
        string PicturePath { get; set; }
        // ....
    }

---

کد:

---

' VB


Public Interface IInfo
        Property Day() As String
        Property Month() As String
        Property PicturePath() As String
        ' ....
End Interface

---

حالا باید کلاس های شمسی و قمری و میلادی را بر اساس این رابط پیاده کنید

کد:

---

    // C#

    [Serializable]
    public class Shamsi : IInfo
    {

        public string Day { get; set; }

        public string Month { get; set; }

        public string PicturePath { get; set; }
    }

---

کد:

---

'  VB

<Serializable> _
Public Class Shamsi
        Implements IInfo
        Private m_Day As String
        Private m_Month As String
        Private m_PicturePath As String
        '____________________________________________
        Public Property Day() As String
                Get
                        Return m_Day
                End Get
                Set
                        m_Day = value
                End Set
        End Property

        Public Property Month() As String
                Get
                        Return m_Month
                End Get
                Set
                        m_Month = value
                End Set
        End Property

        Public Property PicturePath() As String
                Get
                        Return m_PicturePath
                End Get
                Set
                        m_PicturePath = value
                End Set
        End Property
End Class

---

کلاس های قمری و میلادی هم به همین شکل این رابط رو پیاده می کنن.

بعد از پیاده سازی اون سه کلاس باید کلاس(که در XML می شود عنصر ریشه) Events رو پیاده کنید:

کد:

---

    // C#

    [Serializable]
    public class Events
    {
        private readonly string m_FilePath = @"D:\m.xml";
        //_____________________________________________________
        public Shamsi Shamsi { get; set; }
        public Miladi Miladi { get; set; }
        public Ghamari Ghamari { get; set; }

        public Events()
        {
            this.Shamsi = new Shamsi();
            this.Miladi = new Miladi();
            this.Ghamari = new Ghamari();
        }

        public void Load()
        {
            if (!File.Exists(m_FilePath)) return;

            var Deserializer = new XmlSerializer(typeof(Events));
            using (var stream = new FileStream(m_FilePath, FileMode.Open, FileAccess.Read))
            {
                var LoadedEvents = Deserializer.Deserialize(stream) as Events;
                if (LoadedEvents != null)
                {
                    this.Shamsi = LoadedEvents.Shamsi;
                    this.Miladi = LoadedEvents.Miladi;
                    this.Ghamari = LoadedEvents.Ghamari;
                }
            }
        }

        public void Save()
        {
            var Serializer = new XmlSerializer(typeof(Events));
            using (var stream = new FileStream(m_FilePath, FileMode.OpenOrCreate, FileAccess.Write))
            {
                Serializer.Serialize(stream, this);
            }
        }
    }

---

کد:

---

' VB

<Serializable> _
Public Class Events
        Private ReadOnly m_FilePath As String = "D:\m.xml"
        '_____________________________________________________
        Public Property Shamsi() As Shamsi
                Get
                        Return m_Shamsi
                End Get
                Set
                        m_Shamsi = Value
                End Set
        End Property
        Private m_Shamsi As Shamsi
        Public Property Miladi() As Miladi
                Get
                        Return m_Miladi
                End Get
                Set
                        m_Miladi = Value
                End Set
        End Property
        Private m_Miladi As Miladi
        Public Property Ghamari() As Ghamari
                Get
                        Return m_Ghamari
                End Get
                Set
                        m_Ghamari = Value
                End Set
        End Property
        Private m_Ghamari As Ghamari

        Public Sub New()
                Me.Shamsi = New Shamsi()
                Me.Miladi = New Miladi()
                Me.Ghamari = New Ghamari()
        End Sub

        Public Sub Load()
                If Not File.Exists(m_FilePath) Then
                        Return
                End If

                Dim Deserializer = New XmlSerializer(GetType(Events))
                Using stream = New FileStream(m_FilePath, FileMode.Open, FileAccess.Read)
                        Dim LoadedEvents = TryCast(Deserializer.Deserialize(stream), Events)
                        If LoadedEvents IsNot Nothing Then
                                Me.Shamsi = LoadedEvents.Shamsi
                                Me.Miladi = LoadedEvents.Miladi
                                Me.Ghamari = LoadedEvents.Ghamari
                        End If
                End Using
        End Sub

        Public Sub Save()
                Dim Serializer = New XmlSerializer(GetType(Events))
                Using stream = New FileStream(m_FilePath, FileMode.OpenOrCreate, FileAccess.Write)
                        Serializer.Serialize(stream, Me)
                End Using
        End Sub
End Class

---

نهایتا برای استفاده باید از کدی شبیه این استفاده کنید:

کد:

---

            // C#

            var events = new Events();
            events.Load();
            events.Ghamari.Day = "1";
            events.Miladi.Day = "3";
            events.Save();

---

کد:

---

' VB

Dim events = New Events()
events.Load()
events.Ghamari.Day = "1"
events.Miladi.Day = "3"
events.Save()

---

امیدوارم تونسته باشم کمکتون کنم

خیلی خیلی ممنون.هنوز امتحانشون نکردم ولی معلومه که عالیه .

راستش من نمیدونم کد ها رو باید کجا کپی کنم . در هر صورت من کد ها رو این طوری درستشون کردم :

کد:

---

Imports System.IO
Imports System.Xml.Serialization
Module Module1
    Public Interface IInfo
        Property Day() As String
        Property Month() As String
        Property Events() As String
        Property Holiday() As Boolean
        Property Dates() As String
        Property PicturePath() As String
    End Interface
    <Serializable()> _
  Public Class Shamsi
        Implements IInfo
        Private X_Day As String
        Private X_Month As String
        Private X_Events As String
        Private X_Holiday As Boolean
        Private X_Dates As String
        Private X_PicturePath As String
        '____________________________________________
        Public Property Day() As String
            Get
                Return X_Day
            End Get
            Set(ByVal value As String)
                X_Day = value
            End Set
        End Property
        Public Property Month() As String
            Get
                Return X_Month
            End Get
            Set(ByVal value As String)
                X_Month = value
            End Set
        End Property
        Public Property Events() As String
            Get
                Return X_Events
            End Get
            Set(ByVal value As String)
                X_Events = value
            End Set
        End Property
        Public Property Holiday() As Boolean
            Get
                Return X_Holiday
            End Get
            Set(ByVal value As Boolean)
                X_Holiday = value
            End Set
        End Property
        Public Property Dates() As String
            Get
                Return X_Dates
            End Get
            Set(ByVal value As String)
                X_Dates = value
            End Set
        End Property
        Public Property PicturePath() As String
            Get
                Return X_PicturePath
            End Get
            Set(ByVal value As String)
                X_PicturePath = value
            End Set
        End Property
    End Class
    <Serializable()> _
  Public Class Miladi
        Implements IInfo
        Private X_Day As String
        Private X_Month As String
        Private X_Events As String
        Private X_Holiday As Boolean
        Private X_Dates As String
        Private X_PicturePath As String
        '____________________________________________
        Public Property Day() As String
            Get
                Return X_Day
            End Get
            Set(ByVal value As String)
                X_Day = value
            End Set
        End Property
        Public Property Month() As String
            Get
                Return X_Month
            End Get
            Set(ByVal value As String)
                X_Month = value
            End Set
        End Property
        Public Property Events() As String
            Get
                Return X_Events
            End Get
            Set(ByVal value As String)
                X_Events = value
            End Set
        End Property
        Public Property Holiday() As Boolean
            Get
                Return X_Holiday
            End Get
            Set(ByVal value As Boolean)
                X_Holiday = value
            End Set
        End Property
        Public Property Dates() As String
            Get
                Return X_Dates
            End Get
            Set(ByVal value As String)
                X_Dates = value
            End Set
        End Property
        Public Property PicturePath() As String
            Get
                Return X_PicturePath
            End Get
            Set(ByVal value As String)
                X_PicturePath = value
            End Set
        End Property
    End Class
    <Serializable()> _
  Public Class Ghamari
        Implements IInfo
        Private X_Day As String
        Private X_Month As String
        Private X_Events As String
        Private X_Holiday As Boolean
        Private X_Dates As String
        Private X_PicturePath As String
        '____________________________________________
        Public Property Day() As String
            Get
                Return X_Day
            End Get
            Set(ByVal value As String)
                X_Day = value
            End Set
        End Property
        Public Property Month() As String
            Get
                Return X_Month
            End Get
            Set(ByVal value As String)
                X_Month = value
            End Set
        End Property
        Public Property Events() As String
            Get
                Return X_Events
            End Get
            Set(ByVal value As String)
                X_Events = value
            End Set
        End Property
        Public Property Holiday() As Boolean
            Get
                Return X_Holiday
            End Get
            Set(ByVal value As Boolean)
                X_Holiday = value
            End Set
        End Property
        Public Property Dates() As String
            Get
                Return X_Dates
            End Get
            Set(ByVal value As String)
                X_Dates = value
            End Set
        End Property
        Public Property PicturePath() As String
            Get
                Return X_PicturePath
            End Get
            Set(ByVal value As String)
                X_PicturePath = value
            End Set
        End Property
    End Class
    '_______________________________________________________________________________
 
    <Serializable()> _
Public Class Events
        Private ReadOnly X_FilePath As String = "Events.xml"
        '_____________________________________________________
        Public Property Shamsi() As Shamsi
            Get
                Return X_Shamsi
            End Get
            Set(ByVal value As Shamsi)
                X_Shamsi = value
            End Set
        End Property
        Private X_Shamsi As Shamsi
        Public Property Miladi() As Miladi
            Get
                Return X_Miladi
            End Get
            Set(ByVal value As Miladi)
                X_Miladi = value
            End Set
        End Property
        Private X_Miladi As Miladi
        Public Property Ghamari() As Ghamari
            Get
                Return X_Ghamari
            End Get
            Set(ByVal value As Ghamari)
                X_Ghamari = value
            End Set
        End Property
        Private X_Ghamari As Ghamari
        Public Sub New()
            Me.Shamsi = New Shamsi()
            Me.Miladi = New Miladi()
            Me.Ghamari = New Ghamari()
        End Sub
        Public Sub Load()
            If Not File.Exists(X_FilePath) Then
                Return
            End If
            Dim Deserializer = New XmlSerializer(GetType(Events))
            Using stream = New FileStream(X_FilePath, FileMode.Open, FileAccess.Read)
                Dim LoadedEvents = TryCast(Deserializer.Deserialize(stream), Events)
                If LoadedEvents IsNot Nothing Then
                    Me.Shamsi = LoadedEvents.Shamsi
                    Me.Miladi = LoadedEvents.Miladi
                    Me.Ghamari = LoadedEvents.Ghamari
                End If
            End Using
        End Sub
        Public Sub Save()
            Dim Serializer = New XmlSerializer(GetType(Events))
            Using stream = New FileStream(X_FilePath, FileMode.OpenOrCreate, FileAccess.Write)
                Serializer.Serialize(stream, Me)
            End Using
        End Sub
    End Class

---

ببینید مشکلی توش وجود نداره ویا جای درستی کپی کردم . چون این خطلا ها به وجود اومده :

کد:

---

Class 'Shamsi' must implement 'Property Dates() As String' for interface 'IInfo'. Implementing property must have matching 'ReadOnly' or 'WriteOnly' specifiers.

---

این خطا رو برای همه ی گزینه های IInfo به وجود اومده و همین طور برای کلاس های میلادی و قمری.
و به خاطر همین نمیتونم برنامه رو اجرا کنم و یا امتحان کنم .

خوب معلومه که خطا می دهد ! شما اومدید همه ی کلاس ها رو مثل (چه بگویم) ریختید تو یه فایل!

تمام کلاس ها و رابط رو در فایل های جداگانه ایجاد کنید
روی پروژه راست کلیک Add -> class و یک کلاس یا رابط رو در اون کپی کنید(این کارو برای همه کلاس ها تکرار کنید )

موفق باشید

سلام ممنون.
حتما میگید چه قدر من .... هستم . راستش حق دارید چون من چند وقته خودم رو آوردم سمته دات نت و کسی رو ندارم که بهم کمک کنه .
ولی میشه بگید

PublicInterface IInfo

رو کجا باید کپی کنم.

سلام

نقل قول:

---

حتما میگید چه قدر من .... هستم . راستش حق دارید چون من چند وقته خودم رو آوردم سمته دات نت و کسی رو ندارم که بهم کمک کنه .

---

نه من اصلا منظوری نداشتم
فقط سعی کنید کدها جوری باشد که خوتان و افراد دیگر از خواندنش لذت ببرند!:46:

نقل قول:

---

ولی میشه بگید

Public Interface IInfo

رو کجا باید کپی کنم.

---

یک کلاس ایجاد کنید و نامش را بگزارید IInfo بعد کلمه ی کلید Class رو به Interface تغییر بدید و کدها رو داخلش کپی کنید.(البته خود آیتم Interface هم موجود است)

نقل قول:

---

نوشته شده توسط mahdi7s [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام

یک کلاس ایجاد کنید و نامش را بگزارید IInfo بعد کلمه ی کلید Class رو به Interface تغییر بدید و کدها رو داخلش کپی کنید.(البته خود آیتم Interface هم موجود است)

---

راستش نمیخوام نا امیدتون کنم ولی بازم همون خطا را که قبلا گفتم داد. بنظرم اگه به صورت پروژه بذارید هم برای شما و هم برای من بهتر باشه . در ضمن من خود آیتم Interface رو ندیدم.
بازم ممنون

نقل قول:

---

راستش نمیخوام نا امیدتون کنم ولی بازم همون خطا را که قبلا گفتم داد

---

لااقل الان میشه بهش گفت کد!
ناامید؟:31: اگر کسی با نوشتن چهار خط کد و گرفتن یک خطا ناامید شود احتمالا برنامه نویس نشود بهتر است!

مشکل اصلی را الان دریافتم!
به هر خصیصه که از این رابط پیاده شده باید این رو اضافه کنید:

کد:

---

Implements IInfo.PropertyName

---

برای مثال پیاده سازی خصیصه Day اینطوری می شود:

کد:

---

    Public Property Day() As String Implements IInfo.Day
        Get
            Return X_Day
        End Get
        Set(ByVal value As String)
            X_Day = value
        End Set
    End Property

---

از ویبی متنفرم!

موفق باشید

دستت درد نکنه .فکر کنم درست شده .ولی هنوز همه رو امتحان نکردم.ولی بازم ممنون.