TC官方合作论坛

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

作者: 天生的叛逆者 时间: 2014-7-18 08:18
标题: 那位好师兄帮忙看看我写的删除一行错误，帮忙修改一下.....
空间删除文件指定行
//默认空间

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

变量结果

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

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

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

功能结束

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

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

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

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

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

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

遍历结束

文件.关闭(文件句柄)

返回数学.绝对值(ret)

功能结束

作者: milai5201 时间: 2014-7-18 11:14
文本=文件.对话框(1,"txt files(*.txt)|*.txt||")
文本数据=文件.读文件(文本)
如果(文本数据=="")
返回空
如果结束
文本句柄=文件.打开(文本)
第一行=文件.读一行(文本句柄)&"\r\n"
修改数据=字符串.修剪(文本数据,第一行)
文件.关闭(文本句柄)

文本句柄=文件.打开(文本,"清空文件|读写|文件要存在")
文件.写入(文本句柄,修改数据)
文件.关闭(文本句柄)

删除一行

删除多行自己扩展吧

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