标题:如何将格式复杂的“全国文明城市提名城市名单.txt”写入表文件wmcs.dbf中
只看楼主
王咸美
Rank: 1
等 级:新手上路
帖 子:569
专家分:0
注 册:2018-1-4
结帖率:96.99%
已结贴  问题点数:20 回复次数:4 
如何将格式复杂的“全国文明城市提名城市名单.txt”写入表文件wmcs.dbf中
现有格式复杂的“全国文明城市提名城市名单.txt”,如何它写入表文件wmcs.dbf中[字段名为:省市名称 C(10),首府  C(10),省会  C(10),城区  C(60),地级  C(20),县级 M]
请高手赐教,万分感谢!!!(本人是新手,爱好VFP,不喜勿喷!)
全国文明城市提名城市名单.zip (2.89 KB)


  
    [全国文明城市提名城市名单.txt]

  北京
  城区:大兴区、丰台区、怀柔区、门头沟区、密云区、石景山区、顺义区
  天津
  城区:宝坻区、东丽区、河北区、河东区、津南区、南开区、武清区
  河北
  地级:沧州市、承德市、衡水市、张家口市
  县级:定州市、固安县、怀来县、黄骅市、乐亭县、临漳县、卢龙县、滦南县、滦州市、平山县、迁西县、任丘市、武安市、辛集市、新乐市
  山西
  省会:太原市
  地级:大同市、晋中市、阳泉市、运城市
  县级:高平市、洪洞县、怀仁市、岢岚县、灵石县、沁源县、襄垣县、阳城县、阳曲县、永济市
  内蒙古
  首府:呼和浩特市
  地级:赤峰市、呼伦贝尔市、乌兰察布市
  县级:阿鲁科尔沁旗、额济纳旗、鄂托克旗、二连浩特市、和林格尔县、科尔沁右翼前旗、土默特右旗、乌拉特中旗、乌兰浩特市、乌审旗、锡林浩特市、伊金霍洛旗
  辽宁
  地级:丹东市、抚顺市、葫芦岛市、辽阳市、营口市
  县级:北票市、东港市、凤城市、海城市、桓仁满族自治县、建平县、盘山县、瓦房店市、兴城市、庄河市
  吉林
  地级:白城市、辽源市、松原市、通化市
  县级:长白朝鲜族自治县、大安市、公主岭市、桦甸市、辉南县、珲春市、临江市、前郭尔罗斯蒙古族自治县
  黑龙江
  地级:黑河市、鸡西市、佳木斯市、牡丹江市
  县级:富锦市、抚远市、鸡东县、萝北县、漠河市、庆安县、汤原县、铁力市、通河县、同江市
  上海
  城区:宝山区、虹口区、黄浦区、普陀区
  江苏
  县级:宝应县、滨海县、东海县、东台市、阜宁县、灌南县、灌云县、金湖县、涟水县、沛县、射阳县、沭阳县、泗洪县、泗阳县、泰兴市、新沂市、兴化市、盱眙县、扬中市、仪征市
  浙江
  县级:淳安县、岱山县、东阳市、江山市、缙云县、开化县、兰溪市、宁海县、平阳县、浦江县、青田县、三门县、嵊泗县、泰顺县、桐乡市、温岭市、仙居县、象山县、新昌县、乐清市
  安徽
  地级:亳州市、池州市、淮南市、六安市
  县级:肥东县、肥西县、霍山县、郎溪县、蒙城县、明光市、南陵县、潜山市、青阳县、泗县、五河县、休宁县、颍上县
  福建
  地级:南平市
  县级:长泰县、长汀县、东山县、福鼎市、惠安县、将乐县、闽侯县、邵武市、泰宁县、武夷山市、永安市、永春县、永泰县
  江西
  地级:九江市、上饶市、宜春市、鹰潭市
  县级:崇义县、丰城市、贵溪市、金溪县、井冈山市、乐平市、龙南市、彭泽县、瑞金市、上栗县、武宁县、婺源县、新干县
  山东
  地级:滨州市、德州市、菏泽市、聊城市、枣庄市
  县级:博兴县、昌乐县、高密市、广饶县、桓台县、嘉祥县、金乡县、莒县、莱西市、利津县、临清市、宁阳县、平阴县、齐河县、滕州市、微山县、沂水县、郓城县、邹城市、邹平市
  河南
  地级:安阳市、鹤壁市、开封市、平顶山市、周口市
  县级:宝丰县、泌阳县、长葛市、登封市、方城县、滑县、洛宁县、民权县、清丰县、睢县、唐河县、舞钢市、武陟县、西平县、项城市、新密市、新郑市、荥阳市、义马市、禹州市
  湖北
  地级:黄冈市、黄石市、荆州市、咸宁市、襄阳市
  县级:当阳市、嘉鱼县、老河口市、潜江市、天门市、仙桃市、宣恩县、远安县、钟祥市、竹溪县
  湖南
  地级:衡阳市、邵阳市、益阳市、永州市
  县级:长沙县、道县、桂阳县、华容县、江华瑶族自治县、醴陵市、浏阳市、汩罗市、宁远县、平江县、桃江县、通道侗族自治县、新田县、岳阳县
  广东
  地级:河源市、揭阳市、茂名市、梅州市、清远市、汕头市、韶关市、湛江市
  县级:佛冈县、鹤山市、惠东县、蕉岭县、廉江市、平远县、乳源瑶族自治县、台山市、英德市
  广西
  地级:北海市、贵港市、河池市、贺州市、来宾市、柳州市、梧州市、玉林市
  县级:巴马瑶族自治县、扶绥县、横县、鹿寨县、马山县、蒙山县、平果市、天等县、兴安县
  海南
  地级:儋州市、三亚市
  县级:昌江黎族自治县、澄迈县、琼中黎族苗族自治县、文昌市
  重庆
  城区:巴南区、北碚区、璧山区、大足区、江津区、九龙坡区、南川区、綦江区、荣昌区、铜梁区、万州区、武隆区
  县级:城口县、丰都县、奉节县、巫山县
  四川
  地级:巴中市、达州市、广元市、攀枝花市、雅安市、资阳市
  县级:北川羌族自治县、大英县、大竹县、峨眉山市、富顺县、汉源县、简阳市、江安县、九寨沟县、乐至县、隆昌市、泸县、蓬安县、什邡市、西昌市
  贵州
  地级:安顺市、毕节市
  县级:赤水市、都匀市、龙里县、湄潭县、盘州市、黔西县、清镇市、施秉县、兴义市、玉屏侗族自治县、镇远县
  云南
  地级:保山市、丽江市、玉溪市、昭通市
  县级:沧源佤族自治县、大理市、大姚县、剑川县、景东彝族自治县、开远市、罗平县、芒市、蒙自市、双柏县、绥江县、文山市、宜良县
  西藏
  地级:昌都市、日喀则市
  县级:丁青县、噶尔县、米林县、尼玛县、曲水县、桑日县、亚东县
  陕西
  地级:安康市、渭南市、榆林市
  县级:府谷县、韩城市、合阳县、华阴市、黄龙县、麟游县、商南县、神木市、太白县、子长市
  甘肃
  地级:白银市、庆阳市、天水市、武威市、张掖市
  县级:崇信县、敦煌市、合作市、康县、陇西县、清水县、肃南裕固族自治县、永靖县、玉门市
  青海
  县级:大通回族土族自治县、格尔木市、共和县、互助土族自治县、尖扎县、祁连县
  宁夏
  地级:吴忠市、中卫市
  县级:灵武市、彭阳县、盐池县
  新疆
  地级:哈密市
  县级:阿合奇县、阿克苏市、阿拉尔市、布尔津县、阜康市、和田市、喀什市、奎屯市、若羌县、鄯善县、塔城市、泽普县



