帮我写个判断文本字符的

mmbbmb

0 1 2 3 4 5 6 7 8 9 0 a b c d e f

帮我判断一下6个字符是上面的随机组合

比如05d6f6这6个字符是上面的组合

比如0y65k3这6个字符就不是上面那些组合

能帮我写出判断来吗?

atglkm123

.版本 2

.局部变量 文本数组, 文本型, , "0"
.局部变量 i, 整数型

文本_逐字分割 (编辑框2.内容, 文本数组)
.计次循环首 (取数组成员数 (文本数组), i)
    .如果 (寻找文本 (编辑框1.内容, 文本数组 , , 真) ＝ -1)
        编辑框3.内容 ＝ “不是文本组合”
        跳出循环 ()
    .否则
        编辑框3.内容 ＝ “是文本组合”
    .如果结束

.计次循环尾 ()



补充内容 (2019-8-14 02:41):
编辑框1 里放0123...abcd...
编辑框2里放你需要寻找的文本，013acd或别的

新手张浩

  

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

判断 (验证 (“05d6f6”) ＝ 真)
信息框 (“符合规则！”, 0, , )
信息框 (“不符合规则！”, 0, , )

子程序名	返回值类型	公开	备 注
验证	逻辑型
参数名	类 型	参考	可空	数组	备 注
源文本	文本型

如果真 (文本_寻找文本 (源文本, “0”, , ) ＞ 6)
返回 (假)
如果真 (文本_寻找文本 (源文本, “1”, , ) ＞ 6)
返回 (假)
如果真 (文本_寻找文本 (源文本, “2”, , ) ＞ 6)
返回 (假)
如果真 (文本_寻找文本 (源文本, “3”, , ) ＞ 6)
返回 (假)
如果真 (文本_寻找文本 (源文本, “4”, , ) ＞ 6)
返回 (假)
如果真 (文本_寻找文本 (源文本, “5”, , ) ＞ 6)
返回 (假)
如果真 (文本_寻找文本 (源文本, “6”, , ) ＞ 6)
返回 (假)
如果真 (文本_寻找文本 (源文本, “7”, , ) ＞ 6)
返回 (假)
如果真 (文本_寻找文本 (源文本, “8”, , ) ＞ 6)
返回 (假)
如果真 (文本_寻找文本 (源文本, “9”, , ) ＞ 6)
返回 (假)
如果真 (文本_寻找文本 (源文本, “a”, , ) ＞ 6)
返回 (假)
如果真 (文本_寻找文本 (源文本, “b”, , ) ＞ 6)
返回 (假)
如果真 (文本_寻找文本 (源文本, “c”, , ) ＞ 6)
返回 (假)
如果真 (文本_寻找文本 (源文本, “d”, , ) ＞ 6)
返回 (假)
如果真 (文本_寻找文本 (源文本, “e”, , ) ＞ 6)
返回 (假)
如果真 (文本_寻找文本 (源文本, “f”, , ) ＞ 6)
返回 (假)
返回 (真)

