TC官方合作论坛

标题: 求写!! [打印本页]

作者: z794733453    时间: 2015-5-16 22:23
标题: 求写!!
创建txt文件并写入内容,然后删除指定行号。
我试了不行,调试可以,但是打开文件却不行!

作者: 这论坛不错    时间: 2015-5-16 22:48
你把你的代码发上来看看
作者: z794733453    时间: 2015-5-16 22:49
这论坛不错 发表于 2015-5-16 22:48
你把你的代码发上来看看

被我改得不成样了!
作者: 这论坛不错    时间: 2015-5-16 22:53
z794733453 发表于 2015-5-16 22:49
被我改得不成样了!

那你重新写了发上来
作者: 二叔.    时间: 2015-5-17 00:51
本帖最后由 二叔. 于 2015-5-17 01:03 编辑
  1. 功能 开始_点击()
  2.    
  3.     文件创建("d:\\1.txt","rw") //创建文件
  4.     变量 文件句柄 = 文件打开("d:\\1.txt","rw")   //先打开文件在写入
  5.     如果(文件句柄>0)
  6.         文件写入一行字符(文件句柄,"测试写文本")  //写入一行文字
  7.        //----------        文件写入一行字符(文件句柄,"00000000"&"\r\n"&"111111111\n"&"\r\n"&"2222222222")--------------//这样能一条命令写多行,或者也可以一个命令写一行
  8.     结束
  9.     文件关闭(文件句柄)  //写完把文件关闭
  10.    
  11.     文件删指定行("d:\\1.txt",0) //删除第一行文字
  12.    
  13. 结束
复制代码

作者: baby杰杰    时间: 2015-5-17 08:43
代码肯定有问题,参照F1代码就可以完成
作者: z794733453    时间: 2015-5-17 09:45
这论坛不错 发表于 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")
        消息框("删除成功!")
    否则
        消息框("没有")
    结束
   
结束
作者: z794733453    时间: 2015-5-17 09:48
这论坛不错 发表于 2015-5-16 22:53
那你重新写了发上来

我设置了三个按钮   按钮2是删除文件的,按钮1是修改文件,按钮0是写入
作者: 这论坛不错    时间: 2015-5-17 13:11
z794733453 发表于 2015-5-17 09:45
var 文件句柄 = 0
var 日志 = 数组(1,2,3,4,5,6,7,8,9,10)
功能 写日志(日志内容)

这些代码哪里有问题?
作者: z794733453    时间: 2015-5-17 13:30
这论坛不错 发表于 2015-5-17 13:11
这些代码哪里有问题?

1.我在写入之后出现了1写不进去,但是写第二次就写进了
2.写了之后我修改,但是弹出文件后并没有修改
3.我按删除文件之后,再写入,这个时候才修改了!!?
作者: z794733453    时间: 2015-5-17 13:30
这论坛不错 发表于 2015-5-17 13:11
这些代码哪里有问题?

1.我在写入之后出现了1写不进去,但是写第二次就写进了
2.写了之后我修改,但是弹出文件后并没有修改
3.我按删除文件之后,再写入,这个时候才修改了!!?
作者: 这论坛不错    时间: 2015-5-17 16:09
z794733453 发表于 2015-5-17 13:30
1.我在写入之后出现了1写不进去,但是写第二次就写进了
2.写了之后我修改,但是弹出文件后并没有修改
3. ...

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

首先,这2个api调用之前,文件句柄被关闭了,你得把上面的否则文件关闭(文件句柄)这两行删掉,其次文件设置位置第二个参数传错了,你传的字符串“结束”是什么意思?这里要传整型
作者: z794733453    时间: 2015-5-17 16:47
这论坛不错 发表于 2015-5-17 16:09
文件设置位置(文件句柄,"结束")
文件写入一行字符(文件句柄,日志内容)

第二个是照着教程打的啊,游标始终指向结尾
作者: 这论坛不错    时间: 2015-5-17 16:54
z794733453 发表于 2015-5-17 16:47
第二个是照着教程打的啊,游标始终指向结尾

嗯,执行这2行前先让文件句柄开着,完了后再关
作者: z794733453    时间: 2015-5-17 21:20
这论坛不错 发表于 2015-5-17 16:54
嗯,执行这2行前先让文件句柄开着,完了后再关

还是不行额!!




欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/) Powered by Discuz! X3.1