.NET寫入文件操作

2018-01-16  22:44:35

---

      許多程序需要記錄運行日志，這就需要將程序運行記錄寫入本機，一般是.txt 文本或.csv 文件。具體操作如下：

一、C#

 //加入外部輸入輸出的命名空間 2 using System.IO; 

  static void Main(string[] args)
        {
            WriteLog("白日依山盡");
            WriteLog("黃河入海流");
            WriteLog("欲窮千里目");
            WriteLog("更上一層樓");
            Console.ReadKey();
        }
        static void WriteLog(string workinfo)
        {
            //保存運行日志到程序運行文件夾下，並以當前日期命名
            string strpath = Directory.GetCurrentDirectory()+ @"\worklog\" + DateTime.Now.ToString("yyyyMMdd") + ".csv";
            //獲取strpath的文件夾名稱，並判斷不存在是創建文件夾
            if (!Directory.Exists(Path.GetDirectoryName(strpath)))
            {
                Directory.CreateDirectory(Path.GetDirectoryName(strpath));
            }
            //判斷文件不存在時，創建該文件
            if (!File.Exists(strpath))
            {
                File.Create(strpath).Close();//創建完畢后，需關閉該IO通道，以使后續讀寫可繼續進行
            }
            //使用數據流寫入StreamWriter，true表示可持續寫入，Encoding.Default前系統設置的默認字符集編碼方式
            StreamWriter sw = new StreamWriter(strpath, true, Encoding.Default);
            sw.WriteLine(DateTime.Now.ToString("yyyy-MM-dd HH:mm:ss " + workinfo));
            //銷毀數據數據流通道
            sw.Dispose();
            //
            Console.WriteLine("寫入成功");
        }

二、VB.NET

  Imports System.IO '外部輸出的命名空間 2 Imports System.Text '文本編碼格式的命名空間 

Sub Main()
        WriteLog("白日依山盡")
        WriteLog("黃河入海流")
        WriteLog("欲窮千里目")
        WriteLog("更上一層樓")
        Console.ReadKey()
    End Sub
    Sub WriteLog(ByVal workinfo As String)
        '保存運行日志到程序運行文件夾下，並以當前日期命名
        Dim strpath As String = Directory.GetCurrentDirectory() & "\worklog\" & Now.ToString("yyyyMMdd") & ".csv"
        '獲取strpath的文件夾名稱，並判斷不存在是創建文件夾
        If (Not Directory.Exists(Path.GetDirectoryName(strpath))) Then
            Directory.CreateDirectory(Path.GetDirectoryName(strpath))
        End If
        '判斷文件不存在時，創建該文件
        If (Not File.Exists(strpath)) Then
            File.Create(strpath).Close() '創建完畢后，需關閉該IO通道，以使后續讀寫可繼續進行
        End If
        '使用數據流寫入StreamWriter，true表示可持續寫入，Encoding.Default前系統設置的默認字符集編碼方式
        Dim sw As StreamWriter = New StreamWriter(strpath, True, Encoding.Default)
        sw.WriteLine(Now.ToString("yyyy-MM--dd HH:mm:ss ") & workinfo)
        '銷毀數據數據流通道
        sw.Dispose()
        Console.WriteLine("寫入成功")
    End Sub

 

三、效果如下：