[此贴子已经被作者于2023-3-25 10:13编辑过]

搜索更多相关主题的帖子: dbf 文件 txt 城市 格式 
2023-03-25 08:19
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:323
帖 子:9621
专家分:26174
注 册:2012-2-5
得分:0 
。。。。。。。。。。。。

[此贴子已经被作者于2023-3-25 11:37编辑过]


坚守VFP最后的阵地
2023-03-25 11:26
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:323
帖 子:9621
专家分:26174
注 册:2012-2-5
得分:20 
思路如下
程序代码:
lcTxt = FILETOSTR("wmcs.Txt")
lcTxt = STRTRAN(lcTxt, CHR(41377), SPACE(0))
ALINES(laTxt, lcTxt, 1+4)
CREATE CURSOR wmcs (省市名称 C(10),首府  C(10),省会  C(10),城区  C(60),地级  C(20),县级 M)
FOR ln = 2 TO ALEN(laTxt, 1)
    ALINES(laStr, laTxt[ln], 1+4, ":")
    IF NOT ":"$laTxt[ln]
        INSERT INTO wmcs (省市名称) VALUES (laStr[1])
    ELSE
        REPLACE &laStr[1] WITH laStr[2]
    ENDIF
ENDFOR
BROWSE 


[此贴子已经被作者于2023-3-25 11:37编辑过]


坚守VFP最后的阵地
2023-03-25 11:29
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:323
帖 子:9621
专家分:26174
注 册:2012-2-5
得分:0 


[此贴子已经被作者于2023-3-25 11:38编辑过]


坚守VFP最后的阵地
2023-03-25 11:31
王咸美
Rank: 1
等 级:新手上路
帖 子:569
专家分:0
注 册:2018-1-4
得分:0 
@sdta 谢谢!!!
2023-03-25 11:48



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-511670-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.207179 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved