分割文本代码
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, ) .如果结束 |
运行结果:
总结
以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定的参考学习价值,谢谢大家对服务器之家的支持。如果你想了解更多相关内容请查看下面相关链接