现有 2021年普通高中省级三好学生名单.docx 及表文件 shsmd.dbf
如何将 2021年普通高中省级三好学生名单.docx上内容写入shsmd.dbf中，盼高手赐教，万分感谢！！！

[此贴子已经被作者于2021-6-7 08:21编辑过]

shsmd.dbf格式如下：

非常感谢各位的指点！这次发的帖子与上次有所不同：WORD表格每行有两条记录，且各个市三好学生人数不一，恕本人水平有限，不知代码如何书写，诚心求教，盼指点！

@sdta  非常感谢热心指点！我是新手，还真不会，能否提供完整代码？供学习使用。再次表示感谢！！！

@吹水佬 非常感谢！！！

@sdta  根据你提供的文本格式，借鉴了吹水佬版主的代码，写了下列代码，出现一点小问题，盼指点！谢谢！！！
CLOSE DATABASES all
cDefPath = ADDBS(JUSTPATH(SYS(16)))
SET DEFAULT TO (cDefPath)
USE shsmd
ZAP
cStr = FILETOSTR("三好学生名单.txt")

n = ALINES(arr, cStr, 5, "市"+0h0D)
*n = ALINES(arr, cStr, 5, "市"+CHR(13)+CHR(10))
m = ALINES(ar, arr[1])
city = ar[m]+"市"
FOR i=2 TO n
    m = ALINES(ar, arr[i], 5, CHR(13),CHR(10))
    FOR j=7 TO m-2 STEP 3
        xm=ALLTRIM(GETWORDNUM(ar[j],1,CHR(13)))
        xb=ALLTRIM(GETWORDNUM(ar[j+1],1,CHR(13)))
        xxhbj=ALLTRIM(GETWORDNUM(ar[j+2],1,CHR(13)))
        INSERT INTO shsmd VALUES (ar[j],ar[j+1],city,ar[j+2])
    ENDFOR
    city = ar[m]+"市"
ENDFOR
SELECT  shsmd
browse

@吹水佬 多谢指点！出现问题的原因已找到，原来是三好学生名单.txt中有一个学生的“所在学校和班级”内容分成了两行。

[此贴子已经被作者于2021-6-9 12:54编辑过]

@吹水佬 谢谢指点！
xm=ALLTRIM(GETWORDNUM(ar[j],1,CHR(13)))
        xb=ALLTRIM(GETWORDNUM(ar[j+1],1,CHR(13)))
        xxhbj=ALLTRIM(GETWORDNUM(ar[j+2],1,CHR(13)))
这几行真没用

三好学生名单.txt

[此贴子已经被作者于2021-6-9 12:53编辑过]