| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1152 人关注过本帖
标题:如何将“全国著名旅游景点.txt”读入表文件中
只看楼主 加入收藏
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
以下是引用王咸美在2023-2-26 21:00:04的发言:

关键是水平不够。

关键你是没明白程序流程,没明白代码意思?把2楼的代码看明白了,稍加修改,你的问题也就解决了

坚守VFP最后的阵地
2023-02-26 21:03
冬海游鱼
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2021-8-21
收藏
得分:0 
只改了路径
程序代码:
lcTxt = FILETOSTR("e:\readrcn\全国著名旅游景点.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 
2023-02-26 21:14
冬海游鱼
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2021-8-21
收藏
得分:0 
一开始提示 下标超界,我去TXT文档里把 字头对齐,就不超界了。
会不会是记事本里的格式不一样造成的。
用的是ANSI 字符集
图片附件: 游客没有浏览图片的权限,请 登录注册


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

2023-02-26 21:20
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
以下是引用冬海游鱼在2023-2-26 21:20:07的发言:

一开始提示 下标超界,我去TXT文档里把 字头对齐,就不超界了。
会不会是记事本里的格式不一样造成的。
用的是ANSI 字符集

文本内容左侧的空格是两个全角字符,因此在代码中用了
STRTRAN(lcTxt, CHR(41377), SPACE(0))
CHR(41377) 代表一个全角空字符
可能就是这个原因吧

坚守VFP最后的阵地
2023-02-26 21:36
dbf永动机
Rank: 2
等 级:论坛游民
威 望:1
帖 子:77
专家分:21
注 册:2022-8-30
收藏
得分:0 
没有必要非把序号一起加上,因为导入之后加入序号非常简单。
2023-08-02 16:14
快速回复:如何将“全国著名旅游景点.txt”读入表文件中
数据加载中...
 
   



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

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