VBScript中Split多空格字符串时如何跳过空白元素？

嘿，我懂你遇到的麻烦——用Split按空格分割带连续空格的字符串时，数组里塞满了没用的空白项，处理起来超烦！我给你两种实用的解决办法，看哪种更适合你的场景：

方法1：先清理字符串，再分割 #

核心思路是把所有连续的空格（不管多少个）替换成单个空格，同时去掉首尾的空格，这样Split后就不会产生空白项了。用正则表达式来做最高效：

' 创建正则表达式对象
Dim regEx
Set regEx = New RegExp
regEx.Global = True ' 全局匹配所有符合条件的内容
regEx.Pattern = "\s+" ' 匹配一个或多个空白字符（包括空格、制表符等）

' 清理字符串：把多空格换成单个空格，再去掉首尾空格
tmpstr = Trim(regEx.Replace(tmpstr, " "))

' 现在分割就只会得到有效内容了
strTmp = Split(tmpstr, " ")

' 后续循环处理（现在数组里没有空白项啦）
For Each text In strTmp
    If InStr(text, textToFind) Then
        WScript.Echo "text found"
    Else
        WScript.Echo "not found"
    End If
Next

如果你的场景里只有空格（没有制表符之类的其他空白），也可以用多次Replace来替换多空格，但正则表达式显然更省心，不管多少个连续空格都能一次搞定。

方法2：在循环中直接过滤空白项 #

如果你不想修改原字符串，也可以在遍历数组的时候跳过那些空白或仅含空格的项，直接修改你现有的代码就行：

strTmp = Split(tmpstr, " ")
For Each text In strTmp
    ' 先判断当前项是不是空白（Trim后为空就跳过）
    If Trim(text) <> "" Then
        ' 这里执行你的验证逻辑
        If InStr(text, textToFind) Then
            WScript.Echo "text found"
        Else
            WScript.Echo "not found"
        End If
    End If
Next

这个方法的好处是不用提前处理字符串，直接在循环里过滤掉没用的项，适合需要保留原Split结果的场景。

两种方法都能帮你得到只包含有效内容的数组，看你需求选就行啦！

内容的提问来源于stack exchange，提问作者Noemy Teran Romero