.版本 2<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> .判断开始 (验证 (“05d6f6”) ＝ 真)<br />     信息框 (“符合规则！”, 0, , )<br /> .默认<br />     信息框 (“不符合规则！”, 0, , )<br /> .判断结束<br /> <br /> <br /> .子程序 验证, 逻辑型<br /> .参数 源文本, 文本型<br /> <br /> .如果真 (文本_寻找文本 (源文本, “0”, , ) ＞ 6)<br />     返回 (假)<br /> .如果真结束<br /> .如果真 (文本_寻找文本 (源文本, “1”, , ) ＞ 6)<br />     返回 (假)<br /> .如果真结束<br /> .如果真 (文本_寻找文本 (源文本, “2”, , ) ＞ 6)<br />     返回 (假)<br /> .如果真结束<br /> .如果真 (文本_寻找文本 (源文本, “3”, , ) ＞ 6)<br />     返回 (假)<br /> .如果真结束<br /> .如果真 (文本_寻找文本 (源文本, “4”, , ) ＞ 6)<br />     返回 (假)<br /> .如果真结束<br /> .如果真 (文本_寻找文本 (源文本, “5”, , ) ＞ 6)<br />     返回 (假)<br /> .如果真结束<br /> .如果真 (文本_寻找文本 (源文本, “6”, , ) ＞ 6)<br />     返回 (假)<br /> .如果真结束<br /> .如果真 (文本_寻找文本 (源文本, “7”, , ) ＞ 6)<br />     返回 (假)<br /> .如果真结束<br /> .如果真 (文本_寻找文本 (源文本, “8”, , ) ＞ 6)<br />     返回 (假)<br /> .如果真结束<br /> .如果真 (文本_寻找文本 (源文本, “9”, , ) ＞ 6)<br />     返回 (假)<br /> .如果真结束<br /> .如果真 (文本_寻找文本 (源文本, “a”, , ) ＞ 6)<br />     返回 (假)<br /> .如果真结束<br /> .如果真 (文本_寻找文本 (源文本, “b”, , ) ＞ 6)<br />     返回 (假)<br /> .如果真结束<br /> .如果真 (文本_寻找文本 (源文本, “c”, , ) ＞ 6)<br />     返回 (假)<br /> .如果真结束<br /> .如果真 (文本_寻找文本 (源文本, “d”, , ) ＞ 6)<br />     返回 (假)<br /> .如果真结束<br /> .如果真 (文本_寻找文本 (源文本, “e”, , ) ＞ 6)<br />     返回 (假)<br /> .如果真结束<br /> .如果真 (文本_寻找文本 (源文本, “f”, , ) ＞ 6)<br />     返回 (假)<br /> .如果真结束<br /> 返回 (真)

杯中水

  

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

变量名	类 型	静态	数组	备 注
数组A	文本型
数组B	文本型		0
A	文本型
B	文本型
X	整数型
bool	逻辑型

数组A ＝ “0 1 2 3 4 5 6 7 8 9 0 a b c d e f”
A ＝ “05d6f6”
B ＝ “0y65k3”
文本_逐字分割 (A, 数组B)
计次循环首 (取数组成员数 (数组B), X)
如果真 (寻找文本 (数组A, 数组B [X], , 假) ＝ -1)
bool ＝ 真
跳出循环 ()

计次循环尾 ()
判断 (bool ＝ 假)
调试输出 (A ＋ “存在”)
调试输出 (A ＋ “不存在”)

bool ＝ 假
文本_逐字分割 (B, 数组B)
计次循环首 (取数组成员数 (数组B), X)
如果真 (寻找文本 (数组A, 数组B [X], , 假) ＝ -1)
bool ＝ 真
跳出循环 ()

计次循环尾 ()
判断 (bool ＝ 假)
调试输出 (B ＋ “存在”)
调试输出 (B ＋ “不存在”)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 数组A, 文本型<br /> .局部变量 数组B, 文本型, , "0"<br /> .局部变量 A, 文本型<br /> .局部变量 B, 文本型<br /> .局部变量 X, 整数型<br /> .局部变量 bool, 逻辑型<br /> <br /> 数组A ＝ “0 1 2 3 4 5 6 7 8 9 0 a b c d e f”<br /> A ＝ “05d6f6”<br /> B ＝ “0y65k3”<br /> <br /> 文本_逐字分割 (A, 数组B)<br /> <br /> .计次循环首 (取数组成员数 (数组B), X)<br /> <br />     .如果真 (寻找文本 (数组A, 数组B [X], , 假) ＝ -1)<br />         bool ＝ 真<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> .判断开始 (bool ＝ 假)<br />     调试输出 (A ＋ “存在”)<br /> .默认<br />     调试输出 (A ＋ “不存在”)<br /> .判断结束<br /> <br /> <br /> bool ＝ 假<br /> 文本_逐字分割 (B, 数组B)<br /> <br /> .计次循环首 (取数组成员数 (数组B), X)<br /> <br />     .如果真 (寻找文本 (数组A, 数组B [X], , 假) ＝ -1)<br />         bool ＝ 真<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> <br /> .判断开始 (bool ＝ 假)<br />     调试输出 (B ＋ “存在”)<br /> .默认<br />     调试输出 (B ＋ “不存在”)

