标题:如何将“全国著名旅游景点.txt”读入表文件中
只看楼主
王咸美
Rank: 1
等 级:新手上路
帖 子:569
专家分:0
注 册:2018-1-4
结帖率:96.99%
已结贴  问题点数:20 回复次数:13 
如何将“全国著名旅游景点.txt”读入表文件中
现有“全国著名旅游景点.txt”,如何将它读入表文件zmjd.dbf中【字段名为:北京、澳门、上海、…… 要求:1、动态建立表文件,2、每个省市一列数据 】请高手赐教,万分感谢!!!

全国著名旅游景点.txt
    1、北京旅游景点
  八达岭、故宫、什刹海、圆明园、玉渊潭、龙庆峡、十三陵、天安门、香山、颐和园、天坛、十渡、百花山、潭柘寺、雍和宫、幽谷神潭、紫竹院、黑龙潭、康西草原、中央电视塔。
  2、澳门旅游景点
  妈祖阁、大三巴牌坊、澳门文化中心、澳门博物馆、玫瑰圣母堂、竹湾海滩。
  3、上海旅游景点
  东方明珠、豫园、新天地、上海外滩、朱家角、金茂大厦、城隍庙、东平森林公园、东方绿舟、国际会议中心、淮海路、静安寺、龙华烈士陵园、鲁迅故居、南浦大桥、浦东国际机场、庆云寺、上海大剧院、世纪大道、松江方塔、徐家汇天主教堂、杨浦大桥、中共一大会址、滨江大道、共青森林公园。
  4、辽宁旅游景点
  沈阳故宫、千山、昭陵、玉佛苑、本溪水洞、金石滩、虎滩乐园、鸭绿江大桥、辽宁省博物馆、棒棰岛、大孤山风景名胜区、海王九岛、赫图阿拉城、怪坡、星海公园。
  5、重庆旅游景点
  三峡大坝、葛洲坝、瞿塘峡、歌乐山、巫峡、渣滓洞、白帝城、白公馆、丰都鬼城、石宝寨、芙蓉洞、缙云山、金佛山、宝顶山、四面山。
  6、西藏旅游景点
  珠穆朗玛峰、大昭寺、然乌湖、布达拉宫、纳木错、墨脱、圣湖、八廓街、扎什伦布寺、桑耶寺、神山、色拉寺、羊卓雍湖、哲蚌寺、罗布林卡、古格王朝、日喀则、绒布寺、萨迦寺、小昭寺、雍布拉康、托林寺、班公湖、昌珠寺、强巴林寺、雅鲁藏布江、夏鲁寺、藏王墓、楚布寺。
  7、青海旅游景点
  青海湖、塔尔寺、茶卡盐湖、鸟岛、日月山、坎布拉、格尔木、柴达木盆地、北禅寺、东关清真大寺、黄河源、孟达天池、倒淌河。
  8、宁夏旅游景点
  沙湖、西夏王陵、贺兰山岩画、长江源、青铜峡108塔、沙坡头、玉皇阁、中卫高庙、宏佛塔。
  9、台湾旅游景点
  宝岛美景、阿里山、日月潭、阳明山、玉山、太鲁阁、台北故宫、板桥林家花园、野柳、赤嵌楼、溪头、秀姑峦溪、鹅銮鼻、合欢山、七美岛。
  10、山西旅游景点
  五台山、恒山、平遥古城、壶口瀑布、乔家大院、云冈石窟、王家大院、北武当山、晋祠、悬空寺、显通寺、日升昌票号、广胜寺、庞泉沟、应县木塔、南山寺、善化寺。
  11、黑龙江旅游景点
  大兴安岭、漠河、镜泊湖、太阳岛、吊水楼瀑布、冰雪大世界、极乐寺、亚布力滑雪场、扎龙自然保护区、圣索菲亚大教堂。
  12、甘肃旅游景点
  嘉峪关、莫高窟、玉门关、郎木寺、伏羲庙、麦积山石窟、炳灵寺石窟、崆峒山。
  13、湖北旅游景点
  三峡、神农架、武当山、黄鹤楼、归元寺、葛洲坝、东湖、西陵峡、五道峡、大九湖、九畹溪、香溪源、燕子垭。
  14、内蒙旅游景点
  呼伦贝尔草原、成吉思汗陵、阿斯哈图石林、赤峰、五当召、响沙湾、扎兰屯、锡林浩特、达里诺尔湖、大青沟、格根塔拉草原、黑里河。
  15、天津旅游景点
  古文化街、盘山、食品街、独乐寺、大沽口炮台、天后宫、天成寺舍利塔、太平寨、千像寺、八卦城、清真大寺、蓟县白塔。
  16、新疆旅游景点
  塞里木湖、喀纳斯、那拉提草原、吐鲁番、魔鬼城、火焰山、交河故城、高昌古城、喀什、博斯腾湖、阿尔泰山、白杨沟、博格达山、楼兰、卡拉库里湖、罗布泊、果子沟、艾丁湖、乌伦湖、红山、霍尔果断、坎儿井、慕士塔格峰、艾提尕尔清真寺、香妃墓、伊犁河、苏公塔、石头城、葡萄沟、天池。
  17、云南旅游景点
  西双版纳、哈巴雪山、玉龙雪山、金沙江、泸沽湖、洱海、纳帕海、中甸、怒江、澜沧江、天生桥、白水河、落水村、蝴蝶泉、云杉坪、明永冰川、白马雪山、乃古石林、孔雀湖、独树成林、白沙壁画。
  18、广东旅游景点
  丹霞山、欢乐谷、白云山、南华寺、越秀山、连州地下河、必背瑶寨、从化温泉、流花湖公园、万绿湖、南澳岛、英西峰林走廊、光孝寺。
  19、香港旅游景点
  香港夜景、海洋公园、迪士尼乐园、尖沙咀、浅水湾、大屿山铜锣湾、天坛大佛、万佛寺、青马大桥、太平山顶、凌霄阁维多利亚公园、沙田马场、南丫岛、九龙城寨公园、宝莲寺、西贡、荃湾、大浪湾、北帝庙、香港太空馆、圣约翰大教堂、海蚀洞。
  20、陕西旅游景点
  兵马俑、华山、华清池、法门寺、延安、宝塔山、大慈恩寺、关山牧场、骊山、西安碑林、司马迁墓、炎帝陵、香溪洞风景区、灵崖寺、三原城隍庙。
  21、海南旅游景点
  三亚、五指山、万泉河、天涯海角、鹿回头、南山、亚龙湾、西沙群岛、博鳌、大东海、东郊椰林、东坡书院、五公祠、琼台书院、兴隆旅游度假区、东寨港红树林。
  22、河北旅游景点
  避暑山庄、北戴河、赵州桥、清东陵、清西陵、野三坡、白洋淀、山海关、木兰围场、小五台、燕塞湖、古莲花池、苍岩山、河北开元寺、角山、隆兴寺、菩提岛、天梯山、老龙头景区、普陀宗乘之庙、白云古洞、和平森林公园。
  23、江苏旅游景点
  周庄、中山陵、瘦西湖、夫子庙、鼋头渚、寒山寺、灵山大佛、秦准河、同里、拙政园、虎丘、留园、明孝陵、栖霞山、尚湖、玄武湖、中华门、蠡园、大明寺、龟山汉墓、焦山、茅山、狮子林、云龙山、北固山、太湖仙岛、狼山风景区。
  24、四川旅游景点
  九寨沟、峨眉山、都江堰、稻城、杜甫草堂、亚丁、西岭雪山、木格错、二郎山、米亚罗、黄龙、武侯祠、海子山、海螺沟、青城山、则查洼、日则沟、央迈勇、仙乃日、蜀南竹海、乐山大佛、报国寺、三星堆、树正沟、盆景池、万年寺、牟尼沟、僰人悬棺。
  25、广西旅游景点
  桂林山水、德天瀑布、姑婆山、漓江、阳朔、龙脊梯田、天坑、纳灵洞、七星岩、圣堂山、象鼻山、斜阳岛、莲花山、涠洲岛、星岛湖。
  26、吉林旅游景点
  天池、松花湖、长白山、北大湖、长春风景、伪皇宫、净月潭、松花江、仙景台、拉法山国家公园。
  27、福建旅游景点
  鼓浪屿、东山岛、永定土楼、天游峰、南普陀寺、泉州、开元寺、鳌园、太姥山、九曲溪、胡里山炮台、鸳鸯溪、菽庄花园、万石岩。
  28、安徽旅游景点
  黄山、白云景区、包公祠、报恩寺、巢湖、甘露寺、环城公园、九华山、琅琊山、齐云山、天堂寨、天柱山、五溪山色、逍遥津、琥珀山庄、祗园寺。
  29、山东旅游景点
  泰山、崂山、蓬莱阁、大明湖、趵突泉、微山湖、孔庙、长岛、孔林、孔府、千佛山、八大关、栈桥、太清宫、龙潭瀑布、蓬莱水城。
  30、浙江旅游景点
  西湖、普陀山、雁荡山、千岛湖、嵊泗列岛、乌镇、天台山、龙王山、灵隐寺、江郎山、大慈岩、藏龙百瀑、天一阁、天童寺、保国寺、龙游石窟、鲁迅故居、西天目山、岳庙、雪窦山、龙泉山、河姆渡、海宁潮、大佛寺、白堤、三潭印月、天目溪、仙叠岩、双溪竹海、断桥残雪、严子陵钓台、虎跑梦泉、穿岩十九峰、咸亨酒店。
  31、江西旅游景点
  庐山、三清山、井冈山、腾王阁、鄱阳湖、五指峰、茨坪、翠岩禅寺、含鄱口、绳金塔、水观音亭、仙水岩、浔阳楼。
  32、湖南旅游景点
  湘江、衡山、洞庭湖、张家界、湘西凤凰、岳阳楼、滴水洞、芙蓉镇、黄狮寨、金鞭溪、仰天湖、猛洞河、岳麓书院、毛泽东故居、沈从文故居、德夯、十里画廊、黄丝桥古城。







