怎样将“金饭碗大学.txt”读入表文件中

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