【求助】dcl中的list如何完成增加，删除，导入（已经调试成功），修改，清空等

daiguafan

如图所示，希望使用增加按钮就可以再list中添加输入的内容
这个应该简单，但是我完全不知道怎么处理list
希望各位帮忙谢谢斑竹帮忙
增加功能已经实现
但是现在删除
导入，清空功能我已经调试成功，没处理好的地方希望大虾们帮帮忙

Gu_xl

回复 daiguafan 的帖子

;;;将列表值存储在*valist*中，每点击一次增加，将editbox值添加到 *valist*中，运行如下代码更新list
(start_list key)
  (foreach n *valist*
    (add_list n)
  )
  (end_list)

lee50310

一個來自國外論壇的類似範例 可當參考  

下載後自行研究吧!
載入後執行指令:test

功能: 1.可增加( Add>>)  ,2.刪除(Remove)  ,3.替換(Replace),
         4.上移(Move UP)   ,5.下移(Move Down)

如圖所示:

365724661

daiguafan 发表于 2011-3-18 12:05
回复 ZZXXQQ 的帖子

好像我调试的时候get-title list1 就是空的

listbox增加删除的解决了么

daiguafan

回复 Gu_xl 的帖子

谢谢斑竹，我研究下，非常感谢您及时的答复

daiguafan

回复 daiguafan 的帖子

我这样写了下，但是还是不对斑竹送佛送到西啊，帮忙看下，呵呵

(defun c:tt ()
(SETQ DCL_1 (LOAD_DIALOG "test"))
(NEW_DIALOG "test" DCL_1)
(ACTION_TILE "accept" "(DONE_DIALOG)")
(action_tile "add" "(addl)")
(action_tile "cancel" "(cancel)")
(START_DIALOG)
(UNLOAD_DIALOG DCL_1)

(start_list list1)
  (foreach n *valist*
    (add_list n)
  )
  (end_list)
)
(defun addl ()
(setq *valist* (get_tile "v1"))
)

Gu_xl

回复 daiguafan 的帖子

1. (defun c:tt (/ *valist* addl DCL_1)
   
2.   (defun addl ()
   
3. (setq *valist* (append *valist* (list (get_tile "v1"))))
   
4.     (if *valist*
   
5.     (progn
   
6. (start_list "list1")
   
7.   (foreach n *valist*
   
8.     (add_list n)
   
9.   )
   
10.   (end_list)
    
11. )
    
12.     )
    
13. )
    
14. (SETQ DCL_1 (LOAD_DIALOG "test.dcl"))
    
15. (NEW_DIALOG "test" DCL_1)
    
16. (ACTION_TILE "accept" "(DONE_DIALOG)")
    
17. (action_tile "add" "(addl)")
    
18. (action_tile "cancel" "(cancel)")
    
19.   
    
20. (START_DIALOG)
    
21. (UNLOAD_DIALOG DCL_1)
    
22. 
    
23. )
    
24. 
    

(defun c:tt (/ *valist* addl DCL_1)<br />   (defun addl ()<br /> (setq *valist* (append *valist* (list (get_tile "v1"))))<br />     (if *valist*<br />     (progn<br /> (start_list "list1")<br />   (foreach n *valist*<br />     (add_list n)<br />   )<br />   (end_list)<br /> )<br />     )<br /> )<br /> (SETQ DCL_1 (LOAD_DIALOG "test.dcl"))<br /> (NEW_DIALOG "test" DCL_1)<br /> (ACTION_TILE "accept" "(DONE_DIALOG)")<br /> (action_tile "add" "(addl)")<br /> (action_tile "cancel" "(cancel)")<br />   <br /> (START_DIALOG)<br /> (UNLOAD_DIALOG DCL_1)<br /> <br /> )<br /> <br />

daiguafan

回复 Gu_xl 的帖子

万分感谢
呵呵
呵呵

xyp1964

也来一个：

2. ;; 需要e派工具箱的支持: http://xyp1964.ys168.com
   