[此贴子已经被作者于2023-2-26 10:16编辑过]

搜索更多相关主题的帖子: 表中 读入 txt 文件 上海 
2023-02-26 10:15
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:323
帖 子:9621
专家分:26174
注 册:2012-2-5
得分:0 
程序代码:
lcTxt = FILETOSTR("王咸美\全国著名旅游景点.TXT")
= ALINES(laTxt, STRTRAN(lcTxt, CHR(41377), SPACE(0)), 5)
CREATE CURSOR zmjd (序号 C(4))
FOR ln = 1 TO 50
    APPEND BLANK 
ENDFOR
FOR ln1 = 1 TO ALEN(laTxt, 1)
    IF MOD(ln1, 2) != 0
        = ALINES(la1, laTxt[ln1], 5, "、")
        lczdm = STRTRAN(la1[2], "旅游景点", SPACE(0))
        ALTER TABLE zmjd ADD &lczdm C(20)
    ENDIF
    = ALINES(la2, laTxt[ln1], 5, "、", "。") 
    DIMENSION la2[ALEN(la2, 1), 1]
    REPLACE FROM ARRAY la2 FIELDS &lczdm ALL 
ENDFOR
BROWSE 


坚守VFP最后的阵地
2023-02-26 11:13
schtg
Rank: 11Rank: 11Rank: 11Rank: 11
来 自:https://t.me/pump_upp
等 级:贵宾
威 望:67
帖 子:1355
专家分:2534
注 册:2012-2-29
得分:0 
回复 楼主 王咸美
谢谢sdta!
2023-02-26 11:13
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:323
帖 子:9621
专家分:26174
注 册:2012-2-5
得分:20 
2楼代码修改如下

