取出文本行数,取出指定行数文本,取出文本所在行,三个命令全部用到了分割写法,超简单哦。
也只能用自己所会的方法去写,没技术含量的,高手绕道。
.子程序 取文本所在行, 文本型, , 成功则返回取到的文本,失败则返回“”
.参数 原文本, 文本型
.参数 被取文本, 文本型
.局部变量 分割数据, 文本型, , "0"
.局部变量 数组, 整数型
.局部变量 临时位置, 整数型
分割数据 = 分割文本 (原文本, #换行符, ) ' 把文本分隔开,方便取出每一行文本
数组 = 取数组成员数 (分割数据) ' 原文本的总共行数,学好分割其实挺好用的
.计次循环首 (数组, 临时位置)
.如果真 (寻找文本 (分割数据 [临时位置], 被取文本, , 假) ≠ -1) ' 如果找到么你要去的那个文本就跳出循环,剩下的直接就是那一行了
跳出循环 ()
.如果真结束
' 调试输出 (分割数据 [临时位置])
.计次循环尾 ()
返回 (到文本 (临时位置))
上一篇 超级列表框带检查框应用例子