.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

三、效果如下：