vbScript 在分割后忽略许多空格

Question

当我分割一个包含多个空格的字符串时，有没有办法跳过空格？

下面的示例字符串:

Lorem                            ipsum dolor sit amet, consectetur
             adipiscing elit. Morbi cursus quam sapien, sed ultricies diam vestibulum ac.
Morbi                    luctus nisl eleifend                    mi tincidunt, 
sed vehicula magna lobortis. 

拆分时，数组包含多个位置的“”(空格)

[0] Lorem
[1] " "
[2] " "
[3] " "
[4] " "
[5] Ipsum

那么，有没有办法跳过这些空格并得到类似的东西？

[0] Lorem
[1] Ipsum
[3] dolor

这是我的代码:

strTmp = split(tmpstr," ")
For each text in strTmp
'Here I validate other things
  If InStr(x,textToFind) Then
    print "text found"
  Else
    print "not found"
  End If
Next

Answer 1

其中一种方法是在分割字符串之前对其进行处理。

示例代码

varStr = "Lorem                            ipsum dolor sit amet, consectetur             adipiscing elit. Morbi cursus quam sapien, sed ultricies diam vestibulum ac. Morbi                    luctus nisl eleifend                    mi tincidunt, sed vehicula magna lobortis"

' this is what you are getting right now
arrStr = Split(varStr, " ")

Set objRegEx = CreateObject("VBScript.RegExp")
With objRegEx
    .Global = True
    .MultiLine = True
    .Pattern = "\s+" 'matches any whitespace character
    varStr1 = objRegEx.Replace(varStr, "¬")
End With
Set objRegEx = Nothing

' this is what you want
arrStr1 = Split(varStr1, "¬")

我首先删除了所有空格并将其替换为单个 Ø，当我稍后分割字符串时，它将充当分隔符。