FCMhXrJ 发表于 2024-4-26 16:54:55

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

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

咏郡 发表于 2024-4-26 19:42:56

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

FCMhXrJ 发表于 2024-4-26 19:49:05

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

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

FCMhXrJ 发表于 2024-4-26 19:50:58

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

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

咏郡 发表于 2024-4-26 19:56:23

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

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

FCMhXrJ 发表于 2024-4-26 20:08:42

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

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

咏郡 发表于 2024-4-26 20:30:58

(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:55:44

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


谢谢大侠的热心帮助！:handshake

FCMhXrJ 发表于 2024-4-26 20:57:11

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


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

咏郡 发表于 2024-4-26 21:10:02

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

好用不:lol
页: 1 [2] 3
查看完整版本: 记事本里的多行怎样倒序排列？