كيفية القراءة من والكتابة إلى ملف نصي باستخدام Visual Basic 2005 أو Visual Basic.NET

للحصول على إصدار Microsoft Visual Basic 6.0 من هذه المقالة، راجع 183638 .

ملخص

توضح هذه المقالة كيفية القراءة من والكتابة إلى ملف نصي باستخدام Microsoft Visual Basic 2005 أو Microsoft Visual Basic.NET.

متطلبات

توضح القائمة التالية الأجهزة الموصى بها برامج البنية الأساسية للشبكة وحزم الخدمات التي تحتاجها:
  • 2005 Visual Basic أو Visual Basic.NET
تفترض هذه المقالة أنك معتاد على المواضيع التالية:
  • 2005 Visual Basic أو Visual Basic.NET

قراءة وكتابة الملفات النصية

يوضح القسم "قراءة ملف نصي" كيفية استخدام الكائن StreamReader لقراءة ملف نصي. المقطع "كتابة ملف نصي (على سبيل المثال 1)" والقسم "كتابة ملف نصي (على سبيل المثال 2)" لشرح كيفية استخدام فئة StreamWriter لكتابة نص إلى ملف.

قراءة ملف نصي

تستخدم التعليمة البرمجية التالية فئة StreamReader فتح للقراءة وأغلق الملف النصي. يمكنك تمرير اسم المسار لملف النص المنشئ StreamReader لفتح الملف تلقائياً. الأسلوب ReadLine بقراءة كل سطر من النص وزيادة مؤشر الملف إلى السطر التالي نصه. عندما يصل الأسلوب ReadLine إلى نهاية الملف، تقوم بإرجاع أي شيء.
  1. بدء تشغيل Microsoft Visual Studio 2005 أو Microsoft Visual Studio. NET.
  2. إنشاء "تطبيق" وحدة تحكم جديد في 2005 Visual Basic أو Visual Basic.NET.
  3. أضف التعليمات البرمجية التالية إلى أعلى الملف Module1.vb:
    Imports System.IO
  4. إضافة التعليمات البرمجية التالية إلى إجراء Sub Main .
    Dim objStreamReader As StreamReader    Dim strLine As String

    'Pass the file path and the file name to the StreamReader constructor.
    objStreamReader = New StreamReader("C:\Boot.ini")

    'Read the first line of text.
    strLine = objStreamReader.ReadLine

    'Continue to read until you reach the end of the file.
    Do While Not strLine Is Nothing

    'Write the line to the Console window.
    Console.WriteLine(strLine)

    'Read the next line.
    strLine = objStreamReader.ReadLine
    Loop

    'Close the file.
    objStreamReader.Close()

    Console.ReadLine()

  5. في القائمة " تصحيح "، انقر فوق ابدأ لترجمة وتشغيل التطبيق. اضغط ENTER لإغلاق إطار وحدة التحكم.

    يعرض إطار وحدة التحكم الملف Boot.ini. لاحظ قد تختلف محتويات الملف Boot.ini من التكوين للتكوين. التالي نموذج لملف Boot.ini:
    [boot loader]
    timeout=5
    default=multi(0)disk(0)rdisk(0)partition(1)\WINNT

    [operating systems]
    multi(0)disk(0)rdisk(0)partition(1)\WINNT="Windows 2000 Professional" /fastdetect
    C:\ = "Windows 98"

كتابة ملف نصي (على سبيل المثال 1)

تستخدم التعليمة البرمجية التالية فئة StreamWriter لفتح والكتابة إلى وإغلاق الملف النصي. ويماثل StreamReader، يمكنك تمرير اسم مسار الملف النصي منشئ StreamWriter لفتح الملف تلقائياً. يكتب الأسلوب WriteLine إكمال سطر من النص إلى ملف نصي.
  1. بدء تشغيل Visual Studio 2005 أو Visual Studio.NET.
  2. إنشاء "تطبيق" وحدة تحكم جديد في 2005 Visual Basic أو Visual Basic.NET.
  3. أضف التعليمات البرمجية التالية إلى أعلى Module1.vb:
    Imports System.IO
  4. أضف التعليمات البرمجية التالية إلى إجراء Sub Main :
    Dim objStreamWriter As StreamWriter    
    'Pass the file path and the file name to the StreamWriter constructor.
    objStreamWriter = New StreamWriter("C:\Testfile.txt")

    'Write a line of text.
    objStreamWriter.WriteLine("Hello World")

    'Write a second line of text.
    objStreamWriter.WriteLine("From the StreamWriter class")

    'Close the file.
    objStreamWriter.Close()

  5. في القائمة " تصحيح "، انقر فوق ابدأ لترجمة وتشغيل التطبيق.

    هذه التعليمات البرمجية بإنشاء ملف يسمى Test.txt على محرك الأقراص C. Test.txt مفتوحة في محرر نص مثل المفكرة. يحتوي Test.txt على سطرين من النص:
    Hello World
    From the StreamWriter class

