|
发表于 2013-12-10 20:17:48
|
显示全部楼层
福建省福州市
所使用ET助手版本:1.15
所使用易语言版本:5.11
所使用的操作系统:win7 64
你的联系QQ:82850696
BUG描述或建议:希望能增加一个记录运行日志到文件里,并且显示记录的行数,以下是我自己用户的代码,不过记录行数我无能力解决,如果可能的话顺便一起搞写
.版本 2
.支持库 spec
.子程序 记录日志, 整数型, 公开, 默认路径 “C:\脚本日志\”
.参数 nStr, 文本型
.参数 FilePath, 文本型, 可空
.局部变量 FileNumber, 整数型
.局部变量 SysTime, 文本型
.局部变量 Folder, 文本型
调试输出 (nStr)
.如果真 (目录_是否存在 (“C:\脚本日志\”) = 假)
目录_创建 (“C:\脚本日志\”)
.如果真结束
SysTime = 到文本 (取文本右边 (“00” + 到文本 (取小时 (取现行时间 ())), 2) + “:” + 取文本右边 (“00” + 到文本 (取分钟 (取现行时间 ())), 2) + “:” + 取文本右边 (“00” + 到文本 (取秒 (取现行时间 ())), 2))
Folder = 到文本 (到文本 (取年份 (取现行时间 ()))) + “年” + 到文本 (取月份 (取现行时间 ())) + “月” + 到文本 (取日 (取现行时间 ())) + “日”
nStr = Folder + SysTime + “ ” + nStr
.如果 (FilePath = “”)
FilePath = “C:\脚本日志\” + Folder + 子文本替换 (SysTime, “:”, “_”, , , 真) + “.txt”
.否则
FilePath = FilePath + Folder + 子文本替换 (SysTime, “:”, “_”, , , 真) + “.txt”
.如果结束
.如果真 (文件是否存在 (FilePath))
删除文件 (FilePath)
.如果真结束
FileNumber = 打开文件 (FilePath, #改写, )
移到文件尾 (FileNumber)
写出文本 (FileNumber, nStr + #换行符)
关闭文件 (FileNumber)
返回 (FileNumber)
如果是BUG,是否为偶尔触发:
---------------------------------
|
|