[LISP程序]：ODCL Treeview控件数据的保存与恢复

Qlin

今天研究了一下ODCL Treeview控件数据的保存与恢复，
思考的时候走了很多弯路，所以把我的做法写下来，也许
能对大家有所帮助，当然，也许大伙还会有更好的方法。

(注意：这里只是介绍一个思路，下面的代码取自我正在写
的程序，并不完整)

思路一：数据文件的结构

1. 
   
2. 
   
3. [Tree_DATA]
   
4. ("k1" "" "First Parent")
   
5. ("k5" "k1" "Child 1")
   
6. ("k8" "k5" "Child 1")
   
7. ("k9" "k5" "Child 2")
   
8. ("k10" "k5" "Child 3")
   
9. ("k6" "k1" "Child 2")
   
10. ("k7" "k1" "Child 3")
    
11. ("k78921" "k5" "读入测试")
    
12. ("k2" "" "Second Parent")
    
13. ("k38921" "" "根目录添加测试")
    
14. ("k3" "" "Third Parent")
    
15. ("k4" "" "Fourth Parent")
    

复制代码

因为我写的是自用非商业性程序，所以数据文件也是很简单
的纯文本格式，直接记录了lisp的表，读写的时候很省事。
其中：
第一项是item自身的key值
第二项是item父节点的key值,若是根节点则为空字符
第三项是item的文字描述


思路二：读取并填充treeview控件

2. 
   
3. (defun fill_tree (/ x lst1 lst_str)
   
4. 
   
5.   ;读取上述数据文件，每组数据为一项组成字符串列表
   
6.   (if (setq lst_str (QAEC_GETINI "eac.dat" "Tree_DATA"))
   
7.   
   
8.     (progn
   
9.     　;把每组数据由字符串转换为表逐项添加
   
10.       (foreach x lst_str
    
11.         (setq lst1 (read x))
    
12.         (if (= (cadr lst1) "")
    
13.           ;处理根节点的情况
    
14.           (Odcl_Tree_AddParent eac_EACMain_EACTree
    
15.                               (nth 2 lst1)
    
16.                               (nth 0 lst1)
    
17.                               0
    
18.                               2
    
19.                               1)
    
20.           ;处理子节点的情况
    
21.           (Odcl_Tree_AddChild eac_EACMain_EACTree
    
22.                               (nth 1 lst1)
    
23.                               (nth 2 lst1)
    
24.                               (nth 0 lst1)
    
25.                               0
    
26.                               2
    
27.                               1)
    
28.         );if
    
29.       );foreach
    
30.     );progn
    
31.     (alert "Can't load tree data")
    
32.   );if
    
33. );end
    

<br /> (defun fill_tree (/ x lst1 lst_str)<br /> <br />   ;读取上述数据文件，每组数据为一项组成字符串列表<br />   (if (setq lst_str (QAEC_GETINI "eac.dat" "Tree_DATA"))<br />   <br />     (progn<br />     　;把每组数据由字符串转换为表逐项添加<br />       (foreach x lst_str<br />         (setq lst1 (read x))<br />         (if (= (cadr lst1) "")<br />           ;处理根节点的情况<br />           (Odcl_Tree_AddParent eac_EACMain_EACTree<br />                               (nth 2 lst1)<br />                               (nth 0 lst1)<br />                               0<br />                               2<br />                               1)<br />           ;处理子节点的情况<br />           (Odcl_Tree_AddChild eac_EACMain_EACTree<br />                               (nth 1 lst1)<br />                               (nth 2 lst1)<br />                               (nth 0 lst1)<br />                               0<br />                               2<br />                               1)<br />         );if<br />       );foreach<br />     );progn<br />     (alert "Can't load tree data")<br />   );if<br /> );end<br />

思路三：保存treeview控件的数据
把每个节点的key值、描述文字、父节点的key值这三个数据求出来，
并把所有这些数据组成一个表，再把表按照上述数据文件的格式记录
在文件里，就可以达到保存treeview控件数据的目的。

关键是历遍所有节点生成数据表，下面是我写的这个功能的函数：
(注意，返回的表是倒序的)

2. 
   
3. ;;;获取指定ODCL的treeview控件文字和key属性以表格返回
   
4. ;;;Key属性不能有重复
   
