寻找数组文本求助

小麒QCC

比如我初始内容是 1|2|3|
当我新输入的是1 会提示我1已存在，然后就跳出去了
如果我输入2或者3，也会提示已存在，但是也会把2或3写出去

  

子程序名	返回值类型	公开	备 注
_按钮EX2_鼠标左键单击	整数型
参数名	类 型	参考	可空	数组	备 注
坐标x	整数型
坐标y	整数型
保留参数1	整数型
保留参数2	整数型

变量名	类 型	静态	数组	备 注
内容	文本型
现有类型	字节集
分隔	文本型		0
i	整数型
新增服务类型	文本型
是否为空内容	整数型

现有类型 ＝ 读入文件 (取运行目录 () ＋ “\data.dat”)
分隔 ＝ 分割文本 (到文本 (现有类型), “|”, )
新增服务类型 ＝ 输入框Ex ({  }, “新增服务类型”, , “请输入需要新增的服务类型，不要输入已有类型呀！哈～”, “确定&&取消”, , , , , , 假, 取变量地址 (是否为空内容), _启动窗口.取窗口句柄 (), , , , )
如果真 (是否为空内容 ＝ 0)
如果 (新增服务类型 ＝ “”)
信息框Ex (, “错误”, , “输入内容不可为空！”, “确定”, , , , , , )
返回 ()


计次循环首 (取数组成员数 (分隔), i)
如果 (寻找文本 (分隔 [i], 新增服务类型, , 假) ≠ -1)
信息框Ex (, “错误”, , “不要输入重复的类型！”, “确定”, , , , , , )
跳出循环 ()
写到文件 (取运行目录 () ＋ “\data.dat”, 现有类型 ＋ 到字节集 (新增服务类型 ＋ “|”))

计次循环尾 ()

i支持库列表	支持库注释
ExuiKrnln	(未知支持库)
spec	特殊功能支持库

.版本 2<br /> .支持库 ExuiKrnln<br /> .支持库 spec<br /> <br /> .子程序 _按钮EX2_鼠标左键单击, 整数型<br /> .参数 坐标x, 整数型<br /> .参数 坐标y, 整数型<br /> .参数 保留参数1, 整数型<br /> .参数 保留参数2, 整数型<br /> .局部变量 内容, 文本型<br /> .局部变量 现有类型, 字节集<br /> .局部变量 分隔, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 新增服务类型, 文本型<br /> .局部变量 是否为空内容, 整数型<br /> <br /> 现有类型 ＝ 读入文件 (取运行目录 () ＋ “\data.dat”)<br /> 分隔 ＝ 分割文本 (到文本 (现有类型), “|”, )<br /> 新增服务类型 ＝ 输入框Ex ({  }, “新增服务类型”, , “请输入需要新增的服务类型，不要输入已有类型呀！哈～”, “确定&&取消”, , , , , , 假, 取变量地址 (是否为空内容), _启动窗口.取窗口句柄 (), , , , )<br /> .如果真 (是否为空内容 ＝ 0)<br />     .如果 (新增服务类型 ＝ “”)<br />         信息框Ex (, “错误”, , “输入内容不可为空！”, “确定”, , , , , , )<br />         返回 ()<br />     .否则<br /> <br />         .计次循环首 (取数组成员数 (分隔), i)<br />             .如果 (寻找文本 (分隔 <i>, 新增服务类型, , 假) ≠ -1)<br />                 信息框Ex (, “错误”, , “不要输入重复的类型！”, “确定”, , , , , , )<br />                 跳出循环 ()<br />             .否则<br />                 写到文件 (取运行目录 () ＋ “\data.dat”, 现有类型 ＋ 到字节集 (新增服务类型 ＋ “|”))<br />             .如果结束<br /> <br />         .计次循环尾 ()<br />     .如果结束

补充内容 (2023-5-7 18:18):
自己已解决！

King子辛

