求写！！

z794733453

创建txt文件并写入内容，然后删除指定行号。
我试了不行，调试可以，但是打开文件却不行！

z794733453

这论坛不错 发表于 2015-5-17 16:54
嗯，执行这2行前先让文件句柄开着，完了后再关

还是不行额！！

这论坛不错

z794733453 发表于 2015-5-17 16:47
第二个是照着教程打的啊，游标始终指向结尾

嗯，执行这2行前先让文件句柄开着，完了后再关

z794733453

这论坛不错 发表于 2015-5-17 16:09
文件设置位置(文件句柄,"结束")
文件写入一行字符(文件句柄,日志内容)

第二个是照着教程打的啊，游标始终指向结尾

这论坛不错

z794733453 发表于 2015-5-17 13:30
1.我在写入之后出现了1写不进去，但是写第二次就写进了
2.写了之后我修改，但是弹出文件后并没有修改
3. ...

文件设置位置(文件句柄,"结束")
文件写入一行字符(文件句柄,日志内容)

首先，这2个api调用之前，文件句柄被关闭了，你得把上面的否则文件关闭（文件句柄）这两行删掉，其次文件设置位置第二个参数传错了，你传的字符串“结束”是什么意思？这里要传整型

z794733453

这论坛不错 发表于 2015-5-17 13:11
这些代码哪里有问题？

1.我在写入之后出现了1写不进去，但是写第二次就写进了
2.写了之后我修改，但是弹出文件后并没有修改
3.我按删除文件之后，再写入，这个时候才修改了！！？

z794733453

这论坛不错 发表于 2015-5-17 13:11
这些代码哪里有问题？

1.我在写入之后出现了1写不进去，但是写第二次就写进了
2.写了之后我修改，但是弹出文件后并没有修改
3.我按删除文件之后，再写入，这个时候才修改了！！？

这论坛不错

z794733453 发表于 2015-5-17 09:45
var 文件句柄 = 0
var 日志 = 数组(1,2,3,4,5,6,7,8,9,10)
功能 写日志(日志内容)

这些代码哪里有问题？

z794733453

这论坛不错 发表于 2015-5-16 22:53
那你重新写了发上来

我设置了三个按钮   按钮2是删除文件的，按钮1是修改文件，按钮0是写入

z794733453

这论坛不错 发表于 2015-5-16 22:53
那你重新写了发上来

var 文件句柄 = 0
var 日志 = 数组(1,2,3,4,5,6,7,8,9,10)
功能 写日志(日志内容)
    文件句柄 = 文件打开("e:\\写日志.txt")
    如果(文件句柄==-1)
        文件句柄 = 文件创建("e:\\写日志.txt")
        如果(文件句柄==-1)
            消息框("创建失败!")
            返回 假
        否则
            文件关闭(文件句柄)
        结束
    结束
   
    文件设置位置(文件句柄,"结束")
    文件写入一行字符(文件句柄,日志内容)
    文件关闭(文件句柄)
结束


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

功能 修改文件(文件路径,类型,行号,内容)
   
   
    文件句柄 = 文件打开(文件路径)
    如果(文件句柄 == -1)
        返回 "打开文件失败"
    结束
    如果(类型 == "删除")
        文件删指定行("e:\\写日志.txt",行号-1)
        消息框("删除成功")
    否则如果(类型 == "修改")
        日志[行号-1] = 内容
        消息框("修改成功")
    否则
        消息框("没有此类型")
        文件关闭(文件句柄)
    结束
结束
功能 按钮1_点击()
    //这里添加你要执行的代码
    修改文件("e:\\写日志.txt","修改",2,"爱的")  
    等待(100)
    命令("e:\\写日志.txt",真)
   
结束


功能 按钮2_点击()
    //这里添加你要执行的代码
    如果(文件是否存在("e:\\写日志.txt"))
        文件删除("e:\\写日志.txt")
        消息框("删除成功!")
    否则
        消息框("没有")
    结束
   
结束