判断编辑框文本内容第几个长度是否属于该字

卓克祥

例如文本：您好呀
判断第6个长度是否为“呀”
还请大佬指教

cmaks

  

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

文本 ＝ 编辑框1.内容
如果 (取文本中间 (文本, 5, 2) ＝ “呀”)
信息框 (“是【呀】”, 0, , )
信息框 (“不是【呀】”, 0, , )

.版本 2<br /> <br /> .局部变量 文本, 文本型<br /> <br /> 文本 ＝ 编辑框1.内容<br /> <br /> .如果 (取文本中间 (文本, 5, 2) ＝ “呀”)<br />     信息框 (“是【呀】”, 0, , )<br /> .否则<br />     信息框 (“不是【呀】”, 0, , )<br /> .如果结束

2wEn

  

子程序名	返回值类型	公开	备 注
判断编辑框文本内容第几个长度是否属于该字	逻辑型
参数名	类 型	参考	可空	数组	备 注
判断文本	文本型
包含某字	文本型
第几个

变量名	类 型	静态	数组	备 注
x
txt	文本型

x ＝ 第几个
如果真 (x ％ 2 ＝ 1)
x ＝ x ＋ 1
如果真 (x ＜ 1)
返回 (假)

调试输出 (x)
如果真 (取文本长度 (判断文本) ＜ x 或 取文本长度 (判断文本) ＜ 1)
返回 (假)

txt ＝ 取文本左边 (判断文本, x)
txt ＝ 取文本右边 (txt, 2)
调试输出 (txt)
判断 (txt ＝ 包含某字)
返回 (真)
返回 (假)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 判断编辑框文本内容第几个长度是否属于该字, 逻辑型<br /> .参数 判断文本, 文本型<br /> .参数 包含某字, 文本型<br /> .参数 第几个<br /> .局部变量 x<br /> .局部变量 txt, 文本型<br /> <br /> x ＝ 第几个<br /> .如果真 (x ％ 2 ＝ 1)<br />     x ＝ x ＋ 1<br /> .如果真结束<br /> .如果真 (x ＜ 1)<br />     返回 (假)<br /> .如果真结束<br /> <br /> 调试输出 (x)<br /> .如果真 (取文本长度 (判断文本) ＜ x 或 取文本长度 (判断文本) ＜ 1)<br />     返回 (假)<br /> .如果真结束<br /> <br /> txt ＝ 取文本左边 (判断文本, x)<br /> txt ＝ 取文本右边 (txt, 2)<br /> <br /> 调试输出 (txt)<br /> .判断开始 (txt ＝ 包含某字)<br />     返回 (真)<br /> .默认<br />     返回 (假)<br /> .判断结束

aipca

  

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

变量名	类 型	静态	数组	备 注
单字	文本型		0
i	整数型
长度	整数型
总长	整数型

文本_逐字分割_快速 (编辑框1.内容, 单字, )
总长 ＝ 取文本长度 (编辑框1.内容)
变量循环首 (取数组成员数 (单字), 1, -1, i)
长度 ＝ 长度 ＋ 取文本长度 (单字 [i])
如果真 (单字 [i] ＝ 编辑框2.内容)
调试输出 (总长 － 长度 ＋ 取文本长度 (单字 [i]))
跳出循环 ()

变量循环尾 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 单字, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 长度, 整数型<br /> .局部变量 总长, 整数型<br /> <br /> 文本_逐字分割_快速 (编辑框1.内容, 单字, )<br /> 总长 ＝ 取文本长度 (编辑框1.内容)<br /> .变量循环首 (取数组成员数 (单字), 1, -1, i)<br />     长度 ＝ 长度 ＋ 取文本长度 (单字 <i>)<br />     .如果真 (单字 <i> ＝ 编辑框2.内容)<br />         调试输出 (总长 － 长度 ＋ 取文本长度 (单字 <i>))<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .变量循环尾 ()

补充内容 (2025-2-28 10:37):
如果有多个相同字的，需要多个输出，把跳出循环（）去掉

cmaks

cmaks 发表于 2025-2-28 10:28
[e=4].版本 2

.局部变量 文本, 文本型

你都知道是第几位了，一个汉字占两位，取出来对比啊

samll88

  

变量名	类 型	静态	数组	备 注
局_文本	文本型
局_关键字	文本型
局_数组	文本型		0
局_计次	整数型

局_文本 ＝ “您好您好好呀”
局_关键字 ＝ “呀”
文本_逐字分割 (局_文本, 局_数组)
计次循环首 (取数组成员数 (局_数组), 局_计次)
如果真 (局_数组 [局_计次] ＝ 局_关键字)
调试输出 (局_计次)

计次循环尾 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> .局部变量 局_文本, 文本型<br /> .局部变量 局_关键字, 文本型<br /> .局部变量 局_数组, 文本型, , "0"<br /> .局部变量 局_计次, 整数型<br /> <br /> 局_文本 ＝ “您好您好好呀”<br /> 局_关键字 ＝ “呀”<br /> 文本_逐字分割 (局_文本, 局_数组)<br /> .计次循环首 (取数组成员数 (局_数组), 局_计次)<br />     .如果真 (局_数组 [局_计次] ＝ 局_关键字)<br />         调试输出 (局_计次)<br />     .如果真结束<br /> <br /> .计次循环尾 ()

https://bbs.125.la/forum.php?mod ... B%E6%B1%89%E5%AD%97

萧楚楠

上面的大佬们都想复杂了，寻找文本，看位置是否为6就行了，分割去比效率太低了

算法艺术家

终极算法

  

子程序名	返回值类型	公开	备 注
文本判断某位置文本	逻辑型		位置为目标文字返回真，
参数名	类 型	参考	可空	数组	备 注
被搜寻的文本	文本型
欲寻找的文本	文本型
位置	整数型

判断 (寻找文本 (被搜寻的文本, 欲寻找的文本, , 假) ＝ 位置)
返回 (真)
返回 (假)

.版本 2<br /> <br /> .子程序 文本判断某位置文本, 逻辑型, 公开, 位置为目标文字返回真，<br /> .参数 被搜寻的文本, 文本型<br /> .参数 欲寻找的文本, 文本型<br /> .参数 位置, 整数型<br /> <br /> .判断开始 (寻找文本 (被搜寻的文本, 欲寻找的文本, , 假) ＝ 位置)<br />     返回 (真)<br /> .默认<br />     返回 (假)<br /> .判断结束

lzx5460

8楼是最简洁的方式

卓克祥

感谢大佬的指教