如何将“全国三八红旗手.txt”写入表文件中

TEXT TO lcStr NOSHOW
北京
王  锐 北京服装学院教授
黄会林 中国文化国际传播研究院院长
邵天帅 北方昆曲剧院演员中心副主任

内蒙古自治区
王美兰 内蒙古绿康源生态农业有限公司董事长
王改梅 内蒙古自治区乌海市乌达区滨海街道党工委书记

江苏省
吴红梅 江苏荣威娱乐用品有限公司高频车间线长
王  忆 自由撰稿人

新疆生产建设兵团
潘进慧 新疆生产建设兵团五家渠垦区人民法院审判委员会专职委员

中央和国家机关
郭金灿 中央对外联络部三局综合处处长
孙  慧 中央纪委国家监委信访室六处处长、一级调研员

解放军和武警部队
张发菊 青海省军区某室主任、高级工程师
顾巧云 中国人民解放军32070部队第二室研究员
ENDTEXT
CREATE CURSOR hqs (序号 N(4),省市 C(18),姓名 C(8),单位及职务 M)
ALINES(laStr, lcStr, 5)
FOR ln = 1 TO ALEN(laStr, 1)
    IF OCCURS(SPACE(1), laStr[ln]) = 0
        lcbm = laStr[ln]
    ELSE
        laStr[ln] = STRTRAN(laStr[ln], SPACE(2), "|")
        ALINES(la, laStr[ln], SPACE(1))
        INSERT INTO hqs VALUES (0, lcbm, la[1], la[2])
    ENDIF
ENDFOR
REPLACE 序号 WITH RECNO(), 姓名 WITH IIF("|"$姓名, STRTRAN(姓名, "|",SPACE(2)), 姓名) ALL
BROWSE