TC官方合作论坛

标题: 函数问题！？ [打印本页]

作者: z794733453 时间: 2015-5-9 22:57
标题: 函数问题！？
var 日志分 = 数组("","","","","","","","","","")
功能写日志(日志内容)
var 文件句柄 = 0
文件句柄 = 文件打开("e:\\写日志.txt")
如果(文件句柄==-1)
      文件句柄 = 文件创建("e:\\写日志.txt")
      如果(文件句柄==-1)
         消息框("创建失败!")
         返回假
      结束
结束
日志内容 = 当前时间()&":"& 日志内容
文件设置位置(文件句柄,"结束")
文件写入一行字符(文件句柄,日志内容)
文件关闭(文件句柄)
返回日志内容
结束

功能按钮0_点击()
//这里添加你要执行的代码
遍历(变量 i = 0; i < 10; i++)
   日志分 = 写日志("呵呵!")
结束
命令("e:\\写日志.txt",真)

结束

功能修改文件(文件路径,类型,行号,内容="")
var 长度 = 0,文件句柄 = 0,大小 = 0
长度 = 文件长度(文件路径)
文件句柄 = 文件打开(文件路径)
如果(文件句柄 == -1)
      返回 "打开文件失败"
结束
大小 = 数组大小(日志分)
如果(大小<行号)
      返回 "超过最大行号"
结束

如果(类型 == "删除")
      数组指定位置删除(日志分,行号)
      消息框("删除成功")
否则如果(类型 == "修改")
      日志分[行号] = 内容
      消息框("修改成功")
否则
      消息框("没有此类型")
结束
文件关闭(文件句柄)
结束
功能按钮1_点击()
//这里添加你要执行的代码
修改文件("e:\\写日志.txt","删除",2)
修改文件("e:\\写日志.txt","修改",2,"感")
命令("e:\\写日志.txt",真)
      消息框("准备删除")
文件删除("e:\\写日志.txt")
结束
求大神解释我的修改文件的函数为什么删除不了也修改不了的？？调试却显示可以，文件打开却不行？

作者: fuxiaojun185 时间: 2015-5-17 11:51
看你要做什么。有点乱，没看明白

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