分割文本加强版

我就我 · 发表于 2021-11-26 02:09:01

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口
变量名	类型	数组	备注
得到文本	文本型	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 />
' 谢谢大家观看！希望合同号一起学习。