关于删除文本

大晴风

取运行目录，删除该文件最后一行内容，求个代码

大司命

  

变量名	类 型	静态	数组	备 注
局_文件	字节集
i	整数型

局_文件 ＝ 读入文件 (“测试.txt”)
i ＝ 倒找字节集 (局_文件, { 13, 10 }, )
如果真 (i ≠ -1)
局_文件 ＝ 取字节集左边 (局_文件, i － 1)
写到文件 (“测试1.txt”, 局_文件)

.局部变量 局_文件, 字节集<br /> .局部变量 i, 整数型<br /> 局_文件 ＝ 读入文件 (“测试.txt”)<br /> i ＝ 倒找字节集 (局_文件, { 13, 10 }, )<br /> .如果真 (i ≠ -1)<br />     局_文件 ＝ 取字节集左边 (局_文件, i － 1)<br /> .如果真结束<br /> 写到文件 (“测试1.txt”, 局_文件)