CREATE TABLE QHDM (区划代码 C(6),区划名称 C(100)) APPEND FROM DM.TXT TYPE SDF REPLACE ALL 区划名称 WITH LTRIM(区划名称) BROWSE
CREATE TABLE QH (区划代码 C(6),区划名称 C(100)) NLEN=ALINES(ADM,FILETOSTR([DM.TXT]),CHR(13)+CHR(10)) FOR I=1 TO NLEN INSERT INTO QH VALUES (LEFT(ADM(I),6),ALLTRIM(SUBSTRC(ADM(I),7))) ENDFOR BROWSE