编程申请：从.lsp文件中提取快捷键列表

alexmai

这可是解决烦恼的事情~~~

半听可乐

帖子失望的往下沉，自己顶一下，盼高手相助！

chshsl

不难的，用Excel 也能实现的啊

lijiao

(defun get-nr ( file_name / OUT TMP)
  (if (setq file_name (findfile file_name))
    (progn
      (setq out '())
      (setq file_name (open file_name "r"))
      (while (setq tmp (read-line file_name))
        (setq out (cons tmp out))
        )
      (close file_name)
      (reverse out)
      )
    )
  )

(defun wr-kj (file_name / BJ FILE_NAME NR PATH X)
  (vl-load-com)
  (if (setq file_name (findfile file_name))
    (progn
      (setq path (VL-FILENAME-DIRECTORY file_name))
      (setq nr (get-nr file_name))
      (setq nr (vl-remove nil (mapcar '(lambda(x)
                          (if (setq bj (VL-STRING-SEARCH  "★" x))
                            (substr x (1+ bj)))
                          )
                       nr)
                 )
            )
      (setq file_name (strcat path "快捷键.txt"))
      (setq file_name (open file_name "w"))
      (mapcar '(lambda(x)
                 (write-line x file_name)) nr)
      (close file_name)
      (princ "\n写入成功。")
      )
    )
  (princ)
  )

半听可乐

lijiao 发表于 2012-8-7 12:55
(defun get-nr ( file_name / OUT TMP)
  (if (setq file_name (findfile file_name))
    (progn

朋友，快捷键是什么？怎么用啊？

半听可乐

yjr111 发表于 2012-8-7 15:07

程序很好，只是提取的快捷键是倒序的，能不能改成从上到下的顺序呢？

半听可乐

yjr111 发表于 2012-7-26 12:06

谢谢，很好用！

726613

感谢楼主分享资源

Daniel·邓邓邓

半听可乐 发表于 2012-8-7 20:14
谢谢，很好用！

朋友，快捷键是什么，然后你说倒序的问题又如何解决呢？谢谢你了

半听可乐

yjr111 发表于 2012-7-26 12:06

yjr111老大，同类问题新需求产生了，再次求助：
我一txt文档中有这样的段落：
------------------------------------------
★产品a-1
☆产品b-1
★产品a-2
☆产品b-2
◆产品c-1
★产品a-3
◆产品c-2
☆产品b-3
------------------------------------------
即每行以特定符号开头，后面内容不一而足，这样的行数非常之多，我需要将此txt文档梳理一下，即让相同开头符号的行归到一起，梳理后成如下文档
------------------------------------------
★产品a-1
★产品a-2
★产品a-3
☆产品b-1
☆产品b-2
☆产品b-3
◆产品c-1
◆产品c-2
------------------------------------------
在线等，拜托了！