按日期写文件日志

zvbiao

想写一个按日期写日志的功能，麻烦贴一下源码来参考一下，非常感谢

辽阳小哲

这是我正在用的写日志，写的不好，但是你要的功能都可以实现。

  

子程序名	返回值类型	公开	备 注
写日志
参数名	类 型	参考	可空	数组	备 注
日志内容	文本型				可空

变量名	类 型	静态	数组	备 注
文件位置	文本型
t	精易_时间

' // 日志字段名
' // 时间    日志内容    交易编号    交易状态码    接收方报文ID    接收报文时间    响应报文时间    错误信息    交易输出报文
文件位置 ＝ 取运行目录 () ＋ “\日志\” ＋ 时间_到文本 (, 3, 1, ) ＋ “.LOG”
如果真 (文件是否存在 (文件位置) ＝ 假)
写到文件 (文件位置, {  })
全_文件号 ＝ 打开文件 (文件位置, , )

如果真 (全_文件号 ＝ 0)
全_文件号 ＝ 打开文件 (文件位置, , )
移到文件尾 (全_文件号)
GetLocalTime (t)
写文本行 (全_文件号, 时间_到文本 (, 1, 3, ) ＋ “.” ＋ 到文本 (t.毫) ＋ 字符 ( #Tab键 ) ＋ 日志内容)
' 写文本行 (全_文件号, qtxt.取文本 (, ))
处理事件 ()

.版本 2<br /> <br /> .子程序 写日志<br /> .参数 日志内容, 文本型, 可空, 可空<br /> .局部变量 文件位置, 文本型<br /> .局部变量 t, 精易_时间<br /> <br /> ' // 日志字段名<br /> ' // 时间    日志内容    交易编号    交易状态码    接收方报文ID    接收报文时间    响应报文时间    错误信息    交易输出报文<br /> 文件位置 ＝ 取运行目录 () ＋ “\日志\” ＋ 时间_到文本 (, 3, 1, ) ＋ “.LOG”<br /> .如果真 (文件是否存在 (文件位置) ＝ 假)<br />     写到文件 (文件位置, {  })<br />     全_文件号 ＝ 打开文件 (文件位置, , )<br /> .如果真结束<br /> <br /> .如果真 (全_文件号 ＝ 0)<br />     全_文件号 ＝ 打开文件 (文件位置, , )<br />     移到文件尾 (全_文件号)<br /> .如果真结束<br /> GetLocalTime (t)<br /> 写文本行 (全_文件号, 时间_到文本 (, 1, 3, ) ＋ “.” ＋ 到文本 (t.毫) ＋ 字符 (#Tab键) ＋ 日志内容)<br /> ' 写文本行 (全_文件号, qtxt.取文本 (, ))<br /> 处理事件 ()

微信的木头人

5个精币貌似比Rmb还值钱