关于变量内换行结果的问题

jun470

      半路出家写的程序，现在遇到了点问题，上来请教一下，搜索过换行相关帖子，为找到想要的结果。发帖来问问大家。

      下面程序是提取到一组数据，目前用最土的办法，提取一个输出一个，加空格和换行。但是像要把整个结果整合起来就不懂问题出在哪里，麻烦高手们帮忙看看，或者有其他方法，不用strcat。



测试程序：

2. (defun c:Q ( / lst lshh lsSS zhenghe)
   
3. (setq lst '(("424" "437" "436" "435") ("429" "425" "426" "434") ("430" "428" "427" "433")
   
4. ("422" "431" "439" "432")))
   
5. (SETQ zhenghe "")
   
6.   (repeat (length lst) ;循环次数=行数
   
7.     (setq lshh (car lst));取第一个
   
8. (print);换行
   
9.          
   
10.    (repeat (length lshh);循环次数=列数
    
11.      (setq lsSS (car lshh));取第一个
    
12.      (prinC lsSS) (prinC " ");输出屏幕，计划要这样的格式在一个变量中
    
13. 
    
14.    (setq zhenghe (strcat zhenghe " " lsSS));合并字符串，加空格分隔
    
15.      
    
16.      (setq lshh (cdr  lshh));去掉第一个
    
17.     )
    
18.      (setq zhenghe (strcat zhenghe "
    
19. "));增加换行(换行符按住Alt 输入10)，目前不行
    
20. 
    
21. (setq lst(cdr  lst));去掉第一个
    
22.    )
    
23.   
    
24.   (print)
    
25.   (print zhenghe);;输出屏幕，计划要输出像上面的格式，让数据以上面的格式进剪贴板
    
26. 
    
27. 
    
28. (princ))

(defun c:Q ( / lst lshh lsSS zhenghe)<br /> (setq lst '(("424" "437" "436" "435") ("429" "425" "426" "434") ("430" "428" "427" "433") <br /> ("422" "431" "439" "432")))<br /> (SETQ zhenghe "")<br />   (repeat (length lst) ;循环次数=行数<br />     (setq lshh (car lst));取第一个<br /> (print);换行<br />          <br />    (repeat (length lshh);循环次数=列数<br />      (setq lsSS (car lshh));取第一个<br />      (prinC lsSS) (prinC " ");输出屏幕，计划要这样的格式在一个变量中<br /> <br />    (setq zhenghe (strcat zhenghe " " lsSS));合并字符串，加空格分隔<br />      <br />      (setq lshh (cdr  lshh));去掉第一个<br />     )<br />      (setq zhenghe (strcat zhenghe " <br /> "));增加换行(换行符按住Alt 输入10)，目前不行<br /> <br /> (setq lst(cdr  lst));去掉第一个<br />    )<br />   <br />   (print)<br />   (print zhenghe);;输出屏幕，计划要输出像上面的格式，让数据以上面的格式进剪贴板<br /> <br /> <br /> (princ))

代码潦草，阅读感受不好见谅哈！

ssyfeng

换行用\n就可以了

试试这个：

2. (defun c:q (/ lst)
   
3.   (setq lst '(
   
4.                ("424" "437" "436" "435")
   
5.                ("429" "425" "426" "434")
   
6.                ("430" "428" "427" "433")
   
7.                ("422" "431" "439" "432")
   
8.              )
   
9.   )
   
10.   (princ "\n")
    
11.   (mapcar (function (lambda (x)
    
12.                       (mapcar (function (lambda (y)
    
13.                                           (princ y)
    
14.                                           (princ " ")
    
15.                                         )
    
16.                               )
    
17.                         x
    
18.                       )
    
19.                       (princ "\n")
    
20.                     )
    
21.           )
    
22.     lst
    
23.   )
    
24.   (princ)
    
25. )

(defun c:q (/ lst)<br />   (setq lst '(<br />                ("424" "437" "436" "435") <br />                ("429" "425" "426" "434") <br />                ("430" "428" "427" "433") <br />                ("422" "431" "439" "432")<br />              )<br />   )<br />   (princ "\n")<br />   (mapcar (function (lambda (x)<br />                       (mapcar (function (lambda (y)<br />                                           (princ y)<br />                                           (princ " ")<br />                                         )<br />                               )<br />                         x<br />                       )<br />                       (princ "\n")<br />                     )<br />           )<br />     lst<br />   )<br />   (princ)<br /> )

夏生生

没蛮看懂题意，按理解写了一下

1. (defun c:tt  (/ rr lst str key)
   
2.     (defun rr  (lst Key / Str)
   
3.   (setq str (apply 'strcat
   
4.        (mapcar '(lambda (x) (strcat x key))
   
5.          (reverse (cdr (reverse lst))))))
   
6.   (strcat str (last lst) "\n"))
   
7.     (setq lst '(("424" "437" "436" "435")
   
8.     ("429" "425" "426" "434")
   
9.     ("430" "428" "427" "433")
   
10.     ("422" "431" "439" "432")))
    
11.     (princ "\n")
    
12.     (foreach n lst (princ (rr n " ")))
    
13.     (princ))

(defun c:tt  (/ rr lst str key)<br />     (defun rr  (lst Key / Str)<br />   (setq str (apply 'strcat<br />        (mapcar '(lambda (x) (strcat x key))<br />          (reverse (cdr (reverse lst))))))<br />   (strcat str (last lst) "\n"))<br />     (setq lst '(("424" "437" "436" "435")<br />     ("429" "425" "426" "434")<br />     ("430" "428" "427" "433")<br />     ("422" "431" "439" "432")))<br />     (princ "\n")<br />     (foreach n lst (princ (rr n " ")))<br />     (princ))

无聊，再补充一个格式化的

1. (defun c:tt  (/ a i lst p q x)
   
2.     (setq lst '(("4204" "437" "436" "435")
   
3.     ("429" "421115" "426" "434")
   
4.     ("430" "42008" "427" "433")
   
5.     ("422" "431" "43639" "4032"))
   
6.     a   (mapcar '(lambda (x) (apply 'max (mapcar 'strlen x)))
   
7.           (apply 'mapcar (cons 'list lst))))
   
8.     (princ "\n")
   
9.     (foreach n  lst
   
10.   (setq i 0)
    
11.   (foreach m  n
    
12.       (setq p (strlen m)
    
13.       q (nth i a))
    
14.       (if  (and (= i 0) (= p q))
    
15.     (princ m)
    
16.     (if (= i 0)
    
17.         (progn (repeat (- q p) (princ " ")) (princ m))
    
18.         (progn (repeat (1+ (- q p)) (princ " "))
    
19.          (princ m))))
    
20.       (setq i (1+ i)))
    
21.   (princ "\n"))
    
22.     (princ))

(defun c:tt  (/ a i lst p q x)<br />     (setq lst '(("4204" "437" "436" "435")<br />     ("429" "421115" "426" "434")<br />     ("430" "42008" "427" "433")<br />     ("422" "431" "43639" "4032"))<br />     a   (mapcar '(lambda (x) (apply 'max (mapcar 'strlen x)))<br />           (apply 'mapcar (cons 'list lst))))<br />     (princ "\n")<br />     (foreach n  lst<br />   (setq i 0)<br />   (foreach m  n<br />       (setq p (strlen m)<br />       q (nth i a))<br />       (if  (and (= i 0) (= p q))<br />     (princ m)<br />     (if (= i 0)<br />         (progn (repeat (- q p) (princ " ")) (princ m))<br />         (progn (repeat (1+ (- q p)) (princ " "))<br />          (princ m))))<br />       (setq i (1+ i)))<br />   (princ "\n"))<br />     (princ))

yxp

这个叫格式化输出，用 \n 控制回车，\t 控制对齐 就可以。

树櫴希德

yxp 发表于 2024-3-5 16:05
这个叫格式化输出，用 \n 控制回车，\t 控制对齐 就可以。

\t 控制对齐  什么意思？

jun470

ssyfeng 发表于 2024-3-5 15:57
换行用\n就可以了

试试这个：

谢谢指教，\n赋值给变量和打印不一样

jun470

树櫴希德 发表于 2024-3-5 17:47
\t 控制对齐  什么意思？

\t 约等于是 Tab 键，制表符

jun470

yxp 发表于 2024-3-5 16:05
这个叫格式化输出，用 \n 控制回车，\t 控制对齐 就可以。

感谢指教，确实用这样就行了

jun470

ssyfeng 发表于 2024-3-5 15:57
换行用\n就可以了

试试这个：

感谢指教，我试出来了

树櫴希德

jun470 发表于 2024-3-5 22:12
\t 约等于是 Tab 键，制表符

在输出成文本文件时候怎么用呢？