求大家指导，我这个读取文件的界面哪里不对吗？

panziyang000

我试着做个读取文件的小程序 ，并赋值与文本中，但是调试不出来 ，求各位指导下
这是代码

2. (defun c:dqsj_Form1_OnInitialize (/)
   
3. (dqsj_Checkinputbox)
   
4. )
   
5. (defun dq (/)
   
6. (setq file (getfiled"\n 读取数据文件名" """txt" 0) f1(open file "r"))
   
7.      (setq a (atof(read(read-line f1))))
   
8.      (dcl_Control_SetText dqsj_Form1_TextBox1 (rtos a 2 6))
   
9.      (setq b (atof(read(read-line f1))))
   
10.      (dcl_Control_SetText dqsj_Form1_TextBox2 (rtos b 2 6)))
    
11.    
    
12. 
    
13. (defun c:dqsj_Form1_TextButton1_OnClicked (/)
    
14.   (dq)   
    
15. )
    

(defun c:dqsj_Form1_OnInitialize (/)<br /> (dqsj_Checkinputbox)<br /> )<br /> (defun dq (/)<br /> (setq file (getfiled"\n 读取数据文件名" """txt" 0) f1(open file "r"))<br />      (setq a (atof(read(read-line f1))))<br />      (dcl_Control_SetText dqsj_Form1_TextBox1 (rtos a 2 6))<br />      (setq b (atof(read(read-line f1))))<br />      (dcl_Control_SetText dqsj_Form1_TextBox2 (rtos b 2 6)))<br />    <br /> <br /> (defun c:dqsj_Form1_TextButton1_OnClicked (/)<br />   (dq)    <br /> )<br />

Lispboy

(read-line f1)

这个返回值已经是字符串了，直接就可以ATOF了，为什么你还要read下？

panziyang000

哦 ，但是现在是按钮功能也不能实现，初学，不明白哪里出了问题

XDSoft

panziyang000 发表于 2013-5-15 23:25
哦 ，但是现在是按钮功能也不能实现，初学，不明白哪里出了问题

主要是注意返回值了，什么函数需要什么类型的参数，熟悉了，你找错误也就容易了。

另外，哪些不能实现的，最好详细的说出来，做个动画文件，说说你想要做什么，而出什么错了，在哪个地方没得到你想要的结果什么的。

你想要做什么一定要说清楚，也许别人还有其他的方法帮你实现，别只让人看代码，不是自己写的代码看起来很累的。
初学都是一样的，多写，多问，提高的很快的。别只看不说不写。这个与大家共勉。

yxpxa

是的，提问题不能得到解决的80%都是表达不清。
有时候别人读懂你一段代码，自己写10段都能写出来，所以算法才是最重要的。

panziyang000

我做这个界面功能不多 ，就是点击界面上的按钮，可以读取一个TXT文件，然后将其中的数据逐行读出来，赋值到制定文本框，可以不看我代码，大家给个思路。

牢固

panziyang000 发表于 2013-5-16 07:45
我做这个界面功能不多 ，就是点击界面上的按钮，可以读取一个TXT文件，然后将其中的数据逐行读出来，赋值到 ...

(setq a (atof(read(read-line f1))))
(setq b (atof(read(read-line f1))))
这两句错了！数据类型不对！
(setq a (atof (read-line f1))))
(setq b (atof (read-line f1)))

Lispboy

panziyang000 发表于 2013-5-16 07:45
我做这个界面功能不多 ，就是点击界面上的按钮，可以读取一个TXT文件，然后将其中的数据逐行读出来，赋值到 ...

你的意思是要把读进来的文本文件按行加到 Listbox 里面显示吧，老大刚发过的一个OPENDCL教学，里面讲了怎么往列表框里面添加字符串，你参考下 http://bbs.xdcad.net/forum.php?mod=viewthread&tid=668117

读文件，你上面贴的代码按照牢固版主修改的，差不多了，你把字符串读入个表中，像("abc" "def"),直接用 dcl_listbox_addlist 就添加到列表框里面了。

panziyang000

嗯嗯  多谢大家指教

panziyang000

还得厚脸皮请教，  按照大家知道 改正后 出现了不能显示第二个值的问题
代码是相同的

牢固

panziyang000 发表于 2013-5-16 14:29
还得厚脸皮请教，  按照大家知道 改正后 出现了不能显示第二个值的问题
代码是相同的

提示信息已经再清楚不过了！
函数dcl_Control_settext的第一个参数值为nil！也就是第一个参数文本框控件名没有值！