TC官方合作论坛

标题: 文件操作问题！！ [打印本页]

作者: z794733453 时间: 2015-5-9 11:00
标题: 文件操作问题！！
功能写日志(日志内容)
var 文件句柄 = 0
文件句柄 = 文件打开("E:\\写日志.txt")
如果(文件句柄 == 0)
      文件句柄 = 文件创建("E:\\写日志.txt")
      如果(文件句柄 == 0)
         消息框("创建失败!")
         返回假
      结束
结束

日志内容 = 当前时间() & ":" & 日志内容
文件设置位置(文件句柄,3)
文件写入一行字符(文件句柄,日志内容)
文件关闭(文件句柄)
结束

功能按钮0_点击()
//这里添加你要执行的代码
写日志("呵呵!")
命令("E:\\写日志.txt",真)
结束
为什么我照着教程打都不行的，没反应！！

作者: baby杰杰 时间: 2015-5-9 11:33
本帖最后由 baby杰杰于 2015-5-9 11:53 编辑

代码应该是获取当前时间把！

功能写日志(日志内容)

var 文件句柄 = 0
文件句柄 = 文件打开("d:\\写日志.txt")
如果(文件句柄)
      文件句柄 = 文件创建("d:\\写日志.txt")
      如果(文件句柄==-1)
         消息框("创建失败!")

      结束
结束

文件设置位置(文件句柄,3)
文件写入字符(文件句柄,当前时间()&":"&"1111")
文件关闭(文件句柄)
命令("d:\\写日志.txt",真)
结束

功能按钮0_点击()
//这里添加你要执行的代码
线程开启("写日志","")

结束

作者: joejiang 时间: 2015-5-9 12:04

var ret //处理返回值变量
var AppPath //得到程序运行所在路径变量
var Sys_Str //要写入的文件名
function WriteLog(filename,contents)
//此种方法是直接写入日志不用再创建
var ok=filelog(contents,AppPath&"TestLog.txt")
if(!ok)
messagebox("日志写入失败")
end
//此种方法是先打开文件后再直接写入日志需要先创建.
var hd=fileopen(filename) //打开文件
if(hd)
ret=filewriteend(hd,contents) //文件尾部写入一行
messagebox("写入成功!")
fileclose(hd) //关闭文件
else
messagebox("文件写入失败,请检查一下系统")
end
end
//创建日志文件此方法为可先创建需要的文件 .
function createfile(filename)
ret=fileexist(filename)
if(!ret)
ret=filecreate(filename)
if(ret<=0)
messagebox("无法创建文件,请检查系统设置")
exit()
else
fileclose(ret)
end
end
end
//点击写入测试
function start_click()
var contens_str
contens_str=timenow()&"--------"&editgettext("edit0")&"\r\n" //组合当前编辑框内容带时间生成日志
WriteLog(Sys_Str,contens_str) //调用写日志文件带参数,参数1:Sys_Str 日志文件名参数2:contens_str 日志内容
end
//退出
function exit_click()
exit()
end
//程序初始化
function WriteLogToFile_init()
AppPath=sysgetcurrentpath() //得到程序所在路径
Sys_Str=AppPath&"SystemLog.txt" //程序日志文件名带路径
createfile(Sys_Str) //调用写文件函数
end

复制代码

程序代码，下面是程序源文件。

WriteLogToFile.rar (1.92 KB, 下载次数: 460)
以下为运行结果，第一个方本窗口为文法二的日志文件，第二个方本窗口为方法一的日志文件。

欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/)

Powered by Discuz! X3.1