كتابة ملف نصي (على سبيل المثال 2)

تستخدم التعليمة البرمجية التالية فئة StreamWriter لفتح والكتابة إلى وإغلاق الملف النصي. خلافا للمثال السابق، التعليمات البرمجية هذا بتمرير معلمتين من معلمات إضافية المنشئ.

المعلمة الأولى هي مسار الملف واسم الملف للملف. تعين المعلمة الثانية True، فتح الملف في حالة الإلحاق. إذا قمت بتحديد
خطأ للمعلمة الثانية، محتويات الملف يتم الكتابة فوق كل مرة يتم فيها تشغيل التعليمات البرمجية. تعين المعلمة الثالثة Unicode حيث أن StreamWriter ترميز الملف في Unicode. يمكنك أيضا تحديد أساليب الترميز التالية للمعلمة الثالثة:
  • ASCII
  • بيجينديانونيكودي
  • UTF7
  • UTF8
يشبه أسلوب كتابة الأسلوب WriteLine إلا أن الكتابة لا تضمين تلقائياً حرف إرجاع/تغذية الأسطر تركيبة أحرف (CR/LF). هذا مفيد عندما تريد كتابة حرف واحد في مرة الواحدة.
  1. بدء تشغيل Visual Studio 2005 أو Visual Studio.NET.
  2. إنشاء "تطبيق" وحدة تحكم جديد في 2005 Visual Basic أو Visual Basic.NET.
  3. أضف التعليمات البرمجية التالية إلى أعلى Module1.vb:
    Imports System.IOImports System.Text

  4. أضف التعليمات البرمجية التالية إلى إجراء Sub Main ضمن التعليمات البرمجية الموجودة:
    Dim objStreamWriter As StreamWriter   Dim x As Long

    'Open the file.
    objStreamWriter = New StreamWriter("C:\Test2.txt", True, _
    Encoding.Unicode)

    'Write out the numbers 1 through 10 on the same line.
    For x = 1 To 10
    objStreamWriter.Write(x)
    Next x

    'Close the file.
    objStreamWriter.Close()

  5. في القائمة " تصحيح "، انقر فوق ابدأ لترجمة وتشغيل التطبيق.

    هذه التعليمات البرمجية بإنشاء ملف يسمى Test2.txt على محرك الأقراص C. Test2.txt مفتوحة في محرر نص مثل المفكرة. Test2.txt يحتوي على سطر واحد من النص:
    12345678910

    ملاحظة: إذا قمت بتشغيل التعليمات البرمجية عدة مرات، ويتكرر النص "123456789" على نفس السطر.

إتمام سرد التعليمات البرمجية

'Read a Text FileImports System.IO
Module Module1

Sub Main()
Dim objStreamReader As StreamReader
Dim strLine As String

'Pass the file path and the file name to the StreamReader constructor.
objStreamReader = New StreamReader("C:\Boot.ini")

'Read the first line of text.
strLine = objStreamReader.ReadLine

'Continue to read until you reach the end of the file.
Do While Not strLine Is Nothing

'Write the line to the Console window.
Console.WriteLine(strLine)

'Read the next line.
strLine = objStreamReader.ReadLine
Loop

'Close the file.
objStreamReader.Close()

Console.ReadLine()
End Sub
End Module

'Write a Text File: Version 1
Imports System.IO
Module Module1

Sub Main()
Dim objStreamWriter As StreamWriter

'Pass the file path and the file name to the StreamWriter constructor.
objStreamWriter = New StreamWriter("C:\Text.txt")

'Write a line of text.
objStreamWriter.WriteLine("Hello World")

'Write a second line of text.
objStreamWriter.WriteLine("From the StreamWriter class")

'Close the file.
objStreamWriter.Close()

End Sub
End Module

'Write a Text File: Version 2
Imports System.IO
Imports System.Text
Module Module1

Sub Main()
Dim objStreamWriter As StreamWriter
Dim x As Long

'Open the file.
objStreamWriter = New StreamWriter("C:\Test2.txt", True, _
Encoding.Unicode)

'Write out the numbers 1 through 10 on the same line.
For x = 1 To 10
objStreamWriter.Write(x)
Next x

'Close the file.
objStreamWriter.Close()
End Sub

End Module

استكشاف الأخطاء وإصلاحها

عندما تقوم بإدخال أو إخراج ملف، يتم تدريب برمجي جيد لالتفاف التعليمات البرمجية داخل كتلة حاول إنهاء المحاولة في حالة حدوث خطأ. تتضمن بعض الأخطاء المحتملة ملف غير موجود، أو ملف قيد الاستخدام بالفعل.

المراجع

لمزيد من المعلومات، قم بزيارة مواقع Microsoft التالية على الويب:
خصائص

رقم الموضوع: 315828 - آخر مراجعة: 09‏/01‏/2017 - المراجعة: 1

تعليقات