精易论坛

标题: 子程序 文本_读入一行并删除 [打印本页]

---

作者: 人善帝王心    时间: 2017-4-9 17:47
标题: 子程序 文本_读入一行并删除

  

子程序名	返回值类型	公开	备 注
文本_读入一行并删除	逻辑型
参数名	类 型	参考	可空	数组	备 注
目录	文本型
删除文本	文本型				留空返回第一行并删除第一行，也可以指定行内容删除

变量名	类 型	静态	数组	备 注
文件号	整数型
str	文本型
文本	文本型
预被删除文本	文本型

文件号 ＝ 打开文件 (目录, #改读, )
判断循环首 (是否在文件尾 (文件号, ) ＝ 假)
预被删除文本 ＝ 读入一行 (文件号)
系统_处理事件 ()
如果真 (删除文本 ＝ “”)
删除文本 ＝ 预被删除文本
如果真 (预被删除文本 ＝ 删除文本)
移动读写位置 (文件号, #现行位置, ���取文本长度 (删除文本) － 2)
删除数据 (文件号, 取文本长度 (删除文本) ＋ 2)
关闭文件 (文件号)
返回 (真)
跳出循环 ()

判断循环尾 ()
关闭文件 (文件号)
返回 (假)

.版本 2<br /> <br /> .子程序 文本_读入一行并删除, 逻辑型<br /> .参数 目录, 文本型<br /> .参数 删除文本, 文本型, 可空, 留空返回第一行并删除第一行，也可以指定行内容删除<br /> .局部变量 文件号, 整数型<br /> .局部变量 str, 文本型<br /> .局部变量 文本, 文本型<br /> .局部变量 预被删除文本, 文本型<br /> <br /> 文件号 ＝ 打开文件 (目录, #改读, )<br /> .判断循环首 (是否在文件尾 (文件号, ) ＝ 假)<br />     预被删除文本 ＝ 读入一行 (文件号)<br />     系统_处理事件 ()<br />     .如果真 (删除文本 ＝ “”)<br />         删除文本 ＝ 预被删除文本<br />     .如果真结束<br />     .如果真 (预被删除文本 ＝ 删除文本)<br />         移动读写位置 (文件号, #现行位置, －取文本长度 (删除文本) － 2)<br />         删除数据 (文件号, 取文本长度 (删除文本) ＋ 2)<br />         关闭文件 (文件号)<br />         返回 (真)<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .判断循环尾 ()<br /> 关闭文件 (文件号)<br /> 返回 (假)

---

作者: 飘零殇    时间: 2017-4-9 18:20
来看看赞一个

---

作者: Jacke    时间: 2017-4-9 20:56
感谢分享

---

作者: 2446789312    时间: 2017-4-9 20:59
拒绝伸手党 从我做起

---

作者: Vampre小费    时间: 2017-4-9 21:06
感谢分享

---

作者: 夏末流年    时间: 2017-4-10 14:30
这也能发，闹着玩呢。

---

作者: ht8531262    时间: 2017-4-10 16:13

---

作者: 伊伊伊伊奈    时间: 2017-4-10 20:42
谢谢分享 。。

---

作者: xf1917    时间: 2017-4-11 14:23
感谢分享，给力

---

作者: 843411485    时间: 2017-4-13 23:28
路过看看,顶一下

---

作者: tim1    时间: 2017-4-16 08:38
系统_处理事件 ()是撒？

---

作者: wuqingg    时间: 2018-4-16 02:02
拒绝伸手党 从我做起

---

欢迎光临 精易论坛 (https://125.confly.eu.org/)

Powered by Discuz! X3.4