分享两个字符串处理函数SubStrEx、StrLenEx

guohq

使用LISP进行字符串处理时，遇到中文时很麻烦，系统自带函数SubStr、StrLen都无法处理带中文的字符串。为此做了两个函数，分享给大家。

1. (defun SubStrEx(Input Start Len / Result REG DATA MaxIndex);
   
2.   ;vbscript.regexp 对象由Microsoft VBScript Regular Expressions5.5提供
   
3.   ;保存于c:\windows\system32\vbscript.dll
   
4.   ;\S|\s 可以匹配任意字符
   
5.   ;Start开始字符串，从1开始（提前要做好类型判断）
   
6.   ;Len表示获取到的总长度（提前要做好类型判断）
   
7.   (setq Result "")
   
8.   (setq Start (1- Start))
   
9.   (if (< Start 0)
   
10.     (setq Start 0)
    
11.     )
    
12.   (setq REG (vlax-create-object "vbscript.regexp"))
    
13.   (vlax-put-property REG 'Pattern "\\S|\\s")
    
14.   (vlax-put-property REG 'Global  :vlax-true);是否全部匹配
    
15.   (setq DATA  (vlax-invoke-method REG 'Execute Input))
    
16.   (setq MaxIndex (vlax-get-property DATA 'Count))
    
17.   (while (and (> Len 0) (< Start MaxIndex))        
    
18.     (setq Result (strcat Result (vlax-get-property  (vlax-get-property  DATA 'Item Start) 'Value)))
    
19.     (setq Start (1+ Start))
    
20.     (setq Len (1- Len))
    
21.     )
    
22.   (vlax-release-object DATA)
    
23.   (vlax-release-object REG)
    
24.   Result
    
25.   )
    

(defun SubStrEx(Input Start Len / Result REG DATA MaxIndex);<br />   ;vbscript.regexp 对象由Microsoft VBScript Regular Expressions5.5提供<br />   ;保存于c:\windows\system32\vbscript.dll<br />   ;\S|\s 可以匹配任意字符<br />   ;Start开始字符串，从1开始（提前要做好类型判断）<br />   ;Len表示获取到的总长度（提前要做好类型判断）<br />   (setq Result "")<br />   (setq Start (1- Start))<br />   (if (< Start 0)<br />     (setq Start 0)<br />     )<br />   (setq REG (vlax-create-object "vbscript.regexp"))<br />   (vlax-put-property REG 'Pattern "\\S|\\s")<br />   (vlax-put-property REG 'Global  :vlax-true);是否全部匹配<br />   (setq DATA  (vlax-invoke-method REG 'Execute Input))<br />   (setq MaxIndex (vlax-get-property DATA 'Count))<br />   (while (and (> Len 0) (< Start MaxIndex))        <br />     (setq Result (strcat Result (vlax-get-property  (vlax-get-property  DATA 'Item Start) 'Value)))<br />     (setq Start (1+ Start))<br />     (setq Len (1- Len))<br />     )<br />   (vlax-release-object DATA)<br />   (vlax-release-object REG)<br />   Result<br />   )<br />

1. (defun StrLenEx(Input / Result REG DATA)
   
2.   ;获取字符串的长度
   
3.   (setq Result nil)
   
4.   (setq REG (vlax-create-object "vbscript.regexp"))
   
5.   (vlax-put-property REG 'Pattern "\\S|\\s")
   
6.   (vlax-put-property REG 'Global  :vlax-true);是否全部匹配
   
7.   (setq DATA (vlax-invoke-method REG 'Execute Input))
   
8.   (setq Result (vlax-get-property DATA 'Count))
   
9.   (vlax-release-object DATA)
   
10.   (vlax-release-object REG)
    
11.   Result
    
12.   )
    
13. 
    

(defun StrLenEx(Input / Result REG DATA)<br />   ;获取字符串的长度<br />   (setq Result nil)<br />   (setq REG (vlax-create-object "vbscript.regexp"))<br />   (vlax-put-property REG 'Pattern "\\S|\\s")<br />   (vlax-put-property REG 'Global  :vlax-true);是否全部匹配<br />   (setq DATA (vlax-invoke-method REG 'Execute Input))<br />   (setq Result (vlax-get-property DATA 'Count))<br />   (vlax-release-object DATA)<br />   (vlax-release-object REG)<br />   Result<br />   )<br /> <br />

20060510412

好像论坛里面已经有正则表达式相关的函数了

尘缘一生

运行不了

guohq

改为这个试一下
(vlax-put-property REG 'Global  -1)

明_明

感谢分享中文字符串处理函数