(XD::String:EscapeCha) 转义字符处理

newer

1. (defun XD::String:EscapeCha (str / key1 key2 n str1)
   
2.   (setq str1 ".,<>()[]{}#?-!"
   
3.         str1 (xdrx_string_regexps "." str1)
   
4.   )
   
5.   (foreach n str1
   
6.     (setq str (xdrx_string_replace str n (strcat "\\" n)))
   
7.   )
   
8. )

(defun XD::String:EscapeCha (str / key1 key2 n str1)<br />   (setq str1 ".,<>()[]{}#?-!"<br />         str1 (xdrx_string_regexps "." str1)<br />   )<br />   (foreach n str1<br />     (setq str (xdrx_string_replace str n (strcat "\\" n)))<br />   )<br /> )

/db_自贡黄明儒_

N版，实例呢？这个程序有什公作用？前段时间在DCL动态打包时就处理不了\n,你这个行不?

newer

/db_自贡黄明儒_ 发表于 2016-5-3 22:02
N版，实例呢？这个程序有什公作用？前段时间在DCL动态打包时就处理不了\n,你这个行不?

还用实例吗？ 就是把上面代码里面的 ".,<>()[]{}#?-=!" 这里面的字符前面加上//， 这个函数是为了处理正则表达式的，你想处理什么，把字符添加到里面。