这可是解决烦恼的事情~~~
帖子失望的往下沉，自己顶一下，盼高手相助！
不难的，用Excel 也能实现的啊
(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 static/image/common/back.gif
(defun get-nr ( file_name / OUT TMP)
(if (setq file_name (findfile file_name))
(progn
朋友，快捷键是什么？怎么用啊？
yjr111 发表于 2012-8-7 15:07 static/image/common/back.gif
程序很好，只是提取的快捷键是倒序的，能不能改成从上到下的顺序呢？
yjr111 发表于 2012-7-26 12:06 static/image/common/back.gif
谢谢，很好用！
感谢楼主分享资源
半听可乐 发表于 2012-8-7 20:14 static/image/common/back.gif
谢谢，很好用！
朋友，快捷键是什么，然后你说倒序的问题又如何解决呢？谢谢你了
yjr111 发表于 2012-7-26 12:06 static/image/common/back.gif
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
------------------------------------------
在线等，拜托了！