AutoLisp‎ > ‎Việt Lisp Functions‎ > ‎

vlp-string-replace

đăng 07:25, 10 thg 10, 2011 bởi Lisp Việt   [ đã cập nhật 07:25, 10 thg 10, 2011 ]
(defun vlp-string-replace (str oitem nitem / i lst temp nstr len nl ol)
  (if (and str (/= oitem nitem))
        (progn
          (setq i 1)
          (while (<= i (strlen str))
                     (setq temp (substr str i (strlen oitem)))
                     (if (= temp oitem)
                           (progn
                                 (setq str (strcat (substr str 1 (- i 1))
                                     nitem
                                     (substr str (+ i (strlen oitem)))
                            )
                         )
                     (setq i (+ i (strlen nitem)))
                   )
           (setq i (1+ i))
         )
      )
    )
  )
  str
)
 
Comments