我写的删除一行有错误。那位好师兄帮忙修改一下，

天生的叛逆者 · 发表于 2014-7-18 08:21:00

马上加入TC

您需要登录才可以下载或查看，没有帐号？立即注册

x

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

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

变量结果

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

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

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

功能结束

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

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

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

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

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

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

遍历结束

文件.关闭(文件句柄)

返回数学.绝对值(ret)

功能结束

88979825 · 发表于 2014-7-18 09:53:44

{:soso__51be3e80bf36fd0f-84cb9798c2b54967-77e6ece4c85cd11f2e063e57d9416d45.jpg_1:}

飞翔tc · 发表于 2014-7-18 11:17:02

试试看这样行不行，在遍历语句中的“ ret=文件.写一行(文件句柄,数组集)”，改成“ ret=文件.写一行(文件句柄,数组集[i])”。

jrflsh · 发表于 2014-7-18 13:01:27

楼上正解数组集是一个数组，不能像你那样写

天生的叛逆者 · 发表于 2014-7-19 09:23:47

谢谢指教

帐号		自动登录	找回密码
密码			立即注册

[讨论] 我写的删除一行有错误。那位好师兄帮忙修改一下，

马上加入TC

站长推荐 /2