أخوانى الكرام أهلا بكم ....في هذه المقالة، سوف نتعلم كيفية التعامل مع الملفات النصية من خلال 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

و فى النهاية أتمنى أن يكون الدرس مفيد لكم

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

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