快捷錄入信息與關(guān)鍵詞匹配功能代碼
.版本 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é)束
運(yùn)行結(jié)果:


總結(jié)
以上就是這篇文章的全部內(nèi)容了,希望本文的內(nèi)容對大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價值,謝謝大家對VeVb武林網(wǎng)的支持。
新聞熱點(diǎn)
疑難解答