自定义ACET-STR-REPLACE

/db_自贡黄明儒_

没有找到ACET-STR-REPLACE函数,故自定义一个，是否会有相同的结果呢？

1. (defun ACET-STR-REPLACE1 (o n s)  
   
2.   (XD::String:Replace (strcat "[" o "]") s n "I")
   
3. )
   
4. ;; 用正则表达式替换字符 by 梁雄啸.2007.7
   
5. (defun XD::String:Replace (pat str nstr key / end)  
   
6.   (vl-load-com)
   
7.   (if (not *xxvbsexp)
   
8.     (setq *xxvbsexp (vlax-get-or-create-object "VBScript.RegExp"))
   
9.   )
   
10.   (vlax-put *xxvbsexp 'Pattern pat)
    
11.   (if (not key)(setq key ""))
    
12.   (setq key (strcase key))
    
13.   (setq keys '(("I"  "IgnoreCase")("G"  "Global")("M"  "Multiline")))
    
14.   (mapcar '(lambda(x)
    
15.              (if (wcmatch key (strcat "*" (car x) "*"))
    
16.                (vlax-put *xxvbsexp (read(cadr x)) 0)
    
17.                (vlax-put *xxvbsexp (read(cadr x)) -1)
    
18.                ))
    
19.           keys)
    
20.   (vlax-invoke *xxvbsexp 'replace str nstr)
    
21. )

(defun ACET-STR-REPLACE1 (o n s)  <br />   (XD::String:Replace (strcat "[" o "]") s n "I")<br /> )<br /> ;; 用正则表达式替换字符 by 梁雄啸.2007.7<br /> (defun XD::String:Replace (pat str nstr key / end)  <br />   (vl-load-com)<br />   (if (not *xxvbsexp)<br />     (setq *xxvbsexp (vlax-get-or-create-object "VBScript.RegExp"))<br />   )<br />   (vlax-put *xxvbsexp 'Pattern pat)<br />   (if (not key)(setq key ""))<br />   (setq key (strcase key))<br />   (setq keys '(("I"  "IgnoreCase")("G"  "Global")("M"  "Multiline")))<br />   (mapcar '(lambda(x)<br />              (if (wcmatch key (strcat "*" (car x) "*"))<br />                (vlax-put *xxvbsexp (read(cadr x)) 0)<br />                (vlax-put *xxvbsexp (read(cadr x)) -1)<br />                ))<br />           keys)<br />   (vlax-invoke *xxvbsexp 'replace str nstr)<br /> )

newer

正则表达式是真强{:soso_e179:}

newer

正则表达式是真强{:soso_e179:}
写的很通用，感觉可能会有不适合的吧。

ayl1004

(acet-str-replace find replace string [ignoreCase [useRegExp [count]]])

Replace one substring with another.

Arguments
find: The substring to locate.
replace: The replacement substring.
string: The string to search.
ignoreCase: If provided and non-nil, indicates that case insensitive comparisons should be performed.
useRegExp: If provided and non-nil, indicates that regular expressions should be used for searching.
count: The number of times to perform the replacement in string. If count is zero or not supplied then all occurrences are replaced.

This function uses the following definitions for regular expressions:

. Matches any single character.
* Postfix. Preceeding item 0 or more times.
+ Postfix. Preceeding item 1 or more times.
^ Matches empty string at beginning of text.
$ Matches empty string at end of text.
[chars] Matches any character in the given class. If the first character is ^, match any character not in the given class. A range of character may be specified by first-last, as in [A-Z] to specify upper case alphabetic characters.
\( Mark the beginning of a subexpression.
\) Mark the end of a subexpression.
\digit Matches a repeat of the text matched earlier by the subexpression inside the nth opening parenthesis. Subexpressions may also be referenced in replace strings.


Return Values
Returns the resultant string with replacements (if any) made.

是arx里面定义的函数