تعلم كيفية إنشاء,كتابة ,قراءة ,نسخ ,نقل الملفات النصية من خلال VB.NET

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

تعلم كيفية إنشاء,كتابة ,قراءة ,نسخ ,نقل الملفات النصية من خلال VB.NET

مُساهمة من طرف السنى في الخميس أغسطس 29, 2013 7:13 am

بسم الله الرحمن الرحيم

أخوانى الكرام أهلا بكم ....في هذه المقالة، سوف نتعلم كيفية التعامل مع الملفات النصية من خلال VB.NET.مثل إنشاء، القراءة والكتابة في ملف نصي.

لقراءة وكتابة ملفات نصية، لدينا بعض فئات المجردة مثل TextReader و TextWriter. هناك بعض الفئات الاخرى مفيدة مثل StreamReader، StringReader، StreamWriter وStringWriter التي تستمد من هذه الفئات المجردة.


هذا المقال هو بأي حال من الأحوال دليل شامل للتدليل على قدرات هذه الفئات. دعونا نرى الآن بعض التعليمات البرمجية التي يوضح كيفية استخدام هذه الفئات....وذلك على النحو التالى :


1_ نقوم باستيراد مساحة الاسم  system.io

الرمز:
Import system.io

2_نقوم بالاعلان عن متغير فئة وليكن بأسم 'fileLoc' الذي يحتوي على أسم و مسار الملف النصى و ذلك على النحو التالى .

الرمز:
Dim fileLoc As String = "c:\sample1.txt"
3_لانشاء الملف نستخدم الشفرة التالية :

الرمز:
Private Sub btnCreate_Click(ByVal sender As Object, ByVal e As EventArgs)
                  Dim fs As FileStream = Nothing
                  If (Not File.Exists(fileLoc)) Then
                        fs = File.Create(fileLoc)
                        Using fs
 
                       End Using
                  End If
            End Sub
4_ للكتابة فى الملف النصى نستخدم الشفرة التالية :

الرمز:
Private Sub btnWrite_Click(ByVal sender As Object, ByVal e As EventArgs)
                  If File.Exists(fileLoc) Then
                        Using sw As StreamWriter = New StreamWriter(fileLoc)
                              sw.Write("Some sample text for the file")
                        End Using
                  End If
            End Sub
5_ للقراءة من الملف النصى نستخدم الشفرة التالية :

الرمز:
   Private Sub btnRead_Click(ByVal sender As Object, ByVal e As EventArgs)
                  If File.Exists(fileLoc) Then
                        Using tr As TextReader = New StreamReader(fileLoc)
                              MessageBox.Show(tr.ReadLine())
                        End Using
                  End If
            End Sub
6_ لنسخ الملف النصى الى ملف نصى أخر ...نستخدم الشفرة التالية :

الرمز:
Private Sub btnCopy_Click(ByVal sender As Object, ByVal e As EventArgs)
                  Dim fileLocCopy As String = "d:\sample1.txt"
                  If File.Exists(fileLoc) Then
                        ' If file already exists in destination, delete it.
                        If File.Exists(fileLocCopy) Then
                              File.Delete(fileLocCopy)
                        End If
                        File.Copy(fileLoc, fileLocCopy)
                  End If
            End Sub
7_ لنقل ملف نصى الى مسار أخر نستخدم الشفرة التالية :

الرمز:
Private Sub btnMove_Click(ByVal sender As Object, ByVal e As EventArgs)
                  ' Create unique file name
                  Dim fileLocMove As String = "d:\sample1" & System.DateTime.Now.Ticks & ".txt"
                  If File.Exists(fileLoc) Then
                        File.Move(fileLoc, fileLocMove)
                  End If
            End Sub
8_ لحذف الملف نستخدم الشفرة التالية

الرمز:
Private Sub btnDelete_Click(ByVal sender As Object, ByVal e As EventArgs)
                  If File.Exists(fileLoc) Then
                        File.Delete(fileLoc)
                  End If
            End Sub
و فى النهاية أتمنى أن يكون الدرس مفيد لكم

تحياتى القلبية

السنى
.......
.......

تاريخ التسجيل : 18/02/2011
المساهمات : 186
النقاط : 346
التقيم : 18
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: تعلم كيفية إنشاء,كتابة ,قراءة ,نسخ ,نقل الملفات النصية من خلال VB.NET

مُساهمة من طرف أحمد مناع في الخميس أغسطس 29, 2013 2:17 pm

دائما مبدع ومتقدم في العطاء لا حرمنا الله من عطائك الثر أخى السنى

ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
سبحان الله وبحمدة .....سبحان الله العظيم

إن فقدت مكان بذورك التي بذرتها يوما ما سيخبرك المطر أين زرعتها ..لذا إبذر الخير فوق أي أرض وتحت أي سماء ومع أي أحد.. فأنت لا تعلم أين تجده ومتى تجده؟! إزرع جميلا ولو في غير موضعه .... فلا يضيع جميلا أينما زرعا .. فما أجمل العطاء... فقد تجد جزاءه في الدنيا أو يكون لك ذخرا في الآخرة

أحمد مناع
.
.

تاريخ التسجيل : 15/02/2011
المساهمات : 810
النقاط : 1479
التقيم : 69
الدولة : مصر
الجنس : ذكر

http://egy-tech.forumegypt.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى