|
本帖最后由 perfect131 于 2022-12-18 15:14 编辑
WorksheetFunction.Trim 方法 (Excel)
删除文本中的所有空格(除了单词之间的单个空格外)。文本前后空格也删除。
在EXCEL使用很方便,但在 word ,ppt 中使用就较复杂,用正则实现 WorksheetFunction.Trim
- Sub kong()
- 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" & _
- " 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 "
- Debug.Print XPath
- If InStr(XPath, " ") Or Left$(XPath, 1) = " " Or Right$(XPath, 1) = " " Then
- MsgBox "有连续多个空格 或 文本前有空格 或 文本后有空格!!!"
- Else
- MsgBox "没有连续多个空格 或 文本前有空格 或 文本后有空格!!!"
- End If
- Set reg = CreateObject("vbscript.regexp")
- With reg
- .Pattern = "^ +| +$|( )+"
- .Global = True
- End With
- XPath = reg.Replace(XPath, "$1")
- If InStr(XPath, " ") Or Left$(XPath, 1) = " " Or Right$(XPath, 1) = " " Then
- MsgBox "有连续多个空格 或 文本前有空格 或 文本后有空格!!!"
- Else
- MsgBox "没有连续多个空格 或 文本前有空格 或 文本后有空格!!!"
- End If
- Debug.Print XPath
- Set reg = Nothing
- End Sub
复制代码
|
评分
-
1
查看全部评分
-
|