[求助]

wangyue · 发表于 2002-6-17 12:33

你好:幫忙修改以下程式,就是想讓lsp讀取TXT后在DCL中對應的edit_box 及
list_box中顯示

mccad · 发表于 2002-6-17 13:36

wangyue · 发表于 2002-6-17 15:39

使用這樣,程式出錯

wangyue · 发表于 2002-6-17 16:01

就是想讓lsp讀取TXT后在DCL中對應的edit_box 及
list_box中顯示

mccad · 发表于 2002-6-17 22:46

(setq des_list(read_des (findfile "tyl.ini")))
(start_list "sign_ro")
(mapcar 'add_list des_list)
(add_list "其他设计单位...")
(end_list)

(defun read_des(fildes / tmplst x fn)
  (setq tmplst nil)
  (setq fn (open fildes "r"))
  (while (setq x (read-line fn))
(setq tmplst(append tmplst(list x)))
  )
  (close fn)
  (setq tmplst tmplst)
)

wangyue · 发表于 2002-6-19 15:23

1.(setq des_list(read_des (findfile "tyl.ini")))這句中的tyl.ini是什么﹐不太明白他的意思
2.(setq tmplst tmplst)這句中的tmplst用在什么地方
煩請指導﹐謝謝您

mccad · 发表于 2002-6-19 19:04

wangyue · 发表于 2002-6-20 08:19

本帖最后由作者于 2002-6-20 8:19:30 编辑

上面的程式是將所有TEXT文件中的資料全部在一個LIST_BOX中顯示出來﹐而其他的為空﹐而我的目的是想讓TEXT中的第一欄在第一個LIST_BOX中﹐第二欄在第二個LIST_BOX中﹐這樣依次類推
給您又添煩麻了﹐請原諒

mccad · 发表于 2002-6-20 12:34

账号		自动登录	找回密码
密码			注册

[求助]

本帖子中包含更多资源

实用函数中有相关的函数，可以使用

你好:我不太明白

你好:無論如何修改總不能達到目地

看看以下程序，可以明白吧

對不起﹐我很笨﹐還有几個地方不明白﹐請你指導

1.tyl.ini是文件名，改成你的文件名就可以；2.tmplst为函数des_list所要传递的值

您好﹕mccad 還有一點問題

你给的文件为全，只有一个LSP文件，没有TXT及DCL文件，不知你文本文件的格式怎样