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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية حفظ قيمة Label في فيجوال دوت نت 2010 عامر الجبوري 6 64 منذ 1 ساعه مضت
آخر رد: alma2
Lightbulb [سؤال] كيف اعمل sutup بالفيجوال بيسك الاصدار2013؟ moh_g 1 55 17-05-17, 05:13 AM
آخر رد: samawi
  كيف أضيف أداة تقرأ ملفات PDF إلى فيجوال 2010 محمد بن عطية 2 94 09-05-17, 07:59 PM
آخر رد: safalo
  [VB.NET] ربط فيجوال بيسك 2008 بــ SQL2000 محمد بوقزاحة 2 53 09-05-17, 11:16 AM
آخر رد: محمد بوقزاحة
  هل فيه كتاب يشرح التعامل مع الداتا ست في فيجوال دوت نت 2008 samawi 3 111 30-04-17, 10:44 PM
آخر رد: ابو ليلى
  [VB.NET] التعامل مع الوقت وقسمته فى فيجوال بيسك دوت نت TAMER ELMORSY 2 80 30-04-17, 01:42 PM
آخر رد: TAMER ELMORSY
  اريد رابط تحميل فيجوال بيسك 2015 كود برمجي 3 205 19-04-17, 07:10 PM
آخر رد: كود برمجي
  [سؤال] اعدادات الشاشة في منظومة مصممة بفيجوال بيسك 2012 diab4diab 3 121 13-04-17, 05:09 PM
آخر رد: silverlight
  [سؤال] مشكلة فى قراءة بعض الاوامر فى الفيجول بيسك Mohamed371 4 173 10-04-17, 07:30 PM
آخر رد: Mohamed371
  نقل واسترجاع ملفات بواسطة الفيجوال بيسك عبدالرحمن المكاوي 28 1,402 08-04-17, 09:33 PM
آخر رد: zaki tahrour

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


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