)

(setq fp (open fname "r"))

(setq txt_tb '())

(while (setq txt1 (read_line fp))

(setq txt_tb (cons txt1 txt_tb))

)

(close fp)

(setq txt_tb (reverse txt_tb))

(setq old_nn 1)；记录索引号

)

; 更换列表框内词组显示内容

(defun wr_txt ( / fname fname1 fp txt1 i)

(setq i 1)

(while (<= i nn); 判别哪个词组项被点中

(if (= (get_tile (strcat "c" (itoa i))) "1")

(setq fname1 (strcat "$txt" (itoa i) ".dat")

i nn

)

)

(setq i (1+ i))

)

(if (setq fname (findfile fname1)); 查找文件是否存在

(progn

(setq old_nn (atoi (substr fname1 5)))；记录索引号

(setq fp (open fname "r"))

(setq txt_tb '())

(while (setq txt1 (read_line fp))；依次读出各词组

(setq txt_tb (cons txt1 txt_tb))

)

(close fp)

(setq txt_tb (reverse txt_tb))

(start_list "what")；在列表框内显示词组内容

(mapcar 'add_list txt_tb)

(end_list)

) ; progn

(progn

(alert (strcat "文件" fname1 "不存在!"))

(set_tile (strcat "c" (itoa old_nn)) "1")；恢复原记录号

)

) ; if

)

; 主程序开始

(setq olderr *error*

*error* txterr

oldcmd (getvar "cmdecho")

)

(setvar "cmdecho" 0) ; 命令不回显

(setq nn 9) ; 词组分类数