تقييم الموضوع :
  • 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
حاول تكتب اي شي في التكست بوكس ثم أغلق الفورم ثم قم بإعادة تشغيل البرنامج مرة أخري و ستري النتائج بنفسك

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل من الممكن العمل على قاعدة بيانات اكسل على الفيجوال بيسك خالد كامل1 4 83 24-03-24, 02:00 AM
آخر رد: خالد كامل1
  مشكلة عند نقل البرنامج من فيجوال 2013 الى فيجوال 2017 strongriseman 5 149 12-03-24, 10:37 AM
آخر رد: strongriseman
  الالوان في فيجوال بيسك atefkhalf2004 2 418 05-01-24, 04:38 PM
آخر رد: atefkhalf2004
  تحويل مشروع من c# الى فيجول بيسك Lathe1 4 718 05-01-24, 01:05 AM
آخر رد: HALIM ELEULMA
  [كود] اريد كود إرسال البيانات من الفيجوال بيسك إلىPDF issamsaidd 10 5,829 25-12-23, 06:30 PM
آخر رد: الحزين اليماني
  اضافة ادوات لفيجوال بيسك خالد20 10 1,977 18-12-23, 07:51 PM
آخر رد: ابراهيم عبدالباقى
  كيفية جعل من كتاب فيه هوامش ونص (قاعدة بيانات وواجهة فيجوال مثل الشاملة) ابو امجد 1 1,606 10-12-23, 12:53 PM
آخر رد: محمد بن عطية
Photo مشكلة مفاجئة كريستال مع فيجوال 2015 atefkhalf2004 2 367 04-11-23, 12:04 PM
آخر رد: atefkhalf2004
  فيجوال بيسك 2012 manhoud 0 264 25-10-23, 11:00 PM
آخر رد: manhoud
Wink كيفية اظهار قاءمة عند النقر بزر الفأرة الايمن على الداتا قريد فيو في فيجوال 2010 RADOS 1 397 09-08-23, 09:39 PM
آخر رد: أبووسم

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


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