区位码转换为双字节字符(含汉字)

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)



 

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值