[LISP程序]：又有问题了，请教LISP—DCL问题!!!!!!

lzy9788

帮忙看看这段代码问题:
(DEFUN C:LBOX ()
(SETQ DCL_ID (LOAD_DIALOG "d:/dcl/LBOX.DCL") CHK 0)
(NEW_DIALOG "LBOX" DCL_ID)
;(SET_TILE "LBOX_L" "0")
(ADDL)
(ACTION_TILE "LBOX_L" "(SETQ TMP_R (ATOI (GET_TILE \"LBOX_L\")))(SETC)")
(ACTION_TILE "accept" "(SETQ CHK 1 TMP_S (GET_TILE \"LBOX_E\"))(DONE_DIALOG DCL_ID)")
(START_DIALOG) (UNLOAD_DIALOG DCL_ID)
(setq pot (GETPOINT "\nSelect text insert point :"))
(IF (= CHK 1)
(COMMAND "TEXT" pot "250" "0" TMP_S)
)
(PRINC))

(DEFUN ADDL() (SETQ F_ID (OPEN "d:/dcl/TEXT1.TXT" "r"))
(SETQ TMP_T (READ-LINE F_ID) TMP_L (LIST ""))
(WHILE (/= TMP_T NIL)
   (SETQ TMP_L (APPEND TMP_L (LIST TMP_T)))
  (SETQ TMP_T (READ-LINE F_ID))
)
(CLOSE F_ID)
(SETQ TMP_L (LIST (CDR TMP_L)))
(START_LIST "LBOX_L" 3 0)
(MAPCAR 'ADD_LIST (CAR TMP_L))
(END_LIST))


(DEFUN SETC() (SETQ F_ID (OPEN "C:/TEXT1.TXT" "r"))
(IF (> TMP_R 0)
        (REPEAT TMP_R (READ-LINE F_ID)))
(SETQ TMP_S (GET_TILE "LBOX_E"))
(SETQ TMP_S (STRCAT TMP_S (READ-LINE F_ID)))
(CLOSE F_ID)
(SET_TILE "LBOX_E" TMP_S))


;;;;;;;;;;;;;;;;;;;;;;;;;dcl;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

LBOX:dialog
{ label="Create chinese" ;
:list_box //清單選框元件
{ label="中文字" ;
  key="LBOX_L" ;
  width=25;
  height=8;
  fixed_width=true;
  fixed_height=true;
}
:edit_box //編輯框元件
{ label="中文字" ;
  key="LOBX_E" ;
  width=25;
  fixed_width=true;
}
ok_cancel;
}

hqd9639

比较：
(ACTION_TILE "accept" "(SETQ CHK 1 TMP_S (GET_TILE \"LBOX_E\"))(DONE_DIALOG DCL_ID)")

key="LOBX_E" ;
改为：key="LboX_E" ;

lzy9788

不行的

841594

是不是dcl文件的注释用了“；”。

hqd9639

最初由 lzy9788 发布
[B]不行的 [/B]

首你的关键词确实是写错了。
还有要是真心想别人帮你解决问题，就不要总是把话说一半就不说了，不明不白。
“不行的”？----运行时发生什么错误，有什么提示，你都不说。。。

lzy9788

我点中文字时出错，只要一点就退出来了

hqd9639

点“列表框”还是“编辑栏”？

你改了我在2楼说的问题没有？

lzy9788

我点的是列表框，还没改过。我改了好像也不行哦

hqd9639

最初由 lzy9788 发布
[B]我点的是列表框，还没改过。我改了好像也不行哦 [/B]

谁说不行？没看到我运行该程序图片？

你的text1.txt位置在哪？

lzy9788

搞定了，谢谢