我想将“金饭碗大学.txt”读入表文件jfwdx.dbf中[字段名：工科七子 C(20),文理八校 C(20),
兵工七子 C(20),师大六姐 C(20),五院四系 C(20)],不知如何操作，还请各位赐教，万分感谢！！！

金饭碗大学.txt
工科七子:
清华大学、浙江大学、上海交通大学、哈尔滨工业大学、
天津大学、西安交通大学、 华中科技大学
文理八校:
北京大学、复旦大学、北京师范大学、 南京大学
武汉大学、中山大学、厦门大学、南开大学
兵工七子:
北京理工大学、南京理工大学、中北大学、 长春理工大学、
沈阳理工大学、西安工业大学、 重庆理工大学
师大六姐:
北京师范大学、华东师范大学、 华中师范大学、
东北师范大学、西南大学、陕西师范大学
五院四系:
中国政法大学、西南政法大学、 华东政法大学、
西北政法大学、中南财经政法大学、 北京大学法学院
武汉大学法学院、吉林大学法学院、 中国人民大学

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

TEXT TO lcStr NOSHOW
工科七子:
清华大学、浙江大学、上海交通大学、哈尔滨工业大学、
天津大学、西安交通大学、 华中科技大学 
文理八校:
北京大学、复旦大学、北京师范大学、 南京大学 
武汉大学、中山大学、厦门大学、南开大学
兵工七子:
北京理工大学、南京理工大学、中北大学、 长春理工大学、
沈阳理工大学、西安工业大学、 重庆理工大学 
师大六姐:
北京师范大学、华东师范大学、 华中师范大学、 
东北师范大学、西南大学、陕西师范大学
五院四系:
中国政法大学、西南政法大学、 华东政法大学、 
西北政法大学、中南财经政法大学、 北京大学法学院 
武汉大学法学院、吉林大学法学院、 中国人民大学 
ENDTEXT

CREATE CURSOR jfwdx (工科七子 C(20),文理八校 C(20),兵工七子 C(20),师大六姐 C(20),五院四系 C(20))
FOR ln = 1 TO 10
    APPEND BLANK 
ENDFOR
*
lc = ""
FOR ln = 1 TO FCOUNT()
    lc = lc + IIF(EMPTY(lc), SPACE(0),",") + "'" + FIELD[ln] + "'"
ENDFOR
*
= ALINES(laStr, lcStr)
FOR ln1 = 1 TO ALEN(laStr, 1)
    ALINES(la1, laStr[ln1], 5, "、")
    IF INLIST(laStr[ln1], &lc)
        lcName = CHRTRAN(laStr[ln1], ":", SPACE(0))
        lnRow = 1
    ELSE
        DIMENSION la1[ALEN(la1, 1), 1]
        GO lnRow
        REPLACE FROM ARRAY  la1 FIELDS &lcName NEXT ALEN(la1, 1) 
        lnRow = lnRow + ALEN(la1, 1)
    ENDIF
ENDFOR
BROWSE 

[此贴子已经被作者于2023-2-11 11:49编辑过]

@sdta 非常感谢！！！