快捷錄入信息與關(guān)鍵詞匹配功能代碼
創(chuàng)新互聯(lián)堅(jiān)持“要么做到，要么別承諾”的工作理念，服務(wù)領(lǐng)域包括：做網(wǎng)站、成都網(wǎng)站制作、企業(yè)官網(wǎng)、英文網(wǎng)站、手機(jī)端網(wǎng)站、網(wǎng)站推廣等服務(wù)，滿足客戶于互聯(lián)網(wǎng)時(shí)代的托克托網(wǎng)站設(shè)計(jì)、移動(dòng)媒體設(shè)計(jì)的需求，幫助企業(yè)找到有效的互聯(lián)網(wǎng)解決方案。努力成為您成熟可靠的網(wǎng)絡(luò)建設(shè)合作伙伴！
重慶分公司
重慶分公司
.版本 2
.程序集 窗口程序集1
.程序集變量 快捷信息, 文本型
.程序集變量 分割信息, 文本型, , "0"
.子程序 _輸入編輯框_內(nèi)容被改變
.局部變量 M, 整數(shù)型
.如果真 (輸入編輯框.內(nèi)容 ＝ “”)
內(nèi)容列表框.可視 ＝ 假
返回 ()
.如果真結(jié)束
內(nèi)容列表框.清空 ()
.計(jì)次循環(huán)首 (取數(shù)組成員數(shù) (分割信息), M)
.如果 (尋找文本 (分割信息 [M], 輸入編輯框.內(nèi)容, , 假) ≠ -1)
內(nèi)容列表框.插入項(xiàng)目 (0, 分割信息 [M], )
內(nèi)容列表框.可視 ＝ 真
.否則
.如果結(jié)束
.計(jì)次循環(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é)束
.子程序 __啟動(dòng)窗口_創(chuàng)建完畢
快捷信息 ＝ 到文本 (讀入文件 (取運(yùn)行目錄 () ＋ “\信息源.txt”))
分割信息 ＝ 分割文本 (快捷信息, “*”, )
.子程序 _錄入按鈕_被單擊
寫到文件 (取運(yùn)行目錄 () ＋ “\信息源.txt”, 到字節(jié)集 (輸入編輯框.內(nèi)容 ＋ “*” ＋ 快捷信息))
__啟動(dòng)窗口_創(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é)
以上就是這篇文章的全部?jī)?nèi)容了，希望本文的內(nèi)容對(duì)大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價(jià)值，謝謝大家對(duì)創(chuàng)新互聯(lián)的支持。如果你想了解更多相關(guān)內(nèi)容請(qǐng)查看下面相關(guān)鏈接
