HasanCAD 发表于 2014-10-16 03:20:20

有没有办法一次换一堆弦？

**** Hidden Message *****

HasanCAD 发表于 2014-10-16 03:55:35

我知道了
谢谢李
http://www . LEE-MAC . com/bfind . html

Kerry 发表于 2014-10-16 03:59:42

搜索字符串是完整的目标字符串还是包含在目标字符串（子字符串）中？

搜索字符串和替换字符串是字符串值还是变量？
你可以做的第一件事是为你的翻译建立一个参考列表
，我会对你的意图做出一些假设。

(setq translationList
       (list (list "C1" "C12")
             (list "C5" "C62")
             (list "TOP" "BTM")
             (list "SO" "ON")
            
       )
)


(defun getRef (key)
(cdr (assoc key translationList))
)


;; Test the function just to be sure
(getRef "CAT");;==> nil
(getref "TOP");;==> ("BTM")
(car (getRef "CAT") ) ;;==> nil
(car (getRef "C1") );;==> "C12"




;; Now write a tester
(setq targetString "C5" )
(if(setq replacement (car (getRef targetString) ))
(setq targetString replacement)
)

(alert (strcat "targetString value is now\n" targetString))

HasanCAD 发表于 2014-10-18 04:15:00

在开始写lisp时，想到这很难做到.
但是当Kerry回复帖子时，老师会一步一步地教我这一课。
感谢Kerry的非常简单和容易的方式。

Kerry 发表于 2014-10-18 04:21:06

谢谢哈桑卡德。
我的大脑通常以同样的方式工作...一步一步来，我努力让事情变得简单。
页: [1]
查看完整版本: 有没有办法一次换一堆弦？