.版本 2
公告內容 ＝ 到位元組集 (刪全部空 (_啟動視窗.公告資訊編輯框.內容))
公告長度 ＝ 取位元組集長度 (公告內容)
公告資訊 ＝ 到位元組集 (_啟動視窗.公告資訊組合.內容)
公告資訊 ＝ 到位元組集 (取空白文本 (資料長度 ÷ 2 － 取位元組集長度 (公告資訊) ÷ 2 － 1)) ＋ 公告資訊 ＋ 到位元組集 (取空白文本 (資料長度 ÷ 2 － 取位元組集長度 (公告資訊) ÷ 2 － 2)) ' 處理公告標題..資訊..
.如果 (_啟動視窗.公告資訊組合.現行選中項 ＝ 1) ' 以帳號方式,發送資訊..
.如果真 (取文本長度 (_啟動視窗.帳號.內容) ≤ 0)
_啟動視窗.標題 ＝ “請正確輸入公告帳號資訊!”
_啟動視窗.公告發送.禁止 ＝ 假
回傳 ()
.如果真結束
帳號資訊 ＝ 到位元組集 (刪全部空 (_啟動視窗.帳號.內容))
帳號公告初始 ＝ 位元組集替換 (帳號公告初始, 69, 取位元組集長度 (帳號資訊) ＋ 1, 帳號資訊 ＋ { 0 })
_啟動視窗.公告連接.發送資料 (位元組集替換 (帳號公告初始, 9, 取位元組集長度 (公告資訊) ＋ 1, 公告資訊 ＋ { 0 }))
延時 (500)
.回圈判斷首 () ' 以其它方式發送資訊..
.如果 (資料長度 × 次數 － 資料長度 ＋ 資料長度 ≥ 公告長度)
.如果 (進數)
公告資訊 ＝ 取位元組集中間 (公告內容, 資料長度 × 次數 － 資料長度, 資料長度 － (資料長度 × 次數 － 資料長度 ＋ 資料長度 － 公告長度 － 1))
.否則
公告資訊 ＝ 取位元組集中間 (公告內容, 資料長度 × 次數 － 資料長度 ＋ 1, 資料長度 － (資料長度 × 次數 － 資料長度 ＋ 資料長度 － 公告長度))
.如果結束
公告資訊 ＝ 到位元組集 (取空白文本 (資料長度 ÷ 2 － 取位元組集長度 (公告資訊) ÷ 2 － 1)) ＋ 公告資訊 ＋ 到位元組集 (取空白文本 (資料長度 ÷ 2 － 取位元組集長度 (公告資訊) ÷ 2 － 2))
_啟動視窗.公告連接.發送資料 (位元組集替換 (帳號公告初始, 9, 取位元組集長度 (公告資訊) ＋ 1, 公告資訊 ＋ { 0 }))
跳出回圈 ()
.否則
.如果 (處理公告字符 (取位元組集中間 (公告內容, 資料長度 × 次數 － 資料長度 ＋ 1, 資料長度)))
.如果 (進數)
公告資訊 ＝ 取位元組集中間 (公告內容, 資料長度 × 次數 － 資料長度, 資料長度)
.否則
公告資訊 ＝ 取位元組集中間 (公告內容, 資料長度 × 次數 － 資料長度 ＋ 1, 資料長度)
.如果結束
.否則
.如果 (進數)
公告資訊 ＝ 取位元組集中間 (公告內容, 資料長度 × 次數 － 資料長度, 資料長度)
進數 ＝ 假
.否則
公告資訊 ＝ 取位元組集中間 (公告內容, 資料長度 × 次數 － 資料長度 ＋ 1, 資料長度)
進數 ＝ 真
.如果結束
.如果結束
_啟動視窗.公告連接.發送資料 (位元組集替換 (帳號公告初始, 9, 資料長度 ＋ 1, 公告資訊 ＋ { 0 }))
次數 ＝ 次數 ＋ 1
延時 (500)
.如果結束
.回圈判斷尾 (真)
' 完成帳號方式發送公告資訊...
.否則
_啟動視窗.公告連接.發送資料 (位元組集替換 (系統公告初始, 9, 取位元組集長度 (公告資訊) ＋ 1, 公告資訊 ＋ { 0 }))
延時 (500)
.回圈判斷首 () ' 以其它方式發送資訊..
.如果 (資料長度 × 次數 － 資料長度 ＋ 資料長度 ≥ 公告長度)
.如果 (進數)
公告資訊 ＝ 取位元組集中間 (公告內容, 資料長度 × 次數 － 資料長度, 資料長度 － (資料長度 × 次數 － 資料長度 ＋ 資料長度 － 公告長度 － 1))
.否則
公告資訊 ＝ 取位元組集中間 (公告內容, 資料長度 × 次數 － 資料長度 ＋ 1, 資料長度 － (資料長度 × 次數 － 資料長度 ＋ 資料長度 － 公告長度))
.如果結束
公告資訊 ＝ 到位元組集 (取空白文本 (資料長度 ÷ 2 － 取位元組集長度 (公告資訊) ÷ 2 － 1)) ＋ 公告資訊 ＋ 到位元組集 (取空白文本 (資料長度 ÷ 2 － 取位元組集長度 (公告資訊) ÷ 2 － 2))
_啟動視窗.公告連接.發送資料 (位元組集替換 (系統公告初始, 9, 取位元組集長度 (公告資訊) ＋ 1, 公告資訊 ＋ { 0 }))
跳出回圈 ()
.否則
.如果 (處理公告字符 (取位元組集中間 (公告內容, 資料長度 × 次數 － 資料長度 ＋ 1, 資料長度)))
.如果 (進數)
公告資訊 ＝ 取位元組集中間 (公告內容, 資料長度 × 次數 － 資料長度, 資料長度)
.否則
公告資訊 ＝ 取位元組集中間 (公告內容, 資料長度 × 次數 － 資料長度 ＋ 1, 資料長度)
.如果結束
.否則
.如果 (進數)
公告資訊 ＝ 取位元組集中間 (公告內容, 資料長度 × 次數 － 資料長度, 資料長度)
進數 ＝ 假
.否則
公告資訊 ＝ 取位元組集中間 (公告內容, 資料長度 × 次數 － 資料長度 ＋ 1, 資料長度)
進數 ＝ 真
.如果結束
.如果結束
_啟動視窗.公告連接.發送資料 (位元組集替換 (系統公告初始, 9, 資料長度 ＋ 1, 公告資訊 ＋ { 0 }))
次數 ＝ 次數 ＋ 1
延時 (500)
.如果結束
.回圈判斷尾 (真)
.如果結束
_啟動視窗.標題 ＝ “您的公告已發送成功!”
_啟動視窗.公告發送.禁止 ＝ 假
.如果真結束
_啟動視窗.公告發送.禁止 ＝ 假
uj5u.com熱心網友回復：
易語言全中文，讀起來，不 不適應呢!uj5u.com熱心網友回復：
看的頭都痛了，還是找專業的翻譯軟體吧轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/84744.html
標籤：語言基礎/算法/系統設計