NOCOL

  

子程序名	返回值类型	公开	备 注
验证_文本是否存在	逻辑型
参数名	类 型	参考	可空	数组	备 注
文本一	文本型				0|1|2|3|4|5|6|7|8|9|0|a|b|c|d|e|f
文本二	文本型				05d6f6

变量名	类 型	静态	数组	备 注
正则	正则表达式类

正则.创建 (子文本替换 (删首尾空 (文本一), “ ”, “|”, , , 真), 文本二, , , 真, )
返回 (正则.取匹配数量 () ＝ 取文本长度 (文本二))

.版本 2<br /> <br /> .子程序 验证_文本是否存在, 逻辑型<br /> .参数 文本一, 文本型, , 0|1|2|3|4|5|6|7|8|9|0|a|b|c|d|e|f<br /> .参数 文本二, 文本型, , 05d6f6<br /> .局部变量 正则, 正则表达式类<br /> <br /> 正则.创建 (子文本替换 (删首尾空 (文本一), “ ”, “|”, , , 真), 文本二, , , 真, )<br /> 返回 (正则.取匹配数量 () ＝ 取文本长度 (文本二))

寒潮

  

变量名	类 型	静态	数组	备 注
局_基础文本	文本型
局_待检验字符串	文本型
局_待检验字符串_数组	文本型		0
局_计次	整数型
局_是否在内	逻辑型

局_基础文本 ＝ “0 1 2 3 4 5 6 7 8 9 0 a b c d e f”
局_基础文本 ＝ 删全部空 (局_基础文本)
局_待检验字符串 ＝ “0y65k3”
重定义数组 (局_待检验字符串_数组, 假, 0)
文本_逐字分割 (局_待检验字符串, 局_待检验字符串_数组)
局_是否在内 ＝ 真
计次循环首 (取数组成员数 (局_待检验字符串_数组), 局_计次)
如果真 (文本_取出现次数 (局_基础文本, 局_待检验字符串_数组 [局_计次], 假) ＝ 0)
局_是否在内 ＝ 假
跳出循环 ()

计次循环尾 ()
如果 (局_是否在内 ＝ 假)
信息框 (“待检验字符串内的字符不全在基础字符内”, 0, , )
信息框 (“待检验字符串内的字符全在基础字符内”, 0, , )

.版本 2<br /> <br /> .局部变量 局_基础文本, 文本型<br /> .局部变量 局_待检验字符串, 文本型<br /> .局部变量 局_待检验字符串_数组, 文本型, , "0"<br /> .局部变量 局_计次, 整数型<br /> .局部变量 局_是否在内, 逻辑型<br /> <br /> 局_基础文本 ＝ “0 1 2 3 4 5 6 7 8 9 0 a b c d e f”<br /> 局_基础文本 ＝ 删全部空 (局_基础文本)<br /> 局_待检验字符串 ＝ “0y65k3”<br /> 重定义数组 (局_待检验字符串_数组, 假, 0)<br /> 文本_逐字分割 (局_待检验字符串, 局_待检验字符串_数组)<br /> 局_是否在内 ＝ 真<br /> .计次循环首 (取数组成员数 (局_待检验字符串_数组), 局_计次)<br />     .如果真 (文本_取出现次数 (局_基础文本, 局_待检验字符串_数组 [局_计次], 假) ＝ 0)<br />         局_是否在内 ＝ 假<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> .如果 (局_是否在内 ＝ 假)<br />     信息框 (“待检验字符串内的字符不全在基础字符内”, 0, , )<br /> .否则<br />     信息框 (“待检验字符串内的字符全在基础字符内”, 0, , )

20190814-检验字符串是否在基础字符串内.e (887.8 KB, 下载次数: 0)

2019-8-14 08:56 上传

点击文件名下载附件