.版本 2
.程序集 窗口程序集1
.程序集變量 快捷信息, 文本型
.程序集變量 分割信息, 文本型, , "0"
.子程序 _輸入編輯框_內(nèi)容被改變
.局部變量 M, 整數(shù)型
.如果真 (輸入編輯框.內(nèi)容 ＝ “”)
  內(nèi)容列表框.可視 ＝ 假
  返回 ()
.如果真結(jié)束
內(nèi)容列表框.清空 ()
.計次循環(huán)首 (取數(shù)組成員數(shù) (分割信息), M)
  .如果 (尋找文本 (分割信息 [M], 輸入編輯框.內(nèi)容, , 假) ≠ -1)
    內(nèi)容列表框.插入項(xiàng)目 (0, 分割信息 [M], )
    內(nèi)容列表框.可視 ＝ 真
  .否則
  .如果結(jié)束
.計次循環(huán)尾 ()
.如果 (內(nèi)容列表框.取項(xiàng)目數(shù) () ＝ 0)
  內(nèi)容列表框.可視 ＝ 假
.否則
  .如果真 (內(nèi)容列表框.取項(xiàng)目數(shù) () ≤ 10)
    內(nèi)容列表框.高度 ＝ 14 × 內(nèi)容列表框.取項(xiàng)目數(shù) ()
  .如果真結(jié)束
  .如果真 (內(nèi)容列表框.取項(xiàng)目數(shù) () ＞ 10)
    內(nèi)容列表框.高度 ＝ 140
  .如果真結(jié)束
.如果結(jié)束
.子程序 __啟動窗口_創(chuàng)建完畢
快捷信息 ＝ 到文本 (讀入文件 (取運(yùn)行目錄 () ＋ “\信息源.txt”))
分割信息 ＝ 分割文本 (快捷信息, “*”, )
.子程序 _錄入按鈕_被單擊
寫到文件 (取運(yùn)行目錄 () ＋ “\信息源.txt”, 到字節(jié)集 (輸入編輯框.內(nèi)容 ＋ “*” ＋ 快捷信息))
__啟動窗口_創(chuàng)建完畢 ()
.子程序 _內(nèi)容列表框_列表項(xiàng)被選擇
輸入編輯框.內(nèi)容 ＝ 內(nèi)容列表框.取項(xiàng)目文本 (內(nèi)容列表框.現(xiàn)行選中項(xiàng))
內(nèi)容列表框.清空 ()
內(nèi)容列表框.可視 ＝ 假
.子程序 _輸入編輯框_按下某鍵, 邏輯型
.參數(shù) 鍵代碼, 整數(shù)型
.參數(shù) 功能鍵狀態(tài), 整數(shù)型
.如果真 (鍵代碼 ＝ 40)
  內(nèi)容列表框.現(xiàn)行選中項(xiàng) ＝ 內(nèi)容列表框.現(xiàn)行選中項(xiàng) ＋ 1
.如果真結(jié)束
.如果真 (鍵代碼 ＝ 38)
  內(nèi)容列表框.現(xiàn)行選中項(xiàng) ＝ 內(nèi)容列表框.現(xiàn)行選中項(xiàng) － 1
.如果真結(jié)束
.如果真 (鍵代碼 ＝ 13)
  _內(nèi)容列表框_列表項(xiàng)被選擇 ()
.如果真結(jié)束