求搜索编辑框例子

青春的回忆

搜索内容 搜索编辑框里   搜索到的话 就选中整行   按钮按一下搜一个  搜到底部 在返回

Ruang

demo.e (950.86 KB, 下载次数: 8)

2025-5-14 17:59 上传

点击文件名下载附件

算法艺术家

  

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

变量名	类 型	静态	数组	备 注
i	整数型
n	整数型
m	整数型

i ＝ 寻找文本 (编辑框.内容, 编辑框搜索.内容, i, 假)
如果真 (i ≠ -1)
n ＝ 倒找文本 (编辑框.内容, #换行符, i, 假)
如果真 (n ＝ -1)
n ＝ 0
编辑框.起始选择位置 ＝ 文本_取长度ex (取文本中间 (编辑框.内容, 1, n ＋ 1)) － 1
m ＝ 寻找文本 (编辑框.内容, #换行符, i, 假)
i ＝ m
编辑框.被选择字符数 ＝ 文本_取长度ex (取文本中间 (编辑框.内容, n ＋ 1, m － n))
编辑框.获取焦点 ()

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 i, 整数型, 静态<br /> .局部变量 n, 整数型<br /> .局部变量 m, 整数型<br /> <br /> i ＝ 寻找文本 (编辑框.内容, 编辑框搜索.内容, i, 假)<br /> .如果真 (i ≠ -1)<br />     n ＝ 倒找文本 (编辑框.内容, #换行符, i, 假)<br />     .如果真 (n ＝ -1)<br />         n ＝ 0<br />     .如果真结束<br />     编辑框.起始选择位置 ＝ 文本_取长度ex (取文本中间 (编辑框.内容, 1, n ＋ 1)) － 1<br />     m ＝ 寻找文本 (编辑框.内容, #换行符, i, 假)<br />     i ＝ m<br />     编辑框.被选择字符数 ＝ 文本_取长度ex (取文本中间 (编辑框.内容, n ＋ 1, m － n))<br />     编辑框.获取焦点 ()

算法艺术家

  

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

变量名	类 型	静态	数组	备 注
i	整数型
n	整数型

i ＝ 寻找文本 (编辑框.内容, 编辑框搜索.内容, i, 假)
如果真 (i ≠ -1)
n ＝ 倒找文本 (编辑框.内容, #换行符, i, 假)
如果真 (n ＝ -1)
n ＝ 0
编辑框.起始选择位置 ＝ 文本_取长度ex (取文本中间 (编辑框.内容, 1, n ＋ 1)) － 1
i ＝ 寻找文本 (编辑框.内容, #换行符, i, 假)
编辑框.被选择字符数 ＝ 文本_取长度ex (取文本中间 (编辑框.内容, n ＋ 1, i － n))
编辑框.获取焦点 ()

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 i, 整数型, 静态<br /> .局部变量 n, 整数型<br /> <br /> i ＝ 寻找文本 (编辑框.内容, 编辑框搜索.内容, i, 假)<br /> .如果真 (i ≠ -1)<br />     n ＝ 倒找文本 (编辑框.内容, #换行符, i, 假)<br />     .如果真 (n ＝ -1)<br />         n ＝ 0<br />     .如果真结束<br />     编辑框.起始选择位置 ＝ 文本_取长度ex (取文本中间 (编辑框.内容, 1, n ＋ 1)) － 1<br />     i ＝ 寻找文本 (编辑框.内容, #换行符, i, 假)<br />     编辑框.被选择字符数 ＝ 文本_取长度ex (取文本中间 (编辑框.内容, n ＋ 1, i － n))<br />     编辑框.获取焦点 ()

Ruang

算法艺术家 发表于 2025-5-14 18:00
[e=3].版本 2

.子程序 _按钮1_被单击

见笑了

算法艺术家

Ruang 发表于 2025-5-14 18:04
见笑了

再加个支持汉字就完美了

奔放的牛

Ruang 发表于 2025-5-14 18:04
见笑了

大佬!Delphi转易语言能做吗?

奔放的牛

算法艺术家 发表于 2025-5-14 18:06
再加个支持汉字就完美了

大佬!Delphi转易语言能做吗?