编辑框 查找字符

dwcq

  

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

查找 (“上”)

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

查找 (“下”)

子程序名	返回值类型	公开	备 注
查找
参数名	类 型	参考	可空	数组	备 注
上下	文本型

变量名	类 型	静态	数组	备 注
长长长	字节集
短短短	字节集
长度
光标位置
返回位置

编辑框1.获取焦点 ()
长长长 ＝ 到字节集 (到小写 (编辑框1.内容))
短短短 ＝ 到字节集 (到小写 (编辑框2.内容))
长度 ＝ 取字节集长度 (短短短)
光标位置 ＝ 编辑框1.起始选择位置
判断 (上下 ＝ “上”)
返回位置 ＝ 倒找字节集 (长长长, 短短短, 光标位置)
如果 (返回位置 ≠ -1)
编辑框1.起始选择位置 ＝ 返回位置 － 1
编辑框1.被选择字符数 ＝ 长度

返回位置 ＝ 倒找字节集 (长长长, 短短短, )
如果 (返回位置 ≠ -1)
编辑框1.起始选择位置 ＝ 返回位置 － 1
编辑框1.被选择字符数 ＝ 长度



编辑框3.内容 ＝ 提取数字部分 (到文本 (长长长), 返回位置 ＋ 长度)

判断 (上下 ＝ “下”)
返回位置 ＝ 寻找字节集 (长长长, 短短短, 光标位置 ＋ 2)
如果 (返回位置 ≠ -1)
编辑框1.起始选择位置 ＝ 返回位置 － 1
编辑框1.被选择字符数 ＝ 长度

返回位置 ＝ 寻找字节集 (长长长, 短短短, )
编辑框1.起始选择位置 ＝ 返回位置 － 1
编辑框1.被选择字符数 ＝ 长度
编辑框3.内容 ＝ 提取数字部分 (到文本 (长长长), 返回位置 ＋ 长度)


编辑框1.获取焦点 ()

子程序名	返回值类型	公开	备 注
提取数字部分	文本型
参数名	类 型	参考	可空	数组	备 注
源文本	文本型
起始位置	整数型
前缀长度	整数型				如"drop="的长度是5

变量名	类 型	静态	数组	备 注
i	整数型
当前字符	文本型
ASCII码	整数型
数字部分	文本型

数字部分 ＝ “”
' 计算实际开始位置
如果 (是否为空 (前缀长度))
前缀长度 ＝ 0


起始位置 ＝ 起始位置 ＋ 前缀长度
' 循环提取数字
变量循环首 (起始位置, 取文本长度 (源文本), 1, i)
当前字符 ＝ 取文本中间 (源文本, i, 1)
ASCII码 ＝ 取代码 (当前字符, 1)
' 判断是否为数字
如果 (ASCII码 ≥ 48 且 ASCII码 ≤ 57)
数字部分 ＝ 数字部分 ＋ 当前字符
跳出循环 ()  ' 遇到非数字字符就停止

变量循环尾 ()
返回 (数字部分)
' 调用示例

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

变量名	类 型	静态	数组	备 注
结果	文本型

结果 ＝ 提取数字部分 (编辑框1.内容, 寻找文本 (编辑框1.内容, “drop=”, , 假), 5)
编辑框3.内容 ＝ 结果

