致命错误 ，大家快来帮助啊！！！！

挚友01

我有一个数据文件，是用EXCEL生成的，用记事本打开一切正常，可用(read-line f)读时，有的行就被截断了，例如
2#加热炉燃烧器配电箱&.38&1&0&2&无&否&3.58&6&YJV22-0.6/1&5x4&G40&&&&Z9&否

可返回的是"2#加热炉燃烧器配电箱"
天然气调压区电热带&.38&1&0&8&无&否&14.3&20&YJV22-0.6/1&5x4&G40&&&&DBR&50mA

返回的是"天然气调压区电热带"
中间肯定有回车符之类的东西，用记事体打开可看不到“回车符”，如何去掉误生成的这类东东？
(EXCEL中字段无其它特殊设置，可能是是输入法切换时造成的)

marting

你要把你完整的代码贴上来啊，你要大家帮你写，还是帮你找问题？

挚友01

代码很长，没什么问题，就是这句(read-line f)
(defun excel_dat(file_1 / f l ll c cc list_k list_kk file_1 b bb)
(setq list_k '())
(if (setq fil (findfile file_1))  
      (progn
        (setq f (open fil "r"))
        (while (setq l (read-line f))
; 回注水综合杀菌系统
,.38,6,,12,否,22.79,32,YJLV-0.6/1,5x6,G25,,,,SJXT,否
                         (prin1 l)(terpri)读的数据有误.........

csharp

_$ (xd::list:fromfile "d:\\test\\1-9配电屏2.dat")
("Z4&192&0&84.7600021362305&1&.85&.8&13019.13&8068.53&67.8080017089844&否&121.21&160&YJV-0.6/1&3x70+2x35&G80&上进线&否&是&否&否" "ZM配电箱&.38&1&0&17.9199996948242&无&否&32.03&50&YJLV-0.6/1&5x10&G40&&&&ZM&否" "Z2配电箱&.38&1&0&10.4&无&否&18.59&40&YJLV-0.6/1&5x10&G40&&&&Z2&否" "Z4配电柜&.38&1&0&12.2400001525879&无&否&21.88&40&YJLV22-0.6/1&5x10&G50&&&&Z4&否" "Z5配电箱&.38&1&0&3.6&无&否&6.44&25&YJLV-0.6/1&5x4&G25&&&&Z5&否" "Z6配电箱&.38&1&0&3.6&无&否&6.44&25&YJLV-0.6/1&5x4&G25&&&&Z6&否" "Z7配电箱&.38&1&0&3.6&无&否&6.44&25&YJLV-0.6/1&5x4&G25&&&&Z7&否" "场区投光灯&.38&1&0&2.4&无&否&4.29&20&YJLV22-0.6/1&5x4&G40&&&&TGD&时钟控" "加热炉控制柜&.38&1&0&1&无&否&1.79&10&YJLV-0.6/1&5x4&G25&&&&JRL&否" "2#加热炉燃烧器配电箱" "&.38&1&0&2&无&否&3.58&6&YJV22-0.6/1&5x4&G40&&&&Z9&否" "WX配电箱&.38&1&0&12&无&否&21.45&25&YJLV-0.6/1&5x4&G25&&&&WX&否" "UPS配电柜&.38&1&0&8&无&否&14.3&20&YJLV-0.6/1&5x6&G32&&&&UPS&否" "天然气调压区电热带" "&.38&1&0&8&无&否&14.3&20&YJV22-0.6/1&5x4&G40&&&&DBR&50mA")
_$

ll_j

把excel文件另存为cvs文件试试，Unicode格式的txt文件在中文cad中的支持可能没有想象的那么好，而制表符分隔的txt文本中的制表符也可能是障碍。

挚友01

csharp 发表于 2017-2-23 15:11

error: no function definition: XD::LIST:FROMFILE 如何加载程序?

挚友01

ll_j 发表于 2017-2-23 15:16

EXCEL 的数据我是通过单元格读取的，我想了一下，出现问题的“2#加热炉燃烧器配电箱”我是从CAD编辑文字中拷贝粘贴的...

挚友01

ll_j 发表于 2017-2-23 15:16

EXCEL中的语句....Print #1, Cells(i_c9, 1) & "&" & Cells(i_c9, 2) & "&" & Cells(i_c9, 3) & "&"; Cells(i_c9, 4)

挚友01

??????????

marting

挚友01 发表于 2017-2-23 16:09

记得以前告诉过你这个函数

用  XD::LIST:FROMFILE  搜索论坛就看到了。

挚友01

(defun XD::List:FromFile (fn / f l ll)
  (if (setq f (open (findfile fn) "r"))
    (progn
      (while (setq l (read-line f))
        (setq ll (cons  l ll))
      )
没个函数没什啊，都是用了(read-line f), 还是没解决根本问题啊....
      (close f)
    )
  )
  (reverse ll)
)

newer

挚友01 发表于 2017-2-24 10:26

你写的读不出来， 上面朋友用这个函数帮你读出来了，你没试试？

newer

挚友01 发表于 2017-2-24 10:26

下面是用 xd::list:fromfile 读出的你提供的文件

命令: (xd::list:fromfile "j:\\1-9配电屏2.dat")
("Z4&192&0&84.7600021362305&1&.85&.8&13019.13&8068.53&67.8080017089844&否&121.21&160&YJV-0.6/1&3x70+2x35&G80&上进线&否&是&否&否" "ZM配电箱&.38&1&0&17.9199996948242&无&否&32.03&50&YJLV-0.6/1&5x10&G40&&&&ZM&否" "Z2配电箱&.38&1&0&10.4&无&否&18.59&40&YJLV-0.6/1&5x10&G40&&&&Z2&否" "Z4配电柜&.38&1&0&12.2400001525879&无&否&21.88&40&YJLV22-0.6/1&5x10&G50&&&&Z4&否" "Z5配电箱&.38&1&0&3.6&无&否&6.44&25&YJLV-0.6/1&5x4&G25&&&&Z5&否" "Z6配电箱&.38&1&0&3.6&无&否&6.44&25&YJLV-0.6/1&5x4&G25&&&&Z6&否" "Z7配电箱&.38&1&0&3.6&无&否&6.44&25&YJLV-0.6/1&5x4&G25&&&&Z7&否" "场区投光灯&.38&1&0&2.4&无&否&4.29&20&YJLV22-0.6/1&5x4&G40&&&&TGD&时钟控" "加热炉控制柜&.38&1&0&1&无&否&1.79&10&YJLV-0.6/1&5x4&G25&&&&JRL&否" "2#加热炉燃烧器配电箱" "&.38&1&0&2&无&否&3.58&6&YJV22-0.6/1&5x4&G40&&&&Z9&否" "WX配电箱&.38&1&0&12&无&否&21.45&25&YJLV-0.6/1&5x4&G25&&&&WX&否" "UPS配电柜&.38&1&0&8&无&否&14.3&20&YJLV-0.6/1&5x6&G32&&&&UPS&否" "天然气调压区电热带" "&.38&1&0&8&无&否&14.3&20&YJV22-0.6/1&5x4&G40&&&&DBR&50mA")


没有错误。

挚友01

如何都用的是(read-line f),一样，还是没解决问题，字符串中含有的隐藏的换行符。。。

newer

挚友01 发表于 2017-2-24 10:26

哦，明白你说的问题了，你说有的行被提前截断了，

这个不是readline的问题，是你的数据文件的问题，截断的那个中间肯定有看不见的换行符。你需要处理的是你的文件，而不是怀疑readline  函数的问题，readline函数就是遇到换行就读完一行的，你给他什么的数据和他无关。