现有格式复杂的文本文件“985大学排名.txt”[顶级985（2所）占1行，中上985（6所）占2行，中流985（14所）占3行,中下985（11所）占2行，末流985（6所）占3行]
如何将它写入表文件中[字段名为：序号 N(4),大学分类 C(20),具体大学 M)
请高手赐教，万分感谢！！！

[985大学排名.txt]
1、顶级985（2所）
清华大学、北京大学
2、中上985（6所）
复旦大学、上海交通大学、浙江大学
中国科学技术大学、南京大学、中国人民大学
3、中流985（14所）
哈尔滨工业大学、西安交通大学、武汉大学、天津大学
南开大学、厦门大学、中山大学、东南大学、华中科技大学
北京理工大学、北京航空航天大学、同济大学、北京师范大学、国防科技大学
4、中下985（11所）
四川大学、山东大学、吉林大学、中南大学、大连理工大学、华东师范大学
西北工业大学、电子科技大学、华南理工大学、重庆大学、中国农业大学
5、末流985（6所）
中央民族大学、中国海洋大学
中南大学、兰州大学
东北大学、西北农林

TEXT TO lcStr NOSHOW
1、顶级985（2所）
清华大学、北京大学
2、中上985（6所）
复旦大学、上海交通大学、浙江大学
中国科学技术大学、南京大学、中国人民大学
3、中流985（14所）
哈尔滨工业大学、西安交通大学、武汉大学、天津大学
南开大学、厦门大学、中山大学、东南大学、华中科技大学
北京理工大学、北京航空航天大学、同济大学、北京师范大学、国防科技大学
4、中下985（11所）
四川大学、山东大学、吉林大学、中南大学、大连理工大学、华东师范大学
西北工业大学、电子科技大学、华南理工大学、重庆大学、中国农业大学
5、末流985（6所）
中央民族大学、中国海洋大学
中南大学、兰州大学
东北大学、西北农林
ENDTEXT
ALINES(laStr, lcStr)
CREATE CURSOR dx (序号 N(4),大学分类 C(20),具体大学 M)
lc = SPACE(0)
FOR ln1 = 1 TO ALEN(laStr, 1)
    IF VAL(laStr[ln1]) != 0
        IF NOT EMPTY(lc)
            INSERT INTO dx VALUES (ln3, lcfl, lc)
        ENDIF 
        lcfl = laStr[ln1]
        lc = SPACE(0)
        ln2 = 0
        ln3 = VAL(laStr[ln1])
    ELSE
        lc = lc + IIF(ln2 > 0, CHR(13) + CHR(10), SPACE(0)) + laStr[ln1]
        ln2 = ln2 + 1
    ENDIF
ENDFOR
INSERT INTO dx VALUES (ln3, lcfl, lc)
BROWSE 

@Sdta 谢谢，非常感谢热心指导！！！待会认真学习消化。

@sdta：你好！请问如何去掉“大学分类”中的数字“1、2、3、4、5”？请赐教！

lcfl = SUBSTR(laStr[ln1], AT("、", laStr[ln1]) + 2)

@sdta 谢谢！

楼主是干啥的，怎么老是搞这TXT解析的。