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