标签：
;|;=====================================================================
定义函数：替换字符串
参数说明： str---欲替换的字符串
lst---分割符表，参数类型：表
返回值：替换后的字符串
类 型：字符串
示 例：(str-th "" ‘(("<" "<") (">" ">")))
返 回："<HTML>"
日 期：zml84 于2007-05-08
|;
(defun str-th (str lst / i a b len-a tmp j strj)
(if (and str lst)
(progn
(setq i 0)
(repeat (length lst)
(setq a (car (nth i lst))
len-a (strlen a)
b (cadr (nth i lst))
tmp ""
)
(if (>= (strlen str) len-a)
(progn
(setq j 1)
(repeat (- (strlen str) len-a -1)
(setq strj (substr str j 1))
(if (= strj a)
(setq tmp (strcat tmp b))
(setq tmp (strcat tmp strj))
)
(setq j (1+ j))
)
)
)
(setq i (1+ i)
str tmp
)
)
)
) ;_结束 if
str
) ;_ 结束defun
;;;=====================================================================
;;;加载后的提示信息
标签：
原文地址：http://www.cnblogs.com/belx/p/4515410.html
