询问读取文本文件内容的方法（lisp编程）

panpan1202

唉 看不到啊 赶紧发帖

461045462

   谢谢版主

下载来学习研究一下。

或许能利用的上

谢谢

 

 不知道读取什么文件？

试了几个文件都显示出现有误：

C:TT
命令:  HELP
命令: tt ; 错误: 参数类型错误: stringp 1
命令:
命令:  TT ; 错误: 参数类型错误: stringp 1
命令:
命令: tt ; 错误: 参数类型错误: stringp 1
命令:
命令: tt ; 错误: 参数类型错误: stringp 1
命令:

  望得到指教。

在此先谢了

 

rainbow272

看看，学习一下了。

zark

可以定义一个函数，将带,或空格等符号的字符串转为一个LST。比如

STR="2,23234,4554"

执行一个命令（str->lst str)就等到 （2 23234 4554）这样用起来就很方便了。不用SUBSTR.

(defun String->list (Strs / P TMP_LIST TMP_STR)
  (while (vl-string-search "\t" strs)
    (setq strs (vl-string-subst " " "\t" strs))
  )
  (while (vl-string-search "," strs)
    (setq strs (vl-string-subst " " "," strs))
  )
  (while (vl-string-search "，" strs)
    (setq strs (vl-string-subst " " "，" strs))
  )
  (while (vl-string-search ";" strs)
    (setq strs (vl-string-subst " " ";" strs))
  )
  (while (vl-string-search "；" strs)
    (setq strs (vl-string-subst " " "；" strs))
  )
  (while (vl-string-search "  " strs)
    (setq strs (vl-string-subst " " "  " strs))
  )
  (if (read strs)
    (progn
      (setq tmp_list '())
      (while (setq p (vl-string-search " " strs))
 (setq tmp_str (substr strs 1 p))
 (if (Read tmp_str)
   (setq tmp_list (cons tmp_str tmp_list))
 )
 (setq strs (vl-string-subst "" (substr strs 1 (1+ p)) strs))
      )
      (if (Read strs)
 (setq tmp_list (cons strs tmp_list))
      )
      (setq tmp_list (reverse tmp_list))
    )
  )
)

neulixue

谢谢了

LIFEI18

学习学习，为什么我使用时不带路径，就找不到文件呢

plan

使用DOSLIB函式库之DOS_STRTOKENS函数将字串转成串列较为简捷，但须依CAD版别载入DOSLIB函式库

假设有一个文本档案为aaa.txt，文件内容如下: 1，2133，4645 2，123123，4564

读取后串列资料为 ALAN_S=' ("1，2133，4645" "2，123123，4564")

(DEFUN C:ALAN (/ ALAN_S ITEMLIST NUM A B)

  (LOAD_DOSLIB)

  (SETQ ALAN_S '("1，2133，4645" "2，123123，4564") ITEMLIST '() NUM 0)

   (REPEAT (LENGTH ALAN_S)

     (SETQ ITEMLIST (APPEND ITEMLIST (LIST (DOS_STRTOKENS (NTH NUM ALAN_S) "，"))))

     (SETQ NUM (+ NUM 1))

   )

   (SETQ A (NTH 0 (NTH 1 ITEMLIST)) B (NTH 2 (NTH 1 ITEMLIST)))

)

 

 (DEFUN LOAD_DOSLIB (/ AC_VER);←依CAD版别载入DOSLIB函式库

   (SETQ AC_VER (SUBSTR (GETVAR "ACADVER") 1 2))

   (IF (NOT DOS_DRIVE)

        (PROGN

         (COND ((AND (= AC_VER "13")(WCMATCH (STRCASE (GETVAR "PLATFORM")) "*DOS*"))

                     (XLOAD "DOSLIB13")

                    )

                    ((= AC_VER "12")(XLOAD "DOSLIB12"))

                    (T (ARXLOAD (STRCAT "DOSLIB" AC_VER)))

         )

        )

    )

 )

 (PRINC "\nALAN 程式已载入 !")(PRINC "\n")

 (PROMPT "----------------------------<< C:ALAN >>------------------------------\n") (PRINC)

 

 

上网搜寻DOSLIB就可下载

dwg001

版主的这句似乎有错：

(while (/= (setq s (substr i 2)) "，")

   (setq tmp (strcat tmp (substr s 1 1)) i (1+ i))

  )

 ----》

(while (/= (setq s (substr s2 i 2)) "，")
   (setq tmp (strcat tmp (substr s2 i 1)) i (1+ i))
  )

dancle

先收藏了，以后会用上！！

wx198261

看看，学习了