变量转字符串带双引号

啵浪鼓

1291500406 发表于 2019-10-19 20:44
(setq A1 1)
(alert(strcat "label = \"" (vl-princ-to-string A1)"\""))
label = "1"

感谢这个是需要的
之前一直试过无数遍，错误在第一组需要2个双引号

lisperado

请看strcat函数

1. (defun c:tt ( / i lst)
   
2. (setq i 0 lst '(1 2 "3" "A" B))
   
3. (repeat (length lst)
   
4. (terpri)
   
5. (setq str (nth i lst))
   
6. (print (strcat "label=\"key" (vl-princ-to-string str)  "\" ;" ) )
   
7. (setq i (1+ i))
   
8. )
   
9. (textpage)
   
10. (princ)
    
11. )
    
12. 
    
13. ;|print和read-line ,write-line,read-line返回值
    
14. "label=\"key1\" ;"
    
15. "label=\"key2\" ;"
    
16. "label=\"key3\" ;"
    
17. "label=\"keyA\" ;"
    
18. "label=\"keyB\" ;"
    
19. |;
    
20. 
    

(defun c:tt ( / i lst)<br /> (setq i 0 lst '(1 2 "3" "A" B))<br /> (repeat (length lst)<br /> (terpri)<br /> (setq str (nth i lst))<br /> (print (strcat "label=\"key" (vl-princ-to-string str)  "\" ;" ) )<br /> (setq i (1+ i))<br /> )<br /> (textpage)<br /> (princ)<br /> )<br /> <br /> ;|print和read-line ,write-line,read-line返回值<br /> "label=\"key1\" ;"<br /> "label=\"key2\" ;"<br /> "label=\"key3\" ;"<br /> "label=\"keyA\" ;"<br /> "label=\"keyB\" ;"<br /> |;<br /> <br />

princ 返回值
label="key1" ;
label="key2" ;
label="key3" ;
label="keyA" ;
label="keyB" ;