子程序名 | 返回值类型 | 公开 | 备 注 | ||||
删除编辑框某一行 | |||||||
参数名 | 类 型 | 参考 | 可空 | 数组 | 备 注 | ||
参_编辑框 | 编辑框 | 参_行数 | 整数型 |
变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
局_文本 | 文本型 | 0 | ||||
局_返回文本 | 文本型 | |||||
n | 整数型 |
卿卿吖 发表于 2025-5-8 21:47
[/quote]
子程序名 返回值类型 公开 备 注 删除编辑框某一行
[e=1].版本 2
子程序名 返回值类型 公开 备 注 取出并删除编辑框某一行 文本型 参数名 类 型 参考 可空 数组 备 注 参_编辑框 编辑框 参_行数 整数型 局_文本 = 分割文本 (参_编辑框.内容, #换行符, )
变量名 类 型 静态 数组 备 注 局_文本 文本型 0 局_删除文本 文本型 局_返回文本 文本型 n 整数型 计次循环首 (取数组成员数 (局_文本), n)
如果 (n ≠ 参_行数)
局_返回文本 = 局_返回文本 + 局_文本 [n]
如果真 (n < 取数组成员数 (局_文本))
局_返回文本 = 局_返回文本 + #换行符
局_删除文本 = 局_文本 [n]
计次循环尾 ()
参_编辑框.内容 = 局_返回文本
返回 (局_删除文本)
[e=1].版本 2
.子程序 取出并删除编辑框某一行, 文本型
.参数 参_编辑框, 编辑框
.参数 参_行数, 整数型
.局部变量 局_文本, 文本型, , "0"
.局部变量 局_删除文本, 文本型
.局部变量 局_返回文本, 文本型
.局部变量 n, 整数型
局_文本 = 分割文本 (参_编辑框.内容, #换行符, )
.计次循环首 (取数组成员数 (局_文本), n)
.如果 (n ≠ 参_行数)
局_返回文本 = 局_返回文本 + 局_文本 [n]
.如果真 (n < 取数组成员数 (局_文本))
局_返回文本 = 局_返回文本 + #换行符
.如果真结束
.否则
局_删除文本 = 局_文本 [n]
.如果结束
.计次循环尾 ()
参_编辑框.内容 = 局_返回文本
返回 (局_删除文本)
欢迎光临 精易论坛 (https://125.confly.eu.org/) | Powered by Discuz! X3.4 |