程序代码：

SELECT * FROM LYGS WHERE .F. INTO CURSOR NJS READWRITE &&改成你的数据表
CSTR=FILETOSTR([NNN.TXT])
FOR I=1 TO ALINES(AA,CSTR,CHR(13)+CHR(10))         && 记录行数
    AA1=ALINES(BB,AA(I),[ ])                       && 将行记录存入数组
    *LIST MEMORY LIKE AA                           && 显示数组内容，从中可以发现规律(正式代码中可以不要该行)
    IF INLIST(LEN(BB(1)),6,9)                      && 根据代码部分长度，判断是否为两个字段
       INSERT INTO NJS VALUES (BB(1),[],BB(2))
    ELSE
       INSERT INTO NJS VALUES (BB(1),BB(2),BB(3))
    ENDIF
ENDFOR
BROWSE TITLE TRANSFORM(RECCOUNT())+[ 条记录]

程序代码：

320104 秦淮区  320104001 秦虹街道       320104001001 111 中牌楼社区居委会
320104 秦淮区  320104001 秦虹街道       320104001002 111 康居里社区居委会
320104 秦淮区  320104001 秦虹街道       320104001003 111 乔虹苑社区居委会
……
320104 秦淮区  320104002 夫子庙街道     320104002001 111 莲子营社区居委会
320104 秦淮区  320104002 夫子庙街道     320104002002 111 东水关社区居委会
320104 秦淮区  320104002 夫子庙街道     320104002005 111 乌衣巷社区居委会

……