读取多个不同txt文件到编辑框的实现方法

doremidai

根据某教程的源码
在对话框定义文件中,有一个清单选框,会显示出指定档案的内容(全是中文字);当使用者选取清单中的项目时,该项目的中文字便会显示在下面的编辑框里(加在原有字符串的后面);当按下确定钮时,对话框结束,并使用TEXT指令将编辑框内的文字插入至绘图屏幕上.
最终读取到编辑框里出错，这个代码感觉逻辑不是很清晰。暂时脑袋有点短路，请路过的大虾看看还有其他方法读取多个不同txt文件到编辑框没

1. 
   
2. ;主程序;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   
3. 
   
4. (DEFUN C:LBOX ()     (SETQ DCL_ID (LOAD_DIALOG (findfile "LBOX.DCL") ) CHK 0)
   
5. (NEW_DIALOG "LBOX" DCL_ID)
   
6. (ADDL)
   
7. (ACTION_TILE "LBOX_T" "(ADDL)")                ;新增的下拉式选框组件动作
   
8. (ACTION_TILE "LBOX_L" "(SETQ TMP_R (ATOI (GET_TILE "LBOX_L")))(SETC)")
   
9. (ACTION_TILE "accept" "(SETQ CHK 1
   
10.     TMP_S (GET_TILE "LBOX_E"))(DONE_DIALOG)")
    
11. (START_DIALOG) (UNLOAD_DIALOG DCL_ID)
    
12. (IF (= CHK 1)
    
13.                (COMMAND "TEXT" (GETPOINT "Select text insert point :") "0" TMP_S)
    
14. )
    
15. (PRINC))
    
16. 
    
17. 
    
18. (DEFUN ADDL()
    
19. 
    
20. (cond
    
21.   
    
22.   (= (GET_TILE "LBOX_T") "0")                ;检查选择了的主题
    
23.     (SETQ F_ID (OPEN (findfile "TEXT1.txt")  "r"))         ;开启档案1
    
24.   (= (GET_TILE "LBOX_T") "1")
    
25.     (SETQ F_ID (OPEN (findfile "TEXT2.txt")  "r"))         ;开启档案2
    
26.   (= (GET_TILE "LBOX_T") "2")
    
27.     (SETQ F_ID (OPEN (findfile "TEXT3.txt")  "r"))         ;开启档案2
    
28. )        
    
29.   (SETQ TMP_T (READ-LINE F_ID) TMP_L (LIST ""))
    
30.   (WHILE (/= TMP_T NIL)
    
31.       (SETQ TMP_L (APPEND TMP_L (LIST TMP_T)))
    
32.     (SETQ TMP_L (READ-LINE F_ID))
    
33.   )
    
34.   (CLOSE F_ID)
    
35.   (SETQ TMP_L (LIST (CDR TMP_L)))
    
36.   (START_LIST "LBOX_L" 3 0)
    
37.   (MAPCAR 'ADD_LIST (CAR TMP_L))
    
38.   (END_LIST))
    
39.   
    
40. (DEFUN SETC()
    
41.   
    
42. (cond
    
43.   
    
44.   (= (GET_TILE "LBOX_T") "0")                ;检查选择了的主题
    
45.     (SETQ F_ID (OPEN (findfile "TEXT1.txt")  "r"))         ;开启档案1
    
46.   (= (GET_TILE "LBOX_T") "1")
    
47.     (SETQ F_ID (OPEN (findfile "TEXT2.txt")  "r"))         ;开启档案2
    
48.   (= (GET_TILE "LBOX_T") "2")
    
49.     (SETQ F_ID (OPEN (findfile "TEXT3.txt")  "r"))         ;开启档案2
    
50. )
    
51.   (IF (> TMP_R 0)   
    
52.          (REPEAT TMP_R (READ-LINE F_ID)))   
    
53.   (SETQ TMP_S (GET_TILE "LBOX_E"))   
    
54.   (SETQ TMP_S (STRCAT TMP_S (READ-LINE F_ID)))   
    
55.   (CLOSE F_ID)   
    
56.   (SET_TILE "LBOX_E" TMP_S))  
    

复制代码

下面是对话框DCL代码

2. //对话框DCL代码;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   
3. LBOX:dialog
   
4. {   label="Create chinese" ;
   
5.   :popup_list   //下拉式清单选框组件
   
6.   {   label="中文主题" ;
   
7.     key="LBOX_T" ;
   
8.     width=25;
   
9.     fixed_width=true;
   
10.     list="玻璃门窗\n五金配件\n其他";
    
11.   }
    
12.   :list_box   //清单选框组件
    
13.   {   label="中文字" ;
    
14.     key="LBOX_L" ;
    
15.     width=25;
    
16.     height=8;
    
17.     fixed_width=true;
    
18.     fixed_height=true;
    
19.   }
    
20.   :edit_box   //编辑框组件
    
21.   {   label="中文字" ;
    
22.     key="LBOX_E" ;
    
23.     width=25;
    
24.     fixed_width=true;
    
25.   }
    
26.   ok_cancel;
    
27. }
    

//对话框DCL代码;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br /> LBOX:dialog <br /> {   label="Create chinese" ; <br />   :popup_list   //下拉式清单选框组件 <br />   {   label="中文主题" ; <br />     key="LBOX_T" ; <br />     width=25; <br />     fixed_width=true; <br />     list="玻璃门窗\n五金配件\n其他"; <br />   } <br />   :list_box   //清单选框组件 <br />   {   label="中文字" ; <br />     key="LBOX_L" ; <br />     width=25; <br />     height=8; <br />     fixed_width=true; <br />     fixed_height=true; <br />   } <br />   :edit_box   //编辑框组件 <br />   {   label="中文字" ; <br />     key="LBOX_E" ; <br />     width=25; <br />     fixed_width=true; <br />   } <br />   ok_cancel; <br /> }<br />

itoboy

感谢分享源码

白色微風1991

感謝分享源碼

spp_wall

感謝分享源碼