增加保存指定的日志信息到文件里,以便作者调试检查

我爱阿牛

希望能增加一个将脚本运行的日志信息保存到指定的文件里,并且显示记录的行数,以下是我自己用的代码,不过记录行数我无能力解决,如果可能的话顺便一起搞定
.版本 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)

我爱阿牛

御风软件 发表于 2013-12-10 22:11
不采纳该建议，你的这个代码，写的太那个了，呵呵，其实这个就是个写出文本的功能
这个功能只在调试的时候 ...

代码是写得不好,抄来的没有改.主要就是看看能不能增加这个功能,我写按键精灵有这个功能,脚本发给别人的时候出错了,可以根据日志找问题,初次接触易语言不清楚如果把脚本给别人用了,出了问题,别人都是怎么解决的,所以才有此贴

御风软件

不采纳该建议，你的这个代码，写的太那个了，呵呵，其实这个就是个写出文本的功能
这个功能只在调试的时候有用，自己写个子程序也就是几行代码，而且更加灵活
还有，你的文件都已经关闭了，文件号已经无效了，返回文件号干嘛。。。。
关于取时间的那部分，精易模块有这个命令   时间_到文本 ()