3. (defun c:tt (/ ilst)
   
4.   (defun abu ()
   
5.     (xyp-Dcl-Gettile '("t1"))
   
6.     (if        (not (member t1 lst-tx))
   
7.       (setq lst-tx (cons t1 lst-tx))
   
8.     )
   
9.     (xyp-Show-List "li" lst-tx)
   
10.   )
    
11.   (defun ali ()
    
12.     (xyp-Dcl-Gettile '("li"))
    
13.     (alert (nth (atoi li) lst-tx))
    
14.   )
    
15.   (xyp-initSet '(li t1) '("0" ""))
    
16.   (setq        lst-tx (if lst-tx
    
17.                  lst-tx
    
18.                  '()
    
19.                )
    
20.         ilst   '(("li" "" "list" "lst-tx" "8" "10" "(ali)")
    
21.                  ":row{"
    
22.                  ("t1" "文本" "str" "12")
    
23.                  ("bu" "添加" "button1" "(abu)")
    
24.                  "}"
    
25.                  "spacer;"
    
26.                 )
    
27.   )
    
28.   (xyp-Dcl-Init Ilst "【测试】" t)
    
29.   (princ)
    
30. )

;; 需要e派工具箱的支持: http://xyp1964.ys168.com<br /> (defun c:tt (/ ilst)<br />   (defun abu ()<br />     (xyp-Dcl-Gettile '("t1"))<br />     (if        (not (member t1 lst-tx))<br />       (setq lst-tx (cons t1 lst-tx))<br />     )<br />     (xyp-Show-List "li" lst-tx)<br />   )<br />   (defun ali ()<br />     (xyp-Dcl-Gettile '("li"))<br />     (alert (nth (atoi li) lst-tx))<br />   )<br />   (xyp-initSet '(li t1) '("0" ""))<br />   (setq        lst-tx (if lst-tx<br />                  lst-tx<br />                  '()<br />                )<br />         ilst   '(("li" "" "list" "lst-tx" "8" "10" "(ali)")<br />                  ":row{"<br />                  ("t1" "文本" "str" "12")<br />                  ("bu" "添加" "button1" "(abu)")<br />                  "}"<br />                  "spacer;"<br />                 )<br />   )<br />   (xyp-Dcl-Init Ilst "【测试】" t)<br />   (princ)<br /> )

daiguafan

回复 xyp1964 的帖子

院长这个不厚道啊，要你的专门函数库支持

daiguafan

麻烦各位帮帮忙啊，这个应该是不难的基本功能，呵呵
但是我就是写不对——最新由猫哥帮忙，清空命令已经解决，但是猫哥lisp水平太高，发的文件我有些看着吃力，自己写的还是存在一些问题现在就剩下删除和修改的问题没有解决了
(defun c:tt (/ addl DCL_1)
;
(SETQ DCL_1 (LOAD_DIALOG "test.dcl"))
(NEW_DIALOG "test" DCL_1)
(ACTION_TILE "accept" "(DONE_DIALOG)")
(action_tile "add" "(add0)")
(action_tile "delall" "(delist)")
(action_tile "del0" "(dell0)")
(action_tile "edit1" "(edit)")
(action_tile "input-1" "(input)")
(action_tile "cancel" "(cancel)")
;(action_tile "list1" "(inlist)")
(START_DIALOG)
(UNLOAD_DIALOG DCL_1)

)

(defun add0 ();增加
    (setq MyList (append MyList (list (get_tile "v1"))))
(princ "\n          MyList = ") (princ MyList);Erase_DV
(getstring "\nPress Enter to continue...");Erase_DV
    (if MyList
    (progn
     (start_list "list1" )
     (foreach n MyList
     (add_list n)
     )
    (end_list)
     )
     )
)

(defun input ();导入
;获取数据库
  (setq fname (getfiled "选择文本文件" "" "txt" 2))
  (setq FP (open fname "r"))
  (setq DATA nil)
  (WHILE (SETQ LINE (READ-LINE FP))
;将数据库中的数据存入DATA中
    (if
(and (> (strlen LINE) 0) (not (wcmatch LINE "!*")))
      (progn

(SETQ DATA (CONS LINE DATA))
      )
    )
  )
  (setq DATA (reverse DATA))
  (close FP)
  (setq MyList DATA )
   (start_list "list1" )
(princ "\n          MyList = ") (princ MyList);Erase_DV
(getstring "\nPress Enter to continue...");Erase_DV
   (mapcar 'add_list MyList)
   (end_list)

)
;(defun inlist ()   
;                (start_list "List1");直列表 {"List1"} 初始化
;
(mapcar 'add_list MyList);添加列表项
;
(end_list)
;)



(defun delist ();清空
          (start_list "list1" 3 0);直列表 {"List1"} 初始化
          (mapcar 'add_list nil);添加列表项
          (end_list)
          (setq MyList (list ""))
          )
;=============此段代码有问题============
(defun dell0 ();删除
           (setq MyList (vl-remove (nth  (read (get_tile "List1")) MyList) MyList))

(start_list "List1");直列表 {"List1"} 初始化

(mapcar 'add_list MyList);添加列表项

(end_list)
)

(defun edit ();修改

           (setq MyList (subst (get_tile "v1") (nth (read (get_tile "List1")) MyList) MyList))

(start_list "List1");直列表 {"List1"} 初始化

(mapcar 'add_list MyList);添加列表项

(end_list)
)






;=============此段代码有问题============
(defun delist ();清空
          (start_list "list1" 3 0);直列表 {"List1"} 初始化
          (mapcar 'add_list nil);添加列表项
          (end_list)
          )

(defun dell0 ();删除
           (setq MyList (vl-remove (nth  (read (get_tile "List1")) MyList) MyList))

(start_list "List1");直列表 {"List1"} 初始化

(mapcar 'add_list MyList);添加列表项

(end_list)
)

(defun edit ();修改
(setq MyList (subst (get_tile "v1") (nth (read (get_tile "List1")) MyList) MyList))

(start_list "List1");直列表 {"List1"} 初始化

(mapcar 'add_list MyList);添加列表项

(end_list)
)

daiguafan

最新修改了下，希望大虾帮个忙