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

FCMhXrJ

你有种再说一遍 发表于 2024-4-26 16:53
reverse翻转列表

反转列表的具体代码怎样写呀？

咏郡

(setq q '(1 2 3))
        (reverse q)

FCMhXrJ

咏郡 发表于 2024-4-26 19:42
(setq q '(1 2 3))
        (reverse q)

这样不行，你可以试一下我上面举例数据

FCMhXrJ

咏郡 发表于 2024-4-26 19:42
(setq q '(1 2 3))
        (reverse q)

你这样只能对元素进行倒序，不适用记事本上下行倒序

咏郡

FCMhXrJ 发表于 2024-4-26 19:50
你这样只能对元素进行倒序，不适用记事本上下行倒序

把数据一行一行的写入表里，翻转在写回去

FCMhXrJ

咏郡 发表于 2024-4-26 19:56
把数据一行一行的写入表里，翻转在写回去

思路知道，但是需要具体的代码实现，不知道怎样写这样的代码呀

咏郡

(defun c:ww(/ f lst x)
        (setq f(open "d:/123.txt" "r"))
        (while (setq x (read-line f))
                (setq lst (append lst (list x)))
        )
        (close f)
        (setq lst(reverse lst))
        (setq f(open "d:/123-1.txt" "w"))
        (foreach x lst (write-line x f))
        (close f)
)

FCMhXrJ

咏郡 发表于 2024-4-26 20:30
(defun c:ww(/ f lst x)
        (setq f(open "d:/123.txt" "r"))
        (while (setq x (read-line f))

谢谢大侠的热心帮助！

FCMhXrJ

咏郡 发表于 2024-4-26 20:30
(defun c:ww(/ f lst x)
        (setq f(open "d:/123.txt" "r"))
        (while (setq x (read-line f))

俺太穷了，不然就给您明经币了

咏郡

FCMhXrJ 发表于 2024-4-26 20:57
俺太穷了，不然就给您明经币了

好用不