Cara: Membuka dan menambahkan ke file log
StreamWriter dan StreamReader menulis karakter ke dan membaca karakter dari aliran. Contoh kode berikut membuka file log.txt untuk input, atau membuatnya jika tidak ada, dan menambahkan informasi log ke akhir file. Contoh kemudian menulis isi file ke output standar untuk ditampilkan.
Sebagai alternatif untuk contoh ini, Anda dapat menyimpan informasi sebagai string tunggal atau array string, dan menggunakan metode File.WriteAllText atau File.WriteAllLines untuk mencapai fungsionalitas yang sama.
Catatan
Pengguna Visual Basic dapat memilih untuk menggunakan metode dan properti yang disediakan oleh kelas Log atau kelas FileSystem untuk membuat atau menulis ke file log.
Contoh
using System;
using System.IO;
class DirAppend
{
public static void Main()
{
using (StreamWriter w = File.AppendText("log.txt"))
{
Log("Test1", w);
Log("Test2", w);
}
using (StreamReader r = File.OpenText("log.txt"))
{
DumpLog(r);
}
}
public static void Log(string logMessage, TextWriter w)
{
w.Write("\r\nLog Entry : ");
w.WriteLine($"{DateTime.Now.ToLongTimeString()} {DateTime.Now.ToLongDateString()}");
w.WriteLine(" :");
w.WriteLine($" :{logMessage}");
w.WriteLine ("-------------------------------");
}
public static void DumpLog(StreamReader r)
{
string line;
while ((line = r.ReadLine()) != null)
{
Console.WriteLine(line);
}
}
}
// The example creates a file named "log.txt" and writes the following lines to it,
// or appends them to the existing "log.txt" file:
// Log Entry : <current long time string> <current long date string>
// :
// :Test1
// -------------------------------
// Log Entry : <current long time string> <current long date string>
// :
// :Test2
// -------------------------------
// It then writes the contents of "log.txt" to the console.
Imports System.IO
Class DirAppend
Public Shared Sub Main()
Using w As StreamWriter = File.AppendText("log.txt")
Log("Test1", w)
Log("Test2", w)
End Using
Using r As StreamReader = File.OpenText("log.txt")
DumpLog(r)
End Using
End Sub
Public Shared Sub Log(logMessage As String, w As TextWriter)
w.Write(vbCrLf + "Log Entry : ")
w.WriteLine($"{DateTime.Now.ToLongTimeString()} {DateTime.Now.ToLongDateString()}")
w.WriteLine(" :")
w.WriteLine($" :{logMessage}")
w.WriteLine("-------------------------------")
End Sub
Public Shared Sub DumpLog(r As StreamReader)
Dim line As String
line = r.ReadLine()
While Not (line Is Nothing)
Console.WriteLine(line)
line = r.ReadLine()
End While
End Sub
End Class
' The example creates a file named "log.txt" and writes the following lines to it,
' or appends them to the existing "log.txt" file:
' Log Entry : <current long time string> <current long date string>
' :
' :Test1
' -------------------------------
' Log Entry : <current long time string> <current long date string>
' :
' :Test2
' -------------------------------
' It then writes the contents of "log.txt" to the console.
Lihat juga
- StreamWriter
- StreamReader
- File.AppendText
- File.OpenText
- StreamReader.ReadLine
- Cara: Menghitung direktori dan file
- Cara: Membaca dan menulis ke file data yang baru dibuat
- Cara: Membaca teks dari file
- Cara: Menulis teks ke file
- Cara: Membaca karakter dari string
- Cara: Menulis karakter ke string
- I/O file dan aliran