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

天生的叛逆者

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

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


    变量 结果


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

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

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


功能结束




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



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


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

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



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

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


    遍历结束

    文件.关闭(文件句柄)

    返回 数学.绝对值(ret)


功能结束

milai5201

    文本=文件.对话框(1,"txt files(*.txt)|*.txt||")
    文本数据=文件.读文件(文本)
    如果(文本数据=="")
        返回 空
    如果结束
    文本句柄=文件.打开(文本)
    第一行=文件.读一行(文本句柄)&"\r\n"
    修改数据=字符串.修剪(文本数据,第一行)
    文件.关闭(文本句柄)
   
    文本句柄=文件.打开(文本,"清空文件|读写|文件要存在")
    文件.写入(文本句柄,修改数据)
    文件.关闭(文本句柄)

删除一行

删除多行 自己扩展吧