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

原创于 2012-01-28 20:19:47 发布 · 1k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#insert #c

原创同时被 2 个专栏收录

21 篇文章

订阅专栏

vfp-自定义方法

11 篇文章

订阅专栏

本文介绍了一个使用区位码进行汉字输出的程序实现过程。该程序通过循环遍历特定范围内的区位码，并将其转换为对应的汉字字符，同时展示了如何在屏幕上布局这些字符。此外，还提供了一个区位码到汉字的查询子程序。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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)