关于autolisp读取数据文件的问题

weixin7944 · 发表于 2011-7-20 10:24

最近编了一个程序，需要从数据文件中读取数据出来。数据文件是"d:/file.txt"，内容如下：
(NUM ITEMA ITEMB ITEMC ITEMD ITEME)
(1  1  FHP-01  45  三相 I 85.5  125  )
(2  2  FHP-02  45  三相 I 85.5  125  )
(3  3  应急照明 0.72 A相 A 4.0  )
(4  4  备用  三相 EB )
(5  5  备用  三相 EB )
(6  6  备用  三相 EB )
(7  100 6    )
。。。。。。。。
(64  1  照明 0.36 A相 A 2.0  )
(65  2  照明 0.44 A相 A 2.5  )
(66  3  照明 0.31 A相 A 1.8  )
(67  4  照明 0.49 A相 A 2.7  )
(68  5  备用  B相 A )
(69  6  插座  1.6  C相 C 10.4  )
(70  7  插座  2  B相 C 13.0  )
(71  8  风扇 0.75 A相 A 4.3  )
(72  9  风扇 0.75 C相 A 4.3  )
(73  10  备用  A相 A )
(74  11  备用  B相 A )
(75  12  备用  C相 C )
(76  100 12    )
(77  101  0.38 0.77 1.00  32  13.2 13.0 14.6)
(78  102  2AP16 S Y D )
使用的数据读取程序是：
(defun jstxt (fname fa)
(setq f (open fname "r"))
(setq vb (read (read-line f)))
(setq loop t)
(while loop
(setq jb (read (read-line f)))
(if (equal fa (car jb)) (setq jb1 jb loop nil)
)
)
(setq j -1 jb1 (cdr jb1))
(repeat (length vb)
(setq j (1+ j) x (nth j vb))
(setq x (nth j jb1))
)
(close f)
jb1)
不知为什么，在用这个程序读取是，读出的数据总是不对。
比如执行(jstxt "d:/file.txt"  69)
结果就是(6  风机  1.6  C相 C 10.4  )，好像是串行了！
请教高手一下，谢谢！

snddd2000 · 发表于 2011-7-20 14:02

应该得到的是(6 插座 1.6 C相 C 10.4 )吧，而不是(6 风机 1.6 C相 C 10.4 )。

weixin7944 · 发表于 2011-7-20 15:15

回复 snddd2000 的帖子

对，确实是。应该是“插座”而不是“风机”，但不知为什么就成了“风机”了，就像串行了一样！

winabcd · 发表于 2011-7-20 16:31

查查你的数据文件中有没有“(6 风机 1.6 C相 C 10.4 )”项，再根据该项找原因。

weixin7944 · 发表于 2011-7-21 08:50

数据文件里没有“(6 风机 1.6 C相 C 10.4 )”，倒是有“(31 风机 4 三相 H 7.6 )”

snddd2000 · 发表于 2011-7-21 09:51

我试了下，是对的，估计是其他原因
_$ (jstxt "d:/file.txt" 69)
(6 插座 1.6 C相 C 10.4)

weixin7944 · 发表于 2011-7-21 14:00

是的，以前其他程序中那种短一点的数据文件的结果也是对的，但不知道这次为什么不对了。不知autolisp程序中的数据文件有什么特殊要求！

ZZXXQQ · 发表于 2011-7-21 21:29

我测试结果正确。

功夫佬 · 发表于 2012-6-1 00:39

程序不完整

cabinsummer · 发表于 2012-6-2 20:28

好好学习一下
http://bbs.mjtd.com/blog-391060-376.html

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

[函数] 关于autolisp读取数据文件的问题