分割文本代码
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
.版本 2
.程序集 窗口程序集1
.程序集变量 是否修改, 逻辑型
.程序集变量 文本数组, 文本型, , "0"
.程序集变量 数组成员数, 整数型
.子程序 _编辑框1_内容被改变
是否修改 ＝ 假
.子程序 _分割按钮_被单击
.局部变量 点击次数, 整数型, 静态
.局部变量 文本, 文本型
.局部变量 显示文本, 文本型, , "0"
.如果真 (是否修改 ＝ 假)
文本数组 ＝ 分割文本 (编辑框1.内容, #换行符, )
数组成员数 ＝ 取数组成员数 (文本数组)
点击次数 ＝ 1
是否修改 ＝ 真
.如果真结束
.如果 (点击次数 ≤ 数组成员数)
文本 ＝ 文本数组 [点击次数]
显示文本 ＝ 分割文本 (文本, “:”, )
.如果真 (取数组成员数 (显示文本) ＞ 1)
编辑框2.内容 ＝ 显示文本 [1]
编辑框3.内容 ＝ 显示文本 [2]
.如果真结束
点击次数 ＝ 点击次数 ＋ 1
.否则
信息框 (“完成！”, 0, )
.如果结束
|
运行结果：
总结
以上就是这篇文章的全部内容了，希望本文的内容对大家的学习或者工作具有一定的参考学习价值，谢谢大家对服务器之家的支持。如果你想了解更多相关内容请查看下面相关链接