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

只改了路径

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 

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

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

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

没有必要非把序号一起加上，因为导入之后加入序号非常简单。