أنت غير متصل حاليًا، وفي انتظار الإنترنت الخاص بك ليقوم بإعادة الاتصال

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

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

اضغط هنا لرابط المقالة باللغة الانجليزية315828
للحصول على إصدار 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 لفتح الملف تلقائياً. أسلوب ريدلاين قراءة كل سطر من النص وزيادة مؤشر الملف إلى السطر التالي أثناء القراءة. عندما يصل أسلوب ريدلاين إلى نهاية الملف، يتم إرجاع أي شيء.
  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=5default=multi(0)disk(0)rdisk(0)partition(1)\WINNT[operating systems]multi(0)disk(0)rdisk(0)partition(1)\WINNT="Windows 2000 Professional" /fastdetectC:\ = "Windows 98"						

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

يستخدم التعليمة البرمجية التالية الفئة StreamWriter فتح، الكتابة وأغلق الملف النصي. مماثلة ل StreamReader، يمكنك تمرير اسم مسار ملف نصي إلى منشئ StreamWriter لفتح الملف تلقائياً. كتابة الأسلوب الإشارة خط كامل النص إلى ملف نصي.
  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 WorldFrom the StreamWriter class						

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

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

المعلمة الأولى هو مسار الملف واسم الملف الملف. تعين المعلمة الثانية True، يتم فتح الملف في حالة الإلحاق. إذا قمت بتحديد تكون محتويات الملف خطأ للمعلمة الثانية، الكتابة في كل مرة يتم تشغيل التعليمات البرمجية. تعين المعلمة الثالث Unicode حيث StreamWriter على ترميز الملف في Unicode. يمكنك أيضا تحديد ما يلي أساليب الترميز للمعلمة الثالث:
  • ASCII
  • بيجينديانونيكودي
  • UTF7
  • UTF8
أسلوب الكتابة تشبه للأسلوب الإشارة عدا الكتابة تلقائياً تضمين أحرف إرجاع/تغذية الأسطر (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.IOModule 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 SubEnd Module'Write a Text File: Version 1Imports System.IOModule 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 SubEnd Module'Write a Text File: Version 2Imports System.IOImports System.TextModule 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 SubEnd Module				

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

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

تحذير: تمت ترجمة هذه المقالة تلقائيًا

خصائص

رقم الموضوع: 315828 - آخر مراجعة: 06/07/2012 07:24:00 - المراجعة: 3.0

Microsoft Visual Basic 2005, Microsoft Visual Basic .NET 2003 Standard Edition, Microsoft Visual Basic .NET 2002 Standard Edition

  • kbvs2005swept kbvs2005applies kbhowtomaster kbmt KB315828 KbMtar
تعليقات
/html>amTracker.init(); guage(language);" class="ng-binding" id="language-es-py">Paraguay - Español
Venezuela - Español
id=1&t=">4050&did=1&t=">id=1&t="> var varCustomerTracking = 1; var Route = "76500"; var Ctrl = ""; document.write("