كيفية القيام بما يلي: افتح ثم إلحاق ملف سجل

مقالة
11/01/2010

تقوم StreamWriter وStreamReader بكتابة أحرف في وقراءة أحرف من التدفقات. يفتح مثال التعليمات البرمجية التالي الملف log.txt للإدخال، أو إنشاء الملف إذا لم يكن موجود مسبقاً، ويتم إلحاق المعلومات إلى نهاية الملف. ثم يتم كتابة محتويات الملف في الصورة القياسية للإخراج من أجل العرض. وكبديل عن هذا المثال، يمكن تخزين المعلومات كسلسلة واحدة أو صفيف من السلاسل، ويمكن استخدام الأسلوب WriteAllText أو WriteAllLines لتحقيق نفس الوظيفة.

ملاحظة
قد يختار المستخدمون Visual أساسى لاستخدام الوظائف و الخصائص التي يوفرها Logفئة أو FileSystemالفئة لإنشاء أو الكتابة إلى يسجل الملفات.

مثال

Option Explicit On 
Option Strict On
Imports System
Imports System.IO
Imports Microsoft.VisualBasic
Class DirAppend
    Public Shared Sub Main()
        Using w As StreamWriter = File.AppendText("log.txt")
            Log("Test1", w)
            Log("Test2", w)
            ' Close the writer and underlying file.
            w.Close()
        End Using
        ' Open and read the file.
        Using r As StreamReader = File.OpenText("log.txt")
            DumpLog(r)
        End Using
    End Sub
    Public Shared Sub Log(ByVal logMessage As String, ByVal w As TextWriter)
        w.Write(ControlChars.CrLf & "Log Entry : ")
        w.WriteLine("{0} {1}", DateTime.Now.ToLongTimeString(), DateTime.Now.ToLongDateString())
        w.WriteLine("  :")
        w.WriteLine("  :{0}", logMessage)
        w.WriteLine("-------------------------------")
        ' Update the underlying file.
        w.Flush()
    End Sub
    Public Shared Sub DumpLog(ByVal r As StreamReader)
        ' While not at the end of the file, read and write lines.
        Dim line As String
        line = r.ReadLine()
        While Not line Is Nothing
            Console.WriteLine(line)
            line = r.ReadLine()
        End While
        r.Close()
    End Sub
End Class

using System;
using System.IO;
class DirAppend
{
    public static void Main(String[] args)
    {
        using (StreamWriter w = File.AppendText("log.txt"))
        {
            Log ("Test1", w);
            Log ("Test2", w);
            // Close the writer and underlying file.
            w.Close();
        }
        // Open and read the file.
        using (StreamReader r = File.OpenText("log.txt"))
        {
            DumpLog (r);
        }
    }
    public static void Log (String logMessage, TextWriter w)
    {
        w.Write("\r\nLog Entry : ");
        w.WriteLine("{0} {1}", DateTime.Now.ToLongTimeString(),
            DateTime.Now.ToLongDateString());
        w.WriteLine("  :");
        w.WriteLine("  :{0}", logMessage);
        w.WriteLine ("-------------------------------");
        // Update the underlying file.
        w.Flush(); 
    }
    public static void DumpLog (StreamReader r)
    {
        // While not at the end of the file, read and write lines.
        String line;
        while ((line=r.ReadLine())!=null)
        {
            Console.WriteLine(line);
        }
        r.Close();
    }
}

راجع أيضًا:

مشاركة عبر

كيفية القيام بما يلي: افتح ثم إلحاق ملف سجل

مثال

راجع أيضًا:

المهام

المرجع

المبادئ

الموارد الإضافية