.版本 2<br /> <br /> <br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 查找 (“上”)<br /> <br /> .子程序 _按钮2_被单击<br /> <br /> 查找 (“下”)<br /> <br /> .子程序 查找<br /> .参数 上下, 文本型<br /> .局部变量 长长长, 字节集<br /> .局部变量 短短短, 字节集<br /> .局部变量 长度<br /> .局部变量 光标位置<br /> .局部变量 返回位置 <br /> <br /> 编辑框1.获取焦点 ()<br /> 长长长 ＝ 到字节集 (到小写 (编辑框1.内容))<br /> 短短短 ＝ 到字节集 (到小写 (编辑框2.内容))<br /> 长度 ＝ 取字节集长度 (短短短)<br /> 光标位置 ＝ 编辑框1.起始选择位置<br /> <br /> .判断开始 (上下 ＝ “上”)<br />     返回位置 ＝ 倒找字节集 (长长长, 短短短, 光标位置)<br />     .如果 (返回位置 ≠ -1)<br />         编辑框1.起始选择位置 ＝ 返回位置 － 1<br />         编辑框1.被选择字符数 ＝ 长度<br /> <br />     .否则<br />         返回位置 ＝ 倒找字节集 (长长长, 短短短, )<br />         .如果 (返回位置 ≠ -1)<br />             编辑框1.起始选择位置 ＝ 返回位置 － 1<br />             编辑框1.被选择字符数 ＝ 长度<br />         .否则<br /> <br />         .如果结束<br /> <br />     .如果结束<br />     编辑框3.内容 ＝ 提取数字部分 (到文本 (长长长), 返回位置 ＋ 长度)<br /> <br /> .判断 (上下 ＝ “下”)<br />     返回位置 ＝ 寻找字节集 (长长长, 短短短, 光标位置 ＋ 2)<br />     .如果 (返回位置 ≠ -1)<br />         编辑框1.起始选择位置 ＝ 返回位置 － 1<br />         编辑框1.被选择字符数 ＝ 长度<br /> <br />     .否则<br />         返回位置 ＝ 寻找字节集 (长长长, 短短短, )<br />         编辑框1.起始选择位置 ＝ 返回位置 － 1<br />         编辑框1.被选择字符数 ＝ 长度<br /> <br />     .如果结束<br />     编辑框3.内容 ＝ 提取数字部分 (到文本 (长长长), 返回位置 ＋ 长度)<br /> .默认<br /> <br /> .判断结束<br /> 编辑框1.获取焦点 ()<br /> <br /> <br /> <br /> .子程序 提取数字部分, 文本型<br /> .参数 源文本, 文本型<br /> .参数 起始位置, 整数型<br /> .参数 前缀长度, 整数型, 可空, 如"drop="的长度是5<br /> .局部变量 i, 整数型<br /> .局部变量 当前字符, 文本型<br /> .局部变量 ASCII码, 整数型<br /> .局部变量 数字部分, 文本型<br /> <br /> 数字部分 ＝ “”<br /> ' 计算实际开始位置<br /> .如果 (是否为空 (前缀长度))<br />     前缀长度 ＝ 0<br /> .否则<br /> <br /> .如果结束<br /> 起始位置 ＝ 起始位置 ＋ 前缀长度<br /> <br /> ' 循环提取数字<br /> .变量循环首 (起始位置, 取文本长度 (源文本), 1, i)<br />     当前字符 ＝ 取文本中间 (源文本, i, 1)<br />     ASCII码 ＝ 取代码 (当前字符, 1)<br />     ' 判断是否为数字<br />     .如果 (ASCII码 ≥ 48 且 ASCII码 ≤ 57)<br />         数字部分 ＝ 数字部分 ＋ 当前字符<br />     .否则<br />         跳出循环 ()  ' 遇到非数字字符就停止<br />     .如果结束<br /> <br /> .变量循环尾 ()<br /> <br /> 返回 (数字部分)<br /> <br /> ' 调用示例<br /> <br /> .子程序 _按钮_提取_被单击<br /> .局部变量 结果, 文本型<br /> <br /> 结果 ＝ 提取数字部分 (编辑框1.内容, 寻找文本 (编辑框1.内容, “drop=”, , 假), 5)<br /> 编辑框3.内容 ＝ 结果

问答区要的提取后边的数字，发给他了在分享一下，补充一下 显示不准不勾选通用组件库就行了，

shuya1

感谢分享，很给力！~

please

感谢分享，支持开源！！！

查过

感谢分享，很给力！~

豆豆灰常开心

感谢楼主分享！

花小旭

eew9eew9eew9eew9

kyo9766

很好的思路，感谢分享

沐白22

感谢分享，很给力！~

查过

感谢分享，很给力！~

豆豆灰常开心

感谢楼主分享！