区位码转换为双字节字符（含汉字）

最新推荐文章于 2024-08-14 09:12:11 发布

lygcw9602

最新推荐文章于 2024-08-14 09:12:11 发布

阅读量991

点赞数

分类专栏： vfp-自定义方法原创文章标签： insert c

本文链接：https://blog.csdn.net/lygcw9602/article/details/7217001

版权

原创同时被 2 个专栏收录

21 篇文章 0 订阅

订阅专栏

vfp-自定义方法

11 篇文章 0 订阅

订阅专栏

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)