以下是引用王咸美在2023-2-26 21:00:04的发言:
关键是水平不够。
关键是水平不够。
关键你是没明白程序流程,没明白代码意思?把2楼的代码看明白了,稍加修改,你的问题也就解决了
坚守VFP最后的阵地
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