拼音库提取程序

最新推荐文章于 2020-11-01 11:58:45 发布

lygcw9602

最新推荐文章于 2020-11-01 11:58:45 发布

阅读量601

点赞数

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

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

版权

原创同时被 2 个专栏收录

21 篇文章 0 订阅

订阅专栏

vfp-自定义方法

11 篇文章 0 订阅

订阅专栏

CREATE CURSOR WINPYK (词条 C(40),多音 C(8),汉字 C(28),拼音 C(12))
NROW=ALINES(AHZ,FILETOSTR([WINPY.TXT]),CHR(13)+CHR(10))
FOR I=1 TO NROW
    NROW1=ALINES(AH,AHZ(I),[ ])   && 提取行记录
    NLEN=LEN(AH(1))-LENC(AH(1))   && 汉字长度
    INSERT INTO WINPYK VALUES (AH(1),IIF(NROW1=1,[],AH(2)),LEFT(AH(1),NLEN*2),SUBSTR(AH(1),NLEN*2+1))
ENDFOR