这样写 不需要分割循环

  

子程序名	返回值类型	公开	备 注
_按钮EX2_鼠标左键单击	整数型
参数名	类 型	参考	可空	数组	备 注
坐标x	整数型
坐标y	整数型
保留参数1	整数型
保留参数2	整数型

变量名	类 型	静态	数组	备 注
内容	文本型
现有类型	字节集
分隔	文本型		0
i	整数型
新增服务类型	文本型
是否为空内容	整数型
待查找类型	文本型

现有类型 ＝ 读入文件 (取运行目录 () ＋ “\data.dat”)
分隔 ＝ 分割文本 (到文本 (现有类型), “|”, )
新增服务类型 ＝ 输入框Ex ({  }, “新增服务类型”, , “请输入需要新增的服务类型，不要输入已有类型呀！哈～”, “确定&&取消”, , , , , , 假, 取变量地址 (是否为空内容), _启动窗口.取窗口句柄 (), , , , )
如果真 (是否为空内容 ＝ 0)
如果 (新增服务类型 ＝ “”)
信息框Ex (, “错误”, , “输入内容不可为空！”, “确定”, , , , , , )
返回 ()


待查找类型 ＝ “|” ＋ 到文本 (现有类型)
如果 (寻找文本 (待查找类型, “|” ＋ 新增服务类型 ＋ “|”, , 假) ≠ -1)
信息框Ex (, “错误”, , “不要输入重复的类型！”, “确定”, , , , , , )
写到文件 (取运行目录 () ＋ “\data.dat”, 现有类型 ＋ 到字节集 (新增服务类型 ＋ “|”))

.版本 2<br /> <br /> .子程序 _按钮EX2_鼠标左键单击, 整数型<br /> .参数 坐标x, 整数型<br /> .参数 坐标y, 整数型<br /> .参数 保留参数1, 整数型<br /> .参数 保留参数2, 整数型<br /> .局部变量 内容, 文本型<br /> .局部变量 现有类型, 字节集<br /> .局部变量 分隔, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 新增服务类型, 文本型<br /> .局部变量 是否为空内容, 整数型<br /> .局部变量 待查找类型, 文本型<br /> <br /> 现有类型 ＝ 读入文件 (取运行目录 () ＋ “\data.dat”)<br /> 分隔 ＝ 分割文本 (到文本 (现有类型), “|”, )<br /> 新增服务类型 ＝ 输入框Ex ({  }, “新增服务类型”, , “请输入需要新增的服务类型，不要输入已有类型呀！哈～”, “确定&&取消”, , , , , , 假, 取变量地址 (是否为空内容), _启动窗口.取窗口句柄 (), , , , )<br /> .如果真 (是否为空内容 ＝ 0)<br /> <br /> .如果真结束<br /> .如果 (新增服务类型 ＝ “”)<br />     信息框Ex (, “错误”, , “输入内容不可为空！”, “确定”, , , , , , )<br />     返回 ()<br /> .否则<br /> <br />     待查找类型 ＝ “|” ＋ 到文本 (现有类型)<br />     .如果 (寻找文本 (待查找类型, “|” ＋ 新增服务类型 ＋ “|”, , 假) ≠ -1)<br />         信息框Ex (, “错误”, , “不要输入重复的类型！”, “确定”, , , , , , )<br />     .否则<br />         写到文件 (取运行目录 () ＋ “\data.dat”, 现有类型 ＋ 到字节集 (新增服务类型 ＋ “|”))<br />     .如果结束<br /> <br /> .如果结束

emodiyu

求采纳，因为我正在思考你的问题~

小麒QCC

emodiyu 发表于 2023-5-7 18:33
求采纳，因为我正在思考你的问题~

自己已解决了，谢谢

csyloveyj

这都是文本操作  研究研究自己都能解决了

乐鱼驴

打劫。自己解决了也得采纳我的。我都想好了。你说自己解决了。