如何将“全国著名旅游景点.txt”读入表文件中 - VFP论坛

编程论坛 → 数据库技术 → 『 VFP论坛』 → 如何将“全国著名旅游景点.txt”读入表文件中

标题：如何将“全国著名旅游景点.txt”读入表文件中

只看楼主

sdta

来　自：江苏省连云港市
等　级：版主
威　望：323
帖　子：9621
专家分：26174
注　册：2012-2-5

第 11 楼

得分:0

以下是引用王咸美在2023-2-26 21:00:04的发言：

关键是水平不够。

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

坚守VFP最后的阵地

2023-02-26 21:03

冬海游鱼

等　级：新手上路
帖　子：7
专家分：0
注　册：2021-8-21

第 12 楼

得分: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