直接贴类的代码了
.版本 2
.子程序 写日志记录
.参数 写日志_日志文件名, 文本型
.参数 写日志_日志文本, 文本型
.局部变量 文件句柄, 整数型
文件句柄 ＝ 打开文件 (写日志_日志文件名, , )
.如果 (文件句柄 ＝ 0)
写到文件 (写日志_日志文件名, { })
.否则
.如果结束
文件句柄 ＝ 打开文件 (写日志_日志文件名, , )
.如果 (文件句柄 ＞ 0)
插入文本行 (文件句柄, 到文本 (取现行时间 ()) ＋ “》》》” ＋ 写日志_日志文本)
.否则
.如果结束
' 写日志
关闭所有文件 ()