.版本 2
.支持庫 spec
.程序集 窗口程序集1
.子程序 _端口1_數(shù)據(jù)到達
.參數(shù) 數(shù)據(jù)字節(jié)值, 整數(shù)型
調試輸出 (數(shù)據(jù)字節(jié)值)
函數(shù)_裝載 (數(shù)據(jù)字節(jié)值)
' 調試輸出 (“數(shù)據(jù):” + 到文本 (數(shù)據(jù)字節(jié)值) + “定位:” + 到文本 (變量_定位))
.子程序 __啟動窗口_創(chuàng)建完畢
變量_數(shù)據(jù) = 到字節(jié)集 (“AAAAABBBBBCCCCCDDDDDEEEEEFFFFFGGGGG”)
變量_定位 = 0
變量_開始位 [1] = 0
變量_開始位 [2] = 0
變量_開始位 [3] = 0
變量_開始位 [4] = 0
變量_開始位 [5] = 0
變量_長度位 = 0
變量_校驗高 = 0
.子程序 函數(shù)_裝載, 整數(shù)型, , 審查成功 0 失敗 12345 開始 6 長度 7。。數(shù)據(jù)
.參數(shù) 參數(shù)_1, 整數(shù)型
.如果 (參數(shù)_1 = 66)
變量_定位 = 0
.否則
.如果結束
變量_定位 = 變量_定位 + 1
' 判斷開始,并裝載數(shù)據(jù)
' 并不對開始位進行檢查
.判斷開始 (變量_定位 = 1)
變量_開始位 [1] = 參數(shù)_1
.判斷 (變量_定位 = 2)
變量_開始位 [2] = 參數(shù)_1
.判斷 (變量_定位 = 3)
變量_開始位 [3] = 參數(shù)_1
.判斷 (變量_定位 = 4)
變量_開始位 [4] = 參數(shù)_1
.判斷 (變量_定位 = 5)
變量_開始位 [5] = 參數(shù)_1
.默認
.判斷結束
' BEGIN
.判斷開始 (變量_定位 = 6)
變量_長度位 = 參數(shù)_1
.默認
.判斷結束
' 長度
.判斷開始 (變量_定位 = 5 + 1 + 變量_長度位 + 1)
變量_校驗高 = 參數(shù)_1
.默認
.判斷結束
.判斷開始 (變量_定位 = 5 + 1 + 變量_長度位 + 1 + 1)
變量_校驗低 = 參數(shù)_1
.默認
.判斷結束
.判斷開始 (字符 (變量_開始位 [1]) + 字符 (變量_開始位 [2]) + 字符 (變量_開始位 [3]) + 字符 (變量_開始位 [4]) + 字符 (變量_開始位 [5]) = “BEGIN”)
.判斷開始 (變量_定位 > 5 + 1 且 變量_定位 < 5 + 1 + 變量_長度位 + 1)
變量_數(shù)據(jù) [變量_定位] = 到字節(jié) (參數(shù)_1)
' 調試輸出 (“裝載數(shù)據(jù):” + 到文本 (到字節(jié) (參數(shù)_1)) + “ ” + 到文本 (變量_定位))
.默認
.判斷結束
.默認
.判斷結束
返回 (變量_定位)
.子程序 _按鈕1_被單擊
.局部變量 i, 整數(shù)型
編輯框BEGIN.內容 = 字符 (變量_開始位 [1]) + 字符 (變量_開始位 [2]) + 字符 (變量_開始位 [3]) + 字符 (變量_開始位 [4]) + 字符 (變量_開始位 [5])
編輯框長度.內容 = 到文本 (變量_長度位)
編輯框校驗.內容 = “”
編輯框校驗.內容 = 到文本 (變量_校驗高)
編輯框校驗.內容 = 編輯框校驗.內容 + “|”
編輯框校驗.內容 = 編輯框校驗.內容 + 到文本 (變量_校驗低)
編輯框內容.內容 = “”
.計次循環(huán)首 (變量_長度位, i)
編輯框內容.內容 = 編輯框內容.內容 + “|”
編輯框內容.內容 = 編輯框內容.內容 + 到文本 (變量_數(shù)據(jù) [i + 6])
.計次循環(huán)尾 ()
編輯框漢字顯示.內容 = 到文本 (取字節(jié)集中間 (變量_數(shù)據(jù), 7, 變量_長度位))
|