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

都是大神 厉害~~
页: 1 2 [3]
查看完整版本: 记事本里的多行怎样倒序排列？