String 格式替换

st788796 · 发表于 2014-11-15 10:10:03

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

;; ~A 使用 vl-princ-to-string 替换
;; ~S 使用 vl-princ1-to-string 替换
;; ~D 整数
;; ~,num 使用 (rtos val 2 num) 替换
;; ~@ 列表替换
;; stream 字串
;; dest -- t or nil ， nil 返回替换后的 string
;; vals -- 对应的替换参数
(defun cl:format (stream dest vals / txts dimzin)
(if (and (vl-symbolp stream)
(eq '-? stream)
)
(progn
(princ
(strcat
"Aufruf: (cl:format stream \"Destination-String\" '(values ...)\n"
" stream t => Ausgabe auf Konsole\n"
" stream nil => Rückgabe als String\n"
" stream #<File ...> => Ausgabe in Datei\n\n"
" Destination-String: \n"
" jedes ~A wird durch die Ausgabe mit (vl-princ-to-string value) ersetzt\n"
" jedes ~S wird durch die Ausgabe mit (vl-prin1-to-string value) ersetzt\n"
" jedes ~D wird durch (itoa IntegerValue) ersetzt\n"
" jedes ~,<Anzahl Stellen> wird durch (rtos numberValue 2 <Anzahl Stellen>) ersetzt\n"
" jedes ~@ wird durch die Elemente der ValueList ersetzt\n"
" (cl:format nil \"das sind meine kinder ~@\" '((Heike Gabi Manni)))\n"
" => \"das sind meine kinder HEIKE GABI MANNI\"\n"
"Beispiel: (cl:format nil \n"
" \"~A hat eine Seitenl?nge von ~,3m und eine H?he von ~Dm\\nDas ergibt einen umbauten Raum von ~,3m3\"\n"
" (list \"Der Quader\" 2.5 4 (* 2.5 2.5 4)))\n"
"Ausgabe: \n\"Der Quader hat eine Seitenl?nge von 2.500m und eine H?he von 4m\nDas ergibt einen umbauten Raum von 25m3\"")
)
(prin1)
)
(progn
(setq dimzin (getvar "dimzin"))
(setvar "dimzin" 0)
(setq
txts ((lambda (vals defs txt / pos n cnt)
(setq cnt 0
pos 0
)
(while (setq pos (vl-string-position 126 txt pos))
(setq n (strcase (substr txt (+ 2 pos) 1)))
(cond ((= n "A")
(setq txt (vl-string-subst
(VL-PRINC-TO-STRING (nth cnt vals))
"~A"
txt
pos
)
cnt (1+ cnt)
)
)
((= n "D")
(setq txt (vl-string-subst
(itoa (nth cnt vals))
"~D"
txt
pos
)
cnt (1+ cnt)
)
)
((= n "S")
(setq txt (vl-string-subst
(VL-PRIN1-TO-STRING (nth cnt vals))
"~S"
txt
pos
)
cnt (1+ cnt)
)
)
((= n ",")
(setq txt (vl-string-subst
(rtos
(nth cnt vals)
2
(setq n (atoi (substr txt (+ 3 pos))))
)
(strcat "~," (itoa n))
txt
pos
)
cnt (1+ cnt)
)
)
((= n "@")
(setq txt (vl-string-subst
(apply
'strcat
(mapcar
(function
(lambda (val)
(strcat (VL-PRIN1-TO-STRING val)
" "
)
)
)
(nth cnt vals)
)
)
"~@"
txt
pos
)
cnt (1+ cnt)
)
)
)
)
txt
)
(cond ((atom vals) (list vals))
((vl-consp vals)
vals
)
(t (list vals))
)
(mapcar 'type vals)
dest
)
)
(setvar "dimzin" dimzin)
(if stream
(if (= (type stream) 'file)
(princ txts stream)
(princ txts)
)
txts
)
)
)
)

;; ~A 使用 vl-princ-to-string 替换 
;; ~S 使用 vl-princ1-to-string 替换 
;; ~D 整数 
;; ~,num 使用 (rtos val 2 num) 替换 
;; ~@ 列表替换 
;;  stream 字串 
;; dest -- t or nil ， nil 返回替换后的 string 
;; vals -- 对应的替换参数 
(defun cl:format (stream dest vals / txts dimzin) 
  (if (and (vl-symbolp stream) 
           (eq '-? stream) 
      ) 
    (progn 
      (princ 
        (strcat 
          "Aufruf: (cl:format stream \"Destination-String\" '(values ...)\n" 
          "  stream  t            => Ausgabe auf Konsole\n" 
          "  stream  nil          => Rückgabe als String\n" 
          "  stream  #<File ...>  => Ausgabe in Datei\n\n" 
          "  Destination-String: \n" 
          "    jedes ~A wird durch die Ausgabe mit (vl-princ-to-string value) ersetzt\n" 
          "    jedes ~S wird durch die Ausgabe mit (vl-prin1-to-string value) ersetzt\n" 
          "    jedes ~D wird durch (itoa IntegerValue) ersetzt\n" 
          "    jedes ~,<Anzahl Stellen> wird durch (rtos numberValue 2 <Anzahl Stellen>) ersetzt\n" 
          "    jedes ~@ wird durch die Elemente der ValueList ersetzt\n" 
          "      (cl:format nil \"das sind meine kinder ~@\" '((Heike Gabi Manni)))\n" 
          "      => \"das sind meine kinder HEIKE GABI MANNI\"\n" 
          "Beispiel: (cl:format nil \n" 
          "                     \"~A hat eine Seitenl?nge von ~,3m und eine H?he von ~Dm\\nDas ergibt einen umbauten Raum von ~,3m3\"\n" 
          "                     (list \"Der Quader\" 2.5 4 (* 2.5 2.5 4)))\n" 
          "Ausgabe: \n\"Der Quader hat eine Seitenl?nge von 2.500m und eine H?he von 4m\nDas ergibt einen umbauten Raum von 25m3\"") 
      ) 
      (prin1) 
    ) 
    (progn 
      (setq dimzin (getvar "dimzin")) 
      (setvar "dimzin" 0) 
      (setq 
        txts ((lambda (vals defs txt / pos n cnt) 
                (setq cnt 0 
                      pos 0 
                ) 
                (while (setq pos (vl-string-position 126 txt pos)) 
                  (setq n (strcase (substr txt (+ 2 pos) 1))) 
                  (cond        ((= n "A") 
                         (setq txt (vl-string-subst 
                                     (VL-PRINC-TO-STRING (nth cnt vals)) 
                                     "~A" 
                                     txt 
                                     pos 
                                   ) 
                               cnt (1+ cnt) 
                         ) 
                        ) 
                        ((= n "D") 
                         (setq txt (vl-string-subst 
                                     (itoa (nth cnt vals)) 
                                     "~D" 
                                     txt 
                                     pos 
                                   ) 
                               cnt (1+ cnt) 
                         ) 
                        ) 
                        ((= n "S") 
                         (setq txt (vl-string-subst 
                                     (VL-PRIN1-TO-STRING (nth cnt vals)) 
                                     "~S" 
                                     txt 
                                     pos 
                                   ) 
                               cnt (1+ cnt) 
                         ) 
                        ) 
                        ((= n ",") 
                         (setq txt (vl-string-subst 
                                     (rtos 
                                       (nth cnt vals) 
                                       2 
                                       (setq n (atoi (substr txt (+ 3 pos)))) 
                                     ) 
                                     (strcat "~," (itoa n))                                      
                                     txt 
                                     pos 
                                   ) 
                               cnt (1+ cnt) 
                         ) 
                        ) 
                        ((= n "@") 
                         (setq txt (vl-string-subst 
                                     (apply 
                                       'strcat 
                                       (mapcar 
                                         (function 
                                           (lambda (val) 
                                             (strcat (VL-PRIN1-TO-STRING val) 
                                                     " " 
                                             ) 
                                           ) 
                                         ) 
                                         (nth cnt vals) 
                                       ) 
                                     ) 
                                     "~@" 
                                     txt 
                                     pos 
                                   ) 
                               cnt (1+ cnt) 
                         ) 
                        ) 
                  ) 
                ) 
                txt 
              ) 
               (cond ((atom vals) (list vals)) 
                     ((vl-consp vals) 
                      vals 
                     ) 
                     (t (list vals)) 
               ) 
               (mapcar 'type vals) 
               dest 
             ) 
      ) 
      (setvar "dimzin" dimzin) 
      (if stream 
        (if (= (type stream) 'file) 
          (princ txts stream) 
          (princ txts) 
        ) 
        txts 
      ) 
    ) 
  ) 
)

类似 WriteMessage 用法 WriteMessage("\nRow = {0}, Coloumn = {1}", row.ToString(), colomn.ToString());

_$ (cl:format nil "\n~A = ~,m" (list 'aaa 2 ))
"\nAAA = 2m"
_$ (cl:format nil "\n~A = ~,3m" (list 'aaa 2 ))
"\nAAA = 2.0003m"
_$

Free-Lancer · 发表于 2014-11-15 12:00:24

留存

(defun fy:WriteMessage (msg lst / n n1 ll)
(if lst
(while (and (/= msg "") (setq n (vl-string-search "{" msg)))
(setq ll (cons (substr msg 1 n) ll)
msg (substr msg (+ 2 n))
)
(if (setq n1 (vl-string-search "}" msg))
(progn
(if (distof (vl-string-trim " " (substr msg 1 n1)))
(setq ll (cons (car lst) ll)
lst (cdr lst)
msg (substr msg (+ n1 2))
)
)
)
)
)
)
(prompt (if ll
(apply 'strcat
(mapcar '(lambda (x)
(if (eq (type x) 'INT)
(itoa x)
(vl-princ-to-string x)
)
)
(reverse ll)
)
)
msg
)
)
)

(defun fy:WriteMessage (msg lst / n n1 ll) 
  (if lst 
    (while (and (/= msg "") (setq n (vl-string-search "{" msg))) 
      (setq ll        (cons (substr msg 1 n) ll) 
            msg        (substr msg (+ 2 n)) 
      ) 
      (if (setq n1 (vl-string-search "}" msg)) 
        (progn 
          (if (distof (vl-string-trim " " (substr msg 1 n1))) 
            (setq ll  (cons (car lst) ll) 
                  lst (cdr lst) 
                  msg (substr msg (+ n1 2)) 
            ) 
          ) 
        ) 
      ) 
    ) 
  ) 
  (prompt (if ll 
            (apply 'strcat 
                   (mapcar '(lambda (x) 
                              (if (eq (type x) 'INT) 
                                (itoa x) 
                                (vl-princ-to-string x) 
                              ) 
                            ) 
                           (reverse ll) 
                   ) 
            ) 
            msg 
          ) 
  ) 
)

(fy:writemessage "\nTotle Length = { 0 }, Area = { 1 }" '(1 2))

xvjiex · 发表于 2021-7-27 00:12:47

感谢楼主分享String 格式替换

账号		自动登录	找回密码
密码			立即注册

[每日一码] String 格式替换

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。