编辑框取光标所在区间文本

北冥

下面是编辑框文本格式

--------------------------------
随机信息有多行
--------------------------------
随机信息有多行
--------------------------------

上面无限循环
需要做的是点击其中一块就能时间取出那一块的文本,
想了各种办法,只有寻找文本这些,
但是如果这个编辑框里的文本太多了
效率就贼低

帅气与大侠

获取编辑框光标位置(字符数)，转到光标位置(字节数)
然后倒找、寻找、前后关键字文本，就可以取出了
逻辑上的细枝末节就不完善

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

子程序名	返回值类型	公开	备 注
编辑框_取光标文本
参数名	类 型	参考	可空	数组	备 注
编辑框	编辑框
前面文本	文本型
后面文本	文本型

变量名	类 型	静态	数组	备 注
光标位置	整数型			位置是字符数计算，中英都算一个
文本	文本型
起始位置	整数型
终止位置	整数型

光标位置 ＝ 编辑框.起始选择位置
文本 ＝ 编辑框.内容
光标位置 ＝ 编辑框_光标位置转字符位置 (文本, 光标位置)
起始位置 ＝ 倒找文本 (文本, 前面文本, 光标位置, 假)
起始位置 ＝ 选择 (起始位置 ＝ -1, 1, 起始位置 ＋ 取文本长度 (前面文本))
终止位置 ＝ 寻找文本 (文本, 后面文本, 光标位置, 假)
终止位置 ＝ 选择 (终止位置 ＝ -1, 取文本长度 (文本), 终止位置)
文本 ＝ 取文本中间 (文本, 起始位置, 终止位置 － 起始位置)
' 文本前面可能存在“前面文本、换行符”，可自行根据前面文本决定是否删除
' 文本后面可能存在...同上
调试输出 (文本)

子程序名	返回值类型	公开	备 注
编辑框_光标位置转字符位置	整数型
参数名	类 型	参考	可空	数组	备 注
文本	文本型
光标位置	整数型

变量名	类 型	静态	数组	备 注
文本指针	整数型
字节	字节型
i	整数型
n	整数型

文本指针 ＝ 取指针_文本型 (文本)
循环判断首 ()
字节 ＝ __get_byte (文本指针, i)
判断 (字节 ＜ 127)
n ＝ n ＋ 1
i ＝ i ＋ 1
n ＝ n ＋ 1
i ＝ i ＋ 2

如果真 (n ＝ 光标位置)
跳出循环 ()

循环判断尾 (字节 ≠ 0)
返回 (i)

子程序名	返回值类型	公开	备 注
_按钮2_被单击

编辑框_取光标文本 (编辑框1, “--------------------------------”, “--------------------------------”)

子程序名	返回值类型	公开	备 注
_按钮1_被单击

编辑框_取光标文本 (编辑框1, #换行符, #换行符 )

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> <br /> .子程序 编辑框_取光标文本<br /> .参数 编辑框, 编辑框<br /> .参数 前面文本, 文本型, 可空<br /> .参数 后面文本, 文本型, 可空<br /> .局部变量 光标位置, 整数型, , , 位置是字符数计算，中英都算一个<br /> .局部变量 文本, 文本型<br /> .局部变量 起始位置, 整数型<br /> .局部变量 终止位置, 整数型<br /> <br /> 光标位置 ＝ 编辑框.起始选择位置<br /> 文本 ＝ 编辑框.内容<br /> <br /> 光标位置 ＝ 编辑框_光标位置转字符位置 (文本, 光标位置)<br /> <br /> 起始位置 ＝ 倒找文本 (文本, 前面文本, 光标位置, 假)<br /> 起始位置 ＝ 选择 (起始位置 ＝ -1, 1, 起始位置 ＋ 取文本长度 (前面文本))<br /> <br /> 终止位置 ＝ 寻找文本 (文本, 后面文本, 光标位置, 假)<br /> 终止位置 ＝ 选择 (终止位置 ＝ -1, 取文本长度 (文本), 终止位置)<br /> <br /> 文本 ＝ 取文本中间 (文本, 起始位置, 终止位置 － 起始位置)<br /> <br /> ' 文本前面可能存在“前面文本、换行符”，可自行根据前面文本决定是否删除<br /> ' 文本后面可能存在...同上<br /> 调试输出 (文本)<br /> <br /> .子程序 编辑框_光标位置转字符位置, 整数型<br /> .参数 文本, 文本型<br /> .参数 光标位置, 整数型<br /> .局部变量 文本指针, 整数型<br /> .局部变量 字节, 字节型<br /> .局部变量 i, 整数型<br /> .局部变量 n, 整数型<br /> <br /> 文本指针 ＝ 取指针_文本型 (文本)<br /> .循环判断首 ()<br />     字节 ＝ __get_byte (文本指针, i)<br />     .判断开始 (字节 ＜ 127)<br />         n ＝ n ＋ 1<br />         i ＝ i ＋ 1<br />     .默认<br />         n ＝ n ＋ 1<br />         i ＝ i ＋ 2<br />     .判断结束<br /> <br />     .如果真 (n ＝ 光标位置)<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .循环判断尾 (字节 ≠ 0)<br /> 返回 (i)<br /> <br /> <br /> .子程序 _按钮2_被单击<br /> <br /> 编辑框_取光标文本 (编辑框1, “--------------------------------”, “--------------------------------”)<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 编辑框_取光标文本 (编辑框1, #换行符, #换行符)

demo.e (951.15 KB, 下载次数: 7)

2024-3-20 00:51 上传

点击文件名下载附件