分割文本代碼
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, ) .如果結束 |
運行結果:
總結
以上就是這篇文章的全部內容了,希望本文的內容對大家的學習或者工作具有一定的參考學習價值,謝謝大家對服務器之家的支持。如果你想了解更多相關內容請查看下面相關鏈接