.NET写入文件操作

2018-01-16  22:44:35

---

许多程序需要记录运行日志，这就需要将程序运行记录写入本机，一般是.txt 文本或.csv 文件。具体操作如下：

一、C#

  //加入外部输入输出的命名空间 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 '外部输出的命名空间 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

三、效果如下：