文本所在行

笨来无一悟

解答https://125.confly.eu.org/thread-14785939-1-2.html

  

子程序名	返回值类型	公开	备 注
文本所在行	整数型		未找到 返回-1
参数名	类 型	参考	可空	数组	备 注
原始文本	文本型
待找文本	文本型
所在整行	文本型

变量名	类 型	静态	数组	备 注
文本	快速文本对象
索引	整数型
游标	整数型
行数	整数型

文本.置文本 ( #换行符, 原始文本, #换行符 )
索引 ＝ 文本.寻找文本 (待找文本, , 真)
判断 (索引 ≠ -1)
索引 ＝ 文本.倒找文本 ( #换行符, 索引, 真)
循环判断首 ()
行数 ＝ 行数 ＋ 1
游标 ＝ 文本.寻找文本 ( #换行符, 游标 ＋ 1, 真)
循环判断尾 (游标 ≠ 索引)
所在整行 ＝ 文本.取文本 (索引 ＋ 2, 文本.寻找文本 ( #换行符, 索引 ＋ 2, 真) － 索引 － 2)
返回 (行数)
所在整行 ＝ “”
返回 (-1)

i支持库列表	支持库注释
commobj	通用对象支持库

.版本 2<br /> .支持库 commobj<br /> <br /> .子程序 文本所在行, 整数型, , 未找到 返回-1<br /> .参数 原始文本, 文本型<br /> .参数 待找文本, 文本型<br /> .参数 所在整行, 文本型, 参考 可空<br /> .局部变量 文本, 快速文本对象<br /> .局部变量 索引, 整数型<br /> .局部变量 游标, 整数型<br /> .局部变量 行数, 整数型<br /> <br /> 文本.置文本 (#换行符, 原始文本, #换行符)<br /> 索引 ＝ 文本.寻找文本 (待找文本, , 真)<br /> .判断开始 (索引 ≠ -1)<br />     索引 ＝ 文本.倒找文本 (#换行符, 索引, 真)<br />     .循环判断首 ()<br />         行数 ＝ 行数 ＋ 1<br />         游标 ＝ 文本.寻找文本 (#换行符, 游标 ＋ 1, 真)<br />     .循环判断尾 (游标 ≠ 索引)<br />     所在整行 ＝ 文本.取文本 (索引 ＋ 2, 文本.寻找文本 (#换行符, 索引 ＋ 2, 真) － 索引 － 2)<br />     返回 (行数)<br /> .默认<br />     所在整行 ＝ “”<br />     返回 (-1)

cqcc

强烈支持！

crossdiy

感谢分享

pipicool

学习一下

chboy

这个和精易模块的有什么不同

深圳梦

感谢分享，很给力！~

杨明煜

看看学习...............

笨来无一悟

chboy 发表于 2023-6-13 17:16
这个和精易模块的有什么不同

你打开精易的源码看看 当然是不同的

笨来无一悟

chboy 发表于 2023-6-13 17:16
这个和精易模块的有什么不同

刚去测试了一下速度 大文本 要查的数据靠近整个文本的后面 快速文本的方式会快很多 小文本没有优势

shuya1

感谢分享，很给力！~