set talk off
clear
qm=""
*create cursor qwm (qwm c(4),zf c(2))
for i=1 to 87
qm=iif(i<10,'0'+str(i,1),str(i,2))
@ 0,62 say "第 "+str(i,2)+" 區" font "宋體",12
row=3
col=1
wm=""
qmwm=""
for k=1 to 94
wm=iif(k<10,'0'+str(k,1),str(k,2))
qmwm=qm+wm
*insert into qwm (qwm,zf) values (qmwm,chr(val(left(qm,2))+160)+chr(val(right(wm,2))+160))
@ row,col say qmwm+" " +chr(val(left(qm,2))+160)+chr(val(right(wm,2))+160) font "宋體",12
col=col+13
if mod(k,10)=0
row=row+1.5
col=1
*=inkey(0.4)
endif
endfor
if i!=87
clear
endif
qm=""
endfor
return
*********************
procedure qwhz
parameters qw
if len(qw)!=4
return "不是區位碼"
endif
return chr(val(left(qw,2))+160)+chr(val(right(qw,2))+160)
從漢字到區位碼的轉換
學校要我們填寫畢業生的情況表,機讀卡那種,姓名要用區位碼.我想如果用程式來查詢的話,就是資料庫查詢,我想編乙個應該很簡單的,就上網看看有沒有類似的程式,然後我再用它的資料庫自己實現乙個,可讓我查到了乙個文章講如何實現從漢字到區位碼的轉換,呵呵,可以不用資料庫了.區位碼是與漢字一一對應的編碼,用四位數...
Android連線大華條碼秤區位碼轉換
大華條碼稱同步商品時,商品名需要轉化為區位碼才可以成功顯示,簡單記錄一下轉化方式,目前存在的缺陷是有的特殊字元不能正確識別。獲取完整的區位碼 param name 原始字串 return 區位碼 private string gettotalareacode string name string c...
16進製制字串轉換為位元組
最近在專案中遇到乙個小問題,記錄下來以備後用。語句 string str1 2a byte b1 convert.tobyte strmd51 錯誤資訊 輸入字串的格式不正確。解決方式 byte b1 convert.tobyte strmd51,16 函式解釋 摘要 將指定基數的數字的 syste...