2009-07-12 12:52 [範例]dos_strreplace函數的替換
很久沒有發表文章了~
這陣子真是大家過的好嗎?
發表一篇DOSLib文字替換的範例...
EXP:
(SETQ OLD_STR "X194.2/X2,944X100%=6.6%元對象內容元")
(SETQ SOU_LST (LIST "X" "X" "[" "]" "%" "," "=" "元對象" "內容元")) ;替換對象
(SETQ DST_LST (LIST "*" "*" "(" ")" "" "" "" "X1" "X2")) ;替換內容
(MAPCAR '(lambda (X1 X2)
(setq old_str (dos_strreplace old_str x1 x2)) ;在字符串中使用指定字符替?已有字符.
)SOU_LST DST_LST)
OLD_STR
_$ "*194.2/*2944*1006.6X1X2"
回應
