تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مافائدة XML مع لغة فيجوال بيسك دوت نت
#1
سلام عليكم
XML
اريد ان اعرف ماهي الفائدة منها مع الفيجوال بيسك دوت نت وهل هي مثال جيد لبرمجة برامج اكثر جمالية









............................................................................................................................
      XML     واذا يوجد كتاب يتكلم مع الفيجوال بيسك دوت نت ايضا ممكن احد يعطني رابط
الرد }}}}
تم الشكر بواسطة:
#2
الهدف هو حفظ البيانات بصورها المختلفة في ملف XML
وكبدابة عليك ان تقرأ و تدرس كيفية استخدام XmlTextReader و XmlTextWriter في حفظ المعلومات في هذا النوع من الملفات
الرد }}}}
تم الشكر بواسطة: ابراهيم كركوكي , LoveVb , العزابي
#3
(13-08-16, 04:21 AM)silverlight كتب : الهدف هو حفظ البيانات بصورها المختلفة في ملف XML
وكبدابة عليك ان تقرأ و تدرس كيفية استخدام XmlTextReader و XmlTextWriter في حفظ المعلومات في هذا النوع من الملفات

شكرا
الرد }}}}
تم الشكر بواسطة:
#4
مثال توضيحي :

افتح مشروع و ضع علي الفورم TextBox ثم اكتب الكود بالشكل التالي
والفكرة هنا اننا نقرأ البيانات من ملف xml عند تشغيل المشروع و نظهرها في التكست بوكس
ثم نحفظ البيانات الموجودة في التكست بوكس مرة اخري في الملف و ذلك عن اغلاق الفورم مثلا


كود :
Imports System.Xml

