记事本里的多行怎样倒序排列？

guosheyang · 发表于 2024-4-26 21:15:39

本帖最后由 guosheyang 于 2024-4-26 21:34 编辑

可以适当改下
(defun c:ww(/ f lst x)
(setq f0(getfiled "请选择文本文件" "" "txt" 8))
(setq f(open f0 "r"))
(while (setq x (read-line f))
(setq lst (cons x lst))
)
(close f)
(setq f(open f0 "w"))
(foreach x lst (write-line x f))
(close f)
)

FCMhXrJ · 发表于 2024-4-26 21:21:47

guosheyang 发表于 2024-4-26 21:15
可以适当改下
(defun c:ww(/ f lst x)
(setq f0(getfiled "请选择文本文件" "C:\%users\\Administrator\ ...

优化的不错

FCMhXrJ · 发表于 2024-4-26 21:23:11

咏郡发表于 2024-4-26 21:10
好用不

不错！大侠厉害

非常感谢您的源码！

szhorse · 发表于 2024-4-26 21:26:11

这种可以放到excel中来进行倒序排列

gble119 · 发表于 2024-7-16 22:42:08

都是大神厉害~~

账号		自动登录	找回密码
密码			注册