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

已结贴√ 问题点数：20 回复次数：13

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

现有“全国三八红旗手名单.txt”文本文件，如何将它写入表文件中[字段名为：序号 N(4),省市 C(18),姓名 C(8),单位及职务 M]
请高手赐教，不胜感谢！！！[本着学习的目的，盼高手指点！]

全国三八红旗手名单.txt（部分）
北京
王  锐北京服装学院教授
黄会林中国文化国际传播研究院院长
邵天帅北方昆曲剧院演员中心副主任

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

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

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

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

解放军和武警部队
张发菊青海省军区某室主任、高级工程师
顾巧云中国人民解放军32070部队第二室研究员

搜索更多相关主题的帖子: 文件　写入　 txt　红旗　表中　

第 2 楼

得分:20

程序代码：

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