Public Class Form1

   Private Const folderName As String = "\RiverNile\"
   Private Const fileName As String = "data.riv"
   Private textBoxText As String = CType(Nothing, String)

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       ' create directory where you will save data
       CreateDirectory(folderName)

       Dim fileUrl As String = String.Concat(New String() {(".\").ToString(), folderName, fileName})
       Dim reader As XmlTextReader = New XmlTextReader(fileUrl)
       Try
           While reader.Read
               reader.MoveToAttribute("TextBoxText")
               textBoxText = reader.Value
           End While
       Catch ex As Exception
           textBoxText = CType(Nothing, String)
       Finally
           reader.Close()
       End Try

       TextBox1.Text = textBoxText
   End Sub

   Private Sub CreateDirectory(directoryName As String)
       If Not IO.Directory.Exists((".\").ToString() + directoryName) Then
           IO.Directory.CreateDirectory((".\").ToString() + directoryName)
       End If
   End Sub

   Private Sub Form1_FormClosed(sender As Object, e As FormClosedEventArgs) Handles MyBase.FormClosed

       Dim fileUrl As String = String.Concat(New String() {(".\").ToString(), folderName, fileName})
       Dim writer As XmlTextWriter = New XmlTextWriter(fileUrl, Nothing)
       writer.WriteStartElement(Me.Name.ToString())
       writer.WriteAttributeString("TextBoxText", Me.TextBox1.Text.ToString())

       writer.WriteEndElement()
       writer.Flush()
       writer.Close()
   End Sub


End Class
حاول تكتب اي شي في التكست بوكس ثم أغلق الفورم ثم قم بإعادة تشغيل البرنامج مرة أخري و ستري النتائج بنفسك
الرد }}}}
#5
(13-08-16, 07:54 PM)silverlight كتب : مثال توضيحي :

افتح مشروع و ضع علي الفورم TextBox ثم اكتب الكود بالشكل التالي
والفكرة هنا اننا نقرأ البيانات من ملف xml عند تشغيل المشروع و نظهرها في التكست بوكس
ثم نحفظ البيانات الموجودة في التكست بوكس مرة اخري في الملف و ذلك عن اغلاق الفورم مثلا


كود :
Imports System.Xml

Public Class Form1

   Private Const folderName As String = "\RiverNile\"
   Private Const fileName As String = "data.riv"
   Private textBoxText As String = CType(Nothing, String)

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       ' create directory where you will save data
       CreateDirectory(folderName)

       Dim fileUrl As String = String.Concat(New String() {(".\").ToString(), folderName, fileName})
       Dim reader As XmlTextReader = New XmlTextReader(fileUrl)
       Try
           While reader.Read
               reader.MoveToAttribute("TextBoxText")
               textBoxText = reader.Value
           End While
       Catch ex As Exception
           textBoxText = CType(Nothing, String)
       Finally
           reader.Close()
       End Try

       TextBox1.Text = textBoxText
   End Sub

   Private Sub CreateDirectory(directoryName As String)
       If Not IO.Directory.Exists((".\").ToString() + directoryName) Then
           IO.Directory.CreateDirectory((".\").ToString() + directoryName)
       End If
   End Sub

   Private Sub Form1_FormClosed(sender As Object, e As FormClosedEventArgs) Handles MyBase.FormClosed

       Dim fileUrl As String = String.Concat(New String() {(".\").ToString(), folderName, fileName})
       Dim writer As XmlTextWriter = New XmlTextWriter(fileUrl, Nothing)
       writer.WriteStartElement(Me.Name.ToString())
       writer.WriteAttributeString("TextBoxText", Me.TextBox1.Text.ToString())

       writer.WriteEndElement()
       writer.Flush()
       writer.Close()
   End Sub


End Class
حاول تكتب اي شي في التكست بوكس ثم أغلق الفورم ثم قم بإعادة تشغيل البرنامج مرة أخري و ستري النتائج بنفسك

شكرا بارك الله فيك

(14-08-16, 01:53 PM)ابراهيم كركوكي كتب :
(13-08-16, 07:54 PM)silverlight كتب : مثال توضيحي :

افتح مشروع و ضع علي الفورم TextBox ثم اكتب الكود بالشكل التالي
والفكرة هنا اننا نقرأ البيانات من ملف xml عند تشغيل المشروع و نظهرها في التكست بوكس
ثم نحفظ البيانات الموجودة في التكست بوكس مرة اخري في الملف و ذلك عن اغلاق الفورم مثلا


كود :
Imports System.Xml

Public Class Form1

   Private Const folderName As String = "\RiverNile\"
   Private Const fileName As String = "data.riv"
   Private textBoxText As String = CType(Nothing, String)

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       ' create directory where you will save data
       CreateDirectory(folderName)

       Dim fileUrl As String = String.Concat(New String() {(".\").ToString(), folderName, fileName})
       Dim reader As XmlTextReader = New XmlTextReader(fileUrl)
       Try
           While reader.Read
               reader.MoveToAttribute("TextBoxText")
               textBoxText = reader.Value
           End While
       Catch ex As Exception
           textBoxText = CType(Nothing, String)
       Finally
           reader.Close()
       End Try

       TextBox1.Text = textBoxText
   End Sub

   Private Sub CreateDirectory(directoryName As String)
       If Not IO.Directory.Exists((".\").ToString() + directoryName) Then
           IO.Directory.CreateDirectory((".\").ToString() + directoryName)
       End If
   End Sub

   Private Sub Form1_FormClosed(sender As Object, e As FormClosedEventArgs) Handles MyBase.FormClosed

       Dim fileUrl As String = String.Concat(New String() {(".\").ToString(), folderName, fileName})
       Dim writer As XmlTextWriter = New XmlTextWriter(fileUrl, Nothing)
       writer.WriteStartElement(Me.Name.ToString())
       writer.WriteAttributeString("TextBoxText", Me.TextBox1.Text.ToString())

       writer.WriteEndElement()
       writer.Flush()
       writer.Close()
   End Sub


End Class
حاول تكتب اي شي في التكست بوكس ثم أغلق الفورم ثم قم بإعادة تشغيل البرنامج مرة أخري و ستري النتائج بنفسك

شكرا بارك الله فيك انا جربت الكود كل شيء على مايرام 
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيفية تحويل كود اكسلvba الى فيجوال بيسك farhat 3 47 منذ 1 ساعه مضت
آخر رد: thevirus
  [سؤال] كيف اربط الوورد مع الفيجوال بيسك انوار القصيم 7 1,358 17-02-17, 01:18 PM
آخر رد: محمد عمار
  كيفية اظهار قاءمة عند النقر بزر الفأرة الايمن على الداتا قريد فيو في فيجوال 2008 المتألق9 2 81 05-02-17, 01:43 AM
آخر رد: المتألق9
  هل يكون فيجوال بيسك 6 أقوى احيانا؟ abudawoodd 9 226 30-01-17, 01:19 AM
آخر رد: abudawoodd
Information [VB.NET] مساعده في الفيجوال بيسك هل اقدر اسوي اكثر من فورم a_abdullah 5 300 28-01-17, 02:14 PM
آخر رد: أسامة السالمي
  مشكلة في فيجوال استوديو 2015 هل يوجد حل ؟ soper 7 201 24-01-17, 12:26 PM
آخر رد: soper
  مشكلة في فيجوال 2008 abudawoodd 2 85 23-01-17, 11:59 PM
آخر رد: abudawoodd
  [سؤال] كيف ابطل زر tab فى برنامج على الفيجوال بيسك Mohamed371 1 92 20-01-17, 02:11 AM
آخر رد: مساعدة
  ارجوا المساعدة في برنامج محاسبة فيجوال بيسك 2008 محمد بوقزاحة 8 285 19-01-17, 01:30 PM
آخر رد: محمد بوقزاحة
  [سؤال] كيف أحمّل الثيمات فيجوال بيسك 2008 ؟ رمزي الرفاعي 1 145 10-01-17, 09:38 AM
آخر رد: thevirus

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


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