5. (defun QAEC_ODCL_Tree_GetList (odcl_ctrl / k1 k2 str1
   
6.                         odcl_tree_chkchild lst_tree_dat)
   
7.   ;;;递归寻找子节点数据的子函数
   
8.   (defun odcl_tree_chkchild (key_in / kk1 kk2 str1)
   
9.     (Setq kk1 (Odcl_Tree_GetFirstChildItem odcl_ctrl Key_in))
   
10.     (if (and kk1 (/= kk1 ""))
    
11.       (progn
    
12.         (Setq str1 (Odcl_Tree_GetItemText odcl_ctrl kk1))
    
13.         (setq lst_tree_dat (cons (list kk1 key_in str1) lst_tree_dat))
    
14.         (odcl_tree_chkchild kk1)
    
15. 
    
16.         (while (Setq kk2 (Odcl_Tree_GetNextSiblingItem odcl_ctrl kk1))
    
17.           (if (/= kk2 "")(progn
    
18.             (Setq str1 (Odcl_Tree_GetItemText odcl_ctrl kk2))
    
19.             (setq lst_tree_dat (cons (list kk2 key_in str1) lst_tree_dat))
    
20.             (odcl_tree_chkchild kk2)
    
21.           ));if
    
22.           (setq kk1 kk2)
    
23.         );while
    
24.       );progn
    
25.     );if
    
26.   );end
    
27.   
    
28.   (Setq k1 (Odcl_Tree_GetRootItem odcl_ctrl))
    
29.   (Setq str1 (Odcl_Tree_GetItemText odcl_ctrl k1))
    
30.   (setq lst_tree_dat (cons (list k1 "" str1) lst_tree_dat))
    
31.   (odcl_tree_chkchild k1)
    
32.   
    
33.   (while (Setq k2 (Odcl_Tree_GetNextSiblingItem odcl_ctrl k1))
    
34.     (if (/= k2 "")(progn
    
35.       (Setq str1 (Odcl_Tree_GetItemText odcl_ctrl k2))
    
36.       (setq lst_tree_dat (cons (list k2 "" str1) lst_tree_dat))
    
37.       (odcl_tree_chkchild k2)
    
38.     ));if
    
39.     (setq k1 k2)
    
40.   );while
    
41.   
    
42.   lst_tree_dat
    
43. );end
    
44. 
    

<br /> ;;;获取指定ODCL的treeview控件文字和key属性以表格返回<br /> ;;;Key属性不能有重复<br /> (defun QAEC_ODCL_Tree_GetList (odcl_ctrl / k1 k2 str1<br />                         odcl_tree_chkchild lst_tree_dat)<br />   ;;;递归寻找子节点数据的子函数<br />   (defun odcl_tree_chkchild (key_in / kk1 kk2 str1)<br />     (Setq kk1 (Odcl_Tree_GetFirstChildItem odcl_ctrl Key_in))<br />     (if (and kk1 (/= kk1 ""))<br />       (progn<br />         (Setq str1 (Odcl_Tree_GetItemText odcl_ctrl kk1))<br />         (setq lst_tree_dat (cons (list kk1 key_in str1) lst_tree_dat))<br />         (odcl_tree_chkchild kk1)<br /> <br />         (while (Setq kk2 (Odcl_Tree_GetNextSiblingItem odcl_ctrl kk1))<br />           (if (/= kk2 "")(progn<br />             (Setq str1 (Odcl_Tree_GetItemText odcl_ctrl kk2))<br />             (setq lst_tree_dat (cons (list kk2 key_in str1) lst_tree_dat))<br />             (odcl_tree_chkchild kk2)<br />           ));if<br />           (setq kk1 kk2)<br />         );while<br />       );progn<br />     );if<br />   );end<br />   <br />   (Setq k1 (Odcl_Tree_GetRootItem odcl_ctrl))<br />   (Setq str1 (Odcl_Tree_GetItemText odcl_ctrl k1))<br />   (setq lst_tree_dat (cons (list k1 "" str1) lst_tree_dat))<br />   (odcl_tree_chkchild k1)<br />   <br />   (while (Setq k2 (Odcl_Tree_GetNextSiblingItem odcl_ctrl k1))<br />     (if (/= k2 "")(progn<br />       (Setq str1 (Odcl_Tree_GetItemText odcl_ctrl k2))<br />       (setq lst_tree_dat (cons (list k2 "" str1) lst_tree_dat))<br />       (odcl_tree_chkchild k2)<br />     ));if<br />     (setq k1 k2)<br />   );while<br />   <br />   lst_tree_dat<br /> );end<br /> <br />