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

来源:互联网 发布:淘宝卖电影资源犯法 编辑:程序博客网 时间:2024/06/10 08:15
SET TALK OFFCLEARQM="" *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=""ENDFORRETURN*********************PROCEDURE QWHZPARAMETERS QWIF LEN(QW)!=4   RETURN "不是区位码"ENDIFRETURN CHR(VAL(LEFT(QW,2))+160)+CHR(VAL(RIGHT(QW,2))+160)


 

原创粉丝点击