[编程交流] 替换文字（无vlisp）

(defun C:test (/ str owrd nwrd i w fst lst)
 (setq str (getstring T "\nPlease type your sentense:\n"))
 (setq owrd (getstring T "\nType the word you want to replace\n"))
 (setq nwrd (getstring T "\nType the word you want to replace with\n"))
 (if (wcmatch str (strcat "*" owrd "*"))
   (progn
     (setq i 0)
     (setq w "")
     
     (while (not (equal w owrd))
(setq i (+ i 1))
(setq w (substr str i (strlen owrd)));_search for the old word
 
     )
  (setq fst (substr str 1 (- i 1)))
  (setq        lst (substr str
                    (+ i (strlen owrd))
                    (- (strlen str)  (strlen owrd))
            )
  )
  (princ (strcat fst nwrd lst))
  (setq w nil) ;_cuz while stop
) ;_progn if yes
   (princ "\nMatch not found\n")
   
 )
 (princ)
)

(Defun c:repstr ( / _valid str owrd nwrd str nstr)
;;                pBe013March2014                ;;;
(defun _valid (msg / a)
(setq a (getstring T msg))
         (if (snvalid a) a (prompt "\n<<<Invalid String>>>")))
(and
  (setq str (_valid "\nPlease type your sentense: "))
  (setq owrd (_valid "\nType the word you want to replace: "))
  (setq nwrd (_valid "\nType the word you want to replace with: "))
        (while (wcmatch str (strcat "*" owrd "*"))
          (setq        i    0
                nstr str
                l    (strlen owrd)
          )
                (While (eq str nstr)
                  (if (eq owrd (substr str (setq i (1+ i)) l))
                    (setq nstr (strcat (substr str 1 (setq n (1- i)))
                                       nwrd
                                       (substr str (+ n l 1))
                               )
                    )
                  ) 
                )
          (setq str nstr)
        )
  (print str)
 )
 (princ)
)

(defun str-subst-all (new old string / search return)
 (setq search (strcat old "*") return "")
 (while (not (eq string ""))
   (if (wcmatch string search)
     (setq string (substr string (1+ (strlen old))) return (strcat return new))
     (setq return (strcat return (substr string 1 1)) string (substr string 2))))
 return)