.子程序 _按鈕1_被單擊
.局部變量 讀入的文本, 文本型, , "0"
.局部變量 每行的文本, 文本型, , "0"
.局部變量 x, 整數型
讀入的文本 ＝ 分割文本 (到文本 (讀入文件 (取當前目錄 () ＋ “\字典.txt”)), #換行符, )
.計次循環首 (取數組成員數 (讀入的文本), x)
每行的文本 ＝ 分割文本 (讀入的文本 [x], “”, )
.如果真 (取數組成員數 (每行的文本) ＞ 0)
編輯框1.加入文本 (每行的文本 [1] ＋ #換行符)
.如果真結束
.計次循環尾 ()