程序代码:
lcTxt = FILETOSTR("王咸美\全国著名旅游景点.TXT")
= ALINES(laTxt, STRTRAN(lcTxt, CHR(41377), SPACE(0)), 5)
CREATE CURSOR zmjd (序号 C(4))
FOR ln = 1 TO 50
    APPEND BLANK 
ENDFOR
lnMax = 0 && 新增
FOR ln1 = 1 TO ALEN(laTxt, 1)
    IF MOD(ln1, 2) != 0
        = ALINES(la1, laTxt[ln1], 5, "、")
        lczdm = STRTRAN(la1[2], "旅游景点", SPACE(0))
        ALTER TABLE zmjd ADD &lczdm C(20)
    ENDIF
    = ALINES(la2, laTxt[ln1], 5, "、", "。") 
    IF ALEN(la2, 1) > lnMax && 新增
        lnMax = ALEN(la2, 1) && 新增
    ENDIF && 新增
    DIMENSION la2[ALEN(la2, 1), 1]
    REPLACE FROM ARRAY la2 FIELDS &lczdm ALL 
ENDFOR
DELETE FOR RECNO() > lnMax && 删除多余的空行  && 新增
PACK && 新增 
BROWSE 

坚守VFP最后的阵地
2023-02-26 11:22
王咸美
Rank: 1
等 级:新手上路
帖 子:569
专家分:0
注 册:2018-1-4
得分:0 
@sdta 非常感谢!!!
2023-02-26 11:24
王咸美
Rank: 1
等 级:新手上路
帖 子:569
专家分:0
注 册:2018-1-4
得分:0 
如果把“全国著名旅游景点.txt”读入表文件gsjd.dbf中[字段名为:序号 N(4)、省市名称 C(6)、著名景点 M],每省一条记录,代码又如何写?盼高手赐教,谢谢!
2023-02-26 19:55
冬海游鱼
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2021-8-21
得分:0 
为什么我运行了程序,后面都是F 空白。没导入汉字。
2023-02-26 20:03
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:323
帖 子:9621
专家分:26174
注 册:2012-2-5
得分:0 
以下是引用冬海游鱼在2023-2-26 20:03:03的发言:

为什么我运行了程序,后面都是F 空白。没导入汉字。

你的代码?

坚守VFP最后的阵地
2023-02-26 20:44
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:323
帖 子:9621
专家分:26174
注 册:2012-2-5
得分:0 
以下是引用王咸美在2023-2-26 19:55:35的发言:

如果把“全国著名旅游景点.txt”读入表文件gsjd.dbf中[字段名为:序号 N(4)、省市名称 C(6)、著名景点 M],每省一条记录,代码又如何写?盼高手赐教,谢谢!

你能动点脑子吗

坚守VFP最后的阵地
2023-02-26 20:46
王咸美
Rank: 1
等 级:新手上路
帖 子:569
专家分:0
注 册:2018-1-4
得分:0 
关键是水平不够。
2023-02-26 21:00



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




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

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