将字符串中的转义字符处理成ssget能识别的字符串(字母区分大小写)

dyjwyqz5221

2. (defun xd::string:tocase(str / lst str1)
   
3.         (setq lst (xdrx-string-regexps "." "`[]*|?#@.~,")
   
4.                 str1 (strcat "\" (xd::list->string lst "\"))
   
5.                 str1 (strcat "[" str1 "]|[" "^" str1 "]+" )
   
6.         )
   
7.         (apply 'strcat
   
8.                 (mapcar
   
9.                         '(lambda(x)
   
10.                                 (if (member x lst)
    
11.                                         (strcat "`" x)
    
12.                                         x
    
13.                                 );;;if       
    
14.                         );;;lambda
    
15.                         (xdrx-string-regexps str1 str)
    
16.                 );;;mapcar
    
17.         )
    
18. )

(defun xd::string:tocase(str / lst str1)<br />         (setq lst (xdrx-string-regexps "." "`[]*|?#@.~,")<br />                 str1 (strcat "\" (xd::list->string lst "\"))<br />                 str1 (strcat "[" str1 "]|[" "^" str1 "]+" )<br />         )<br />         (apply 'strcat<br />                 (mapcar<br />                         '(lambda(x)<br />                                 (if (member x lst)<br />                                         (strcat "`" x)<br />                                         x<br />                                 );;;if        <br />                         );;;lambda<br />                         (xdrx-string-regexps str1 str)<br />                 );;;mapcar<br />         )<br /> )