文件操作问题！！

z794733453

功能 写日志(日志内容)
    var 文件句柄 = 0
    文件句柄 = 文件打开("E:\\写日志.txt")
    如果(文件句柄 == 0)
        文件句柄 = 文件创建("E:\\写日志.txt")
        如果(文件句柄 == 0)
            消息框("创建失败!")
            返回 假
        结束
    结束

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


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

baby杰杰

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

功能 写日志(日志内容)

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

        结束
    结束

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


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

结束

joejiang

1. var ret //处理返回值变量
   
2. var AppPath //得到程序运行所在路径变量
   
3. var Sys_Str //要写入的文件名
   
4. 
   
5. function WriteLog(filename,contents)
   
6. //此种方法是直接写入日志不用再创建
   
7. var ok=filelog(contents,AppPath&"TestLog.txt")
   
8. if(!ok)
   
9. messagebox("日志写入失败")
   
10. end
    
11. 
    
12. //此种方法是先打开文件后再直接写入日志需要先创建.
    
13. var hd=fileopen(filename) //打开文件
    
14. if(hd)
    
15. ret=filewriteend(hd,contents) //文件尾部写入一 行
    
16. messagebox("写入成功!")
    
17. fileclose(hd) //关闭文件
    
18. else
    
19. messagebox("文件写入失败,请检查一下系统")
    
20. end
    
21. end
    
22. 
    
23. //创建日志文件 此方法为可先创建需要的文件 .
    
24. function createfile(filename)
    
25. ret=fileexist(filename)
    
26. if(!ret)
    
27. ret=filecreate(filename)
    
28. if(ret<=0)
    
29. messagebox("无法创建文件,请检查系统设置")
    
30. exit()
    
31. else
    
32. fileclose(ret)
    
33. end
    
34. end
    
35. end
    
36. 
    
37. //点击写入测试
    
38. function start_click()
    
39. var contens_str
    
40. contens_str=timenow()&"--------"&editgettext("edit0")&"\r\n" //组合当前编辑框内容带时间生成日志
    
41. WriteLog(Sys_Str,contens_str) //调用写日志文件 带参数,参数1:Sys_Str 日志文件名 参数2:contens_str 日志内容
    
42. end
    
43. 
    
44. //退出
    
45. function exit_click()
    
46. exit()
    
47. end
    
48. 
    
49. //程序初始化
    
50. function WriteLogToFile_init()
    
51. AppPath=sysgetcurrentpath() //得到程序所在路径
    
52. Sys_Str=AppPath&"SystemLog.txt" //程序日志文件名带路径
    
53. createfile(Sys_Str) //调用写文件函数
    
54. end
    
55. 
    
56. 
    

复制代码

程序代码，下面是程序源文件。
WriteLogToFile.rar (1.92 KB, 下载次数: 460)

2015-5-9 12:02 上传

点击文件名下载附件

以下为运行结果，第一个方本窗口为文法二的日志文件 ，第二个方本窗口为方法一的日志文件。