分割文本加强版

我就我

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
得到文本	文本型	0	"0"为动态文本数组
段数	整数型
次数	整数型		循环的次数
循环	整数型		分隔符的数量

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

时钟1.时钟周期 ＝ 1000

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

透明标签1.标题 ＝ 到文本 (取现行时间 ())  ' 取现在系统时间。

子程序名	返回值类型	公开	备 注
_按钮文本分割_被单击

列表框1.清空 ()  ' 清列表框内容，防止再次按下按钮出现内容重叠。
判断 (编辑框1.内容 ＝ “”)
信息框 (“编辑框1.内容不能为空！请输入内容 。”, #警告图标, , )
返回 ()


判断 (编辑框2.内容 ＝ “”)
信息框 (“请输入编辑框1.内容任意字符或标点！”, #警告图标, , )


如果真 (编辑框2.内容 ≠ “”)
循环 ＝ 寻找文本 (编辑框1.内容, 编辑框2.内容, 1, 真)  ' 这里的循环是指编辑框2输入的内容
' 信息框 (“要寻找的文本第一次出现在第” ＋ 到文本 (循环) ＋ “位”, 0, , )
判断 (循环 ≠ -1)  ' -1是表示没有找到。
得到文本 ＝ 分割文本 (编辑框1.内容, 编辑框2.内容, )
段数 ＝ 取数组成员数 (得到文本)
计次循环首 (段数, 次数)
列表框1.加入项目 (得到文本 [次数], )
计次循环尾 ()
信息框 (“没找到要输入的字符，请输入编辑框1中的文字！”, #警告图标, , )

' 取当前鼠标处颜色值 (, , )
' 设置窗口透明度 (取鼠标所在窗口句柄 (), 100)

子程序名	返回值类型	公开	备 注
_按钮认识输入框_被单击

变量名	类 型	静态	数组	备 注
行数	整数型
返回值	逻辑型

返回值 ＝ 输入框 (“请选择你要选中的行数。”, “标题”, “1”, 行数, 2, )
如果真 (返回值 ＝ 真)
如果 (行数 ≥ 1 且 行数 ≤ 段数)  ' 必须等于1或者大于1并且小于分割后的文本段数。
信息框 (“你选择的是：” ＋ #换行符 ＋ 到文本 (得到文本 [行数]), 0, , )
信息框 (“没有此项选择！”, 0, , )  ' 不满足条件时执行这里。

' 谢谢大家观看！希望合同号一起学习。

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 得到文本, 文本型, , "0", "0"为动态文本数组<br /> .程序集变量 段数, 整数型<br /> .程序集变量 次数, 整数型, , , 循环的次数<br /> .程序集变量 循环, 整数型, , , 分隔符的数量<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 时钟1.时钟周期 ＝ 1000<br /> <br /> .子程序 _时钟1_周期事件<br /> <br /> 透明标签1.标题 ＝ 到文本 (取现行时间 ())  ' 取现在系统时间。<br /> <br /> .子程序 _按钮文本分割_被单击<br /> <br /> 列表框1.清空 ()  ' 清列表框内容，防止再次按下按钮出现内容重叠。<br /> .判断开始 (编辑框1.内容 ＝ “”)<br />     信息框 (“编辑框1.内容不能为空！请输入内容 。”, #警告图标, , )<br />     返回 ()<br /> .默认<br /> <br /> .判断结束<br /> .判断开始 (编辑框2.内容 ＝ “”)<br />     信息框 (“请输入编辑框1.内容任意字符或标点！”, #警告图标, , )<br /> .默认<br /> <br /> .判断结束<br /> .如果真 (编辑框2.内容 ≠ “”)<br />     循环 ＝ 寻找文本 (编辑框1.内容, 编辑框2.内容, 1, 真)  ' 这里的循环是指编辑框2输入的内容<br />     ' 信息框 (“要寻找的文本第一次出现在第” ＋ 到文本 (循环) ＋ “位”, 0, , )<br />     .判断开始 (循环 ≠ -1)  ' -1是表示没有找到。<br />         得到文本 ＝ 分割文本 (编辑框1.内容, 编辑框2.内容, )<br />         段数 ＝ 取数组成员数 (得到文本)<br />         .计次循环首 (段数, 次数)<br />             列表框1.加入项目 (得到文本 [次数], )<br />         .计次循环尾 ()<br />     .默认<br />         信息框 (“没找到要输入的字符，请输入编辑框1中的文字！”, #警告图标, , )<br />     .判断结束<br /> <br /> .如果真结束<br /> ' 取当前鼠标处颜色值 (, , )<br /> ' 设置窗口透明度 (取鼠标所在窗口句柄 (), 100)<br /> <br /> .子程序 _按钮认识输入框_被单击<br /> .局部变量 行数, 整数型<br /> .局部变量 返回值, 逻辑型<br /> <br /> 返回值 ＝ 输入框 (“请选择你要选中的行数。”, “标题”, “1”, 行数, 2, )<br /> .如果真 (返回值 ＝ 真)<br />     .如果 (行数 ≥ 1 且 行数 ≤ 段数)  ' 必须等于1或者大于1并且小于分割后的文本段数。<br />         信息框 (“你选择的是：” ＋ #换行符 ＋ 到文本 (得到文本 [行数]), 0, , )<br />     .否则<br />         信息框 (“没有此项选择！”, 0, , )  ' 不满足条件时执行这里。<br />     .如果结束<br /> <br /> .如果真结束<br /> ' 谢谢大家观看！希望合同号一起学习。

ytm易小白

过来学习下，感谢分享

我就我

ghost12 发表于 2022-5-24 01:00
感谢发布原创作品，精易因你更精彩！

谢谢

ghost12

感谢发布原创作品，精易因你更精彩！

我就我

果心豆腐酱 发表于 2022-1-23 12:28
加强在哪里???

建议用脑子思考一下加强在哪里，不要只用眼睛看，毕竟眼睛没有思考功能

果心豆腐酱

加强在哪里???

趣冉科技

感谢楼主分享，支持一下~~！！！

我就我

谢谢支持

你送的花开了

支持开源~！感谢分享

我就我

jiang7825 发表于 2021-12-21 01:16