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

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

最近编了一个程序，需要从数据文件中读取数据出来。数据文件是"d:/file.txt"，内容如下：
(NUM ITEMA ITEMB ITEMC ITEMD ITEME)
(11FHP-0145三相 I 85.5125)
(22FHP-0245三相 I 85.5125)
(33应急照明 0.72 A相 A 4.0)
(44备用三相 EB   )
(55备用三相 EB   )
(66备用三相 EB   )
(7100   6       )
。。。。。。。。
(641照明 0.36 A相 A 2.0)
(652照明 0.44 A相 A 2.5)
(663照明 0.31 A相 A 1.8)
(674照明 0.49 A相 A 2.7)
(685备用B相 A   )
(696插座1.6C相 C 10.4)
(707插座2B相 C 13.0)
(718风扇 0.75 A相 A 4.3)
(729风扇 0.75 C相 A 4.3)
(7310备用A相 A   )
(7411备用B相 A   )
(7512备用C相 C   )
(76100   12       )
(771010.38 0.77 1.003213.2 13.0 14.6)
(781022AP16 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.6C相 C 10.4)，好像是串行了！
请教高手一下，谢谢！

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

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

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

回复 snddd2000 的帖子

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

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

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

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

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

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

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

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

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

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

我测试结果正确。

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

程序不完整

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

好好学习一下
http://bbs.mjtd.com/blog-391060-376.html
页: [1] 2
查看完整版本: 关于autolisp读取数据文件的问题