close

 

很久沒有發表文章了~
這陣子真是大家過的好嗎?
發表一篇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"

arrow
arrow
    全站熱搜
    創作者介紹
    創作者 jthwax 的頭像
    jthwax

    JTHWAX 部落格

    jthwax 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