VBA 中按空格过滤

VBA中按空格过滤实现文本处理的案例代码

Sub FilterWords()
    Dim inputString As String
    Dim words() As String
    Dim filteredWords() As String
    Dim i As Integer
    
    ' 输入字符串
    inputString = "Hello World! This is a test."
    
    ' 分割字符串为单词数组
    words = Split(inputString, " ")
    
    ' 过滤掉空格，并将非空单词存入filteredWords数组
    For i = LBound(words) To UBound(words)
        If Len(words(i)) > 0 Then
            ReDim Preserve filteredWords(UBound(filteredWords) + 1)
            filteredWords(UBound(filteredWords)) = words(i)
        End If
    Next i
    
    ' 输出过滤后的单词
    For i = LBound(filteredWords) To UBound(filteredWords)
        Debug.Print filteredWords(i)
    Next i
End Sub