函数问题！？

z794733453

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

看你要做什么。有点乱，没看明白