溫馨提示×
您好，登錄后才能下訂單哦！
點擊 登錄注冊 即表示同意《億速云用戶服務條款》
您好，登錄后才能下訂單哦！
編輯框只能輸入漢字例程
.版本 2
.支持庫 RegEx
.支持庫 spec
.程序集 啟動窗口程序集
.程序集變量 過濾后文本, 文本型
.子程序 __啟動窗口_創建完畢
默認窗口 ＝ SetWindowLongA (編輯框1.取窗口句柄 (), -4, &處理)
.子程序 處理, 整數型, , 不要修改該子程序的返回值及參數的類型！
.參數 句柄, 整數型
.參數 消息, 整數型
.參數 參數1, 整數型
.參數 參數2, 整數型
.局部變量 文本字節集, 字節集
.局部變量 i, 整數型
.局部變量 代碼, 字節型, , "0"
.局部變量 正則, 正則表達式
.局部變量 結果, 搜索結果, , "0"
.如果真 (消息 ＝ 770)
文本字節集 ＝ 到字節集 (取剪輯板文本 ())
過濾后文本 ＝ “”
i ＝ 1
.判斷循環首 (i ＜ 取字節集長度 (文本字節集))
.判斷開始 (到數值 (文本字節集 [i]) ≥ 176 且 到數值 (文本字節集 [i ＋ 1]) ≥ 161)
重定義數組 (代碼, 假, 0)
加入成員 (代碼, 文本字節集 [i])
加入成員 (代碼, 文本字節集 [i ＋ 1])
過濾后文本 ＝ 過濾后文本 ＋ 到文本 (到字節集 (代碼))
i ＝ i ＋ 2
到循環尾 ()
.判斷 (到數值 (文本字節集 [i]) ＞ 127)
i ＝ i ＋ 2
.判斷 (取整 (到數值 (文本字節集 [i])) ＝ 13)
調試輸出 (到數值 (文本字節集 [i]))
重定義數組 (代碼, 假, 0)
加入成員 (代碼, 13)
加入成員 (代碼, 10)
過濾后文本 ＝ 過濾后文本 ＋ 到文本 (到字節集 (代碼))
i ＝ i ＋ 1
.默認
i ＝ i ＋ 1
.判斷結束
.判斷循環尾 ()
編輯框1.加入文本 (過濾后文本)
返回 (1)
.如果真結束
返回 (CallWindowProcA (默認窗口, 句柄, 消息, 參數1, 參數2))
.子程序 _編輯框1_字符輸入, 整數型
.參數 字符代碼, 整數型
.如果真 (字符代碼 ＝ 13 或 字符代碼 ＝ 8)
返回 (字符代碼)
.如果真結束
.如果真 (字符代碼 ＜ 176)
返回 (0)
.如果真結束
運行結果：
總結
以上就是這篇文章的全部內容了，希望本文的內容對大家的學習或者工作具有一定的參考學習價值，謝謝大家對億速云的支持。如果你想了解更多相關內容請查看下面相關鏈接
免責聲明：本站發布的內容（圖片、視頻和文字）以原創、轉載和分享為主，文章觀點不代表本網站立場，如果涉及侵權請聯系站長郵箱：is@yisu.com進行舉報，并提供相關證據，一經查實，將立刻刪除涉嫌侵權內容。
