TC官方合作论坛

标题: 我写的删除一行有错误。那位好师兄帮忙修改一下， [打印本页]

作者: 天生的叛逆者 时间: 2014-7-18 08:21
标题: 我写的删除一行有错误。那位好师兄帮忙修改一下，

空间删除文件指定行
//默认空间

//开始按钮_点击操作
功能开始_点击()

变量结果

结果=删除文件指定行.开启任务线程("c:\\1.txt",1)

如果(结果)
      调试输出("成功")
否则

      调试输出("失败")
如果结束

功能结束

功能开启任务线程(路径,行数)
变量路径,行数,内容,长度,数组集,新内容,ret,绝对值

内容 = 文件.读文件(路径)
如果(内容 == "")
      返回 0
如果结束
字符串.分割(内容,"\r\n",数组集)

数组空间.大小(数组集,长度)

如果(长度 < 行数)
      返回 0
如果结束

数组空间.删除指定项(数组集,行数-1)
文件句柄=文件.打开(路径)
遍历(i = 0; i< 长度-1; i++)

      ret=文件.写一行(文件句柄,数组集)

遍历结束

文件.关闭(文件句柄)

返回数学.绝对值(ret)

功能结束

作者: 88979825 时间: 2014-7-18 09:53
{:soso__51be3e80bf36fd0f-84cb9798c2b54967-77e6ece4c85cd11f2e063e57d9416d45.jpg_1:}

作者: 飞翔tc 时间: 2014-7-18 11:17
试试看这样行不行，在遍历语句中的“ ret=文件.写一行(文件句柄,数组集)”，改成“ ret=文件.写一行(文件句柄,数组集[i])”。

作者: jrflsh 时间: 2014-7-18 13:01
楼上正解数组集是一个数组，不能像你那样写

作者: 天生的叛逆者 时间: 2014-7-19 09:23
谢谢指教

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