正则实现 WorksheetFunction.Trim

perfect131

        WorksheetFunction.Trim 方法 (Excel)
         删除文本中的所有空格（除了单词之间的单个空格外）。文本前后空格也删除。
        在EXCEL使用很方便，但在 word ,ppt 中使用就较复杂，用正则实现 WorksheetFunction.Trim

1. Sub kong()
   
2.     XPath = "  M 0 0  C 0.001 0.04533  0.011 0.08667  0.028 0.11333  C 0.028 0.11467  0.055 0.15067  0.055 0.14933" & _
   
3. " C -0.055 0.15067  -0.028 0.11467  -0.028 0.11333  C -0.011 0.08667  -0.001 0.04533  0 0  Z  "
   
4.     Debug.Print XPath
   
5.     If InStr(XPath, "  ") Or Left$(XPath, 1) = " " Or Right$(XPath, 1) = " " Then
   
6.         MsgBox "有连续多个空格 或 文本前有空格 或 文本后有空格！！！"
   
7.     Else
   
8.         MsgBox "没有连续多个空格 或 文本前有空格 或 文本后有空格！！！"
   
9.     End If
   
10.     Set reg = CreateObject("vbscript.regexp")
    
11.     With reg
    
12.         .Pattern = "^ +| +$|( )+"
    
13.         .Global = True
    
14.     End With
    
15.     XPath = reg.Replace(XPath, "$1")
    
16.     If InStr(XPath, "  ") Or Left$(XPath, 1) = " " Or Right$(XPath, 1) = " " Then
    
17.         MsgBox "有连续多个空格 或 文本前有空格 或 文本后有空格！！！"
    
18.     Else
    
19.         MsgBox "没有连续多个空格 或 文本前有空格 或 文本后有空格！！！"
    
20.     End If
    
21.     Debug.Print XPath
    
22.     Set reg = Nothing
    
23. End Sub

复制代码

kevinchengcw

这意思吗？

ggmmlol

我的自定义函数可以修剪由给定正则表达式任意能匹配的字符：

1. Public Function TRIMCHARS(ByVal tmpVal$, ByVal Chars$)
   
2.     Chars = "^(?:" & Chars & ")+|(?:" & Chars & ")+(?=(?:" & Chars & ")|$)"
   
3.     TRIMCHARS = REGREPLACE(tmpVal, Chars, "")
   
4. End Function

复制代码

此自定义函数，包含在我的【小妖工具】加载宏中：小妖工具

iiyumewo

正则那么复杂吗...

liuxin12

\s就好，哈哈哈哈哈