vba - 拆分( "TEXT"， "+"或 "-"，2)

Question

我需要用 Visual Basic 分隔字符串。

缺点是我有不止一个分隔符。

一个是"+"，一个是"-"。

如果 "+" 是字符串中的那个，我需要代码来检查字符串然后使用 "+"

如果 "-" 在字符串中，则使用 "-" 作为分隔符。

我可以这样做吗？

例如:Split( "TEXT", "+"OR "-",2)

Answer 1

最简单的方法是替换掉第二个字符，然后只用一个字符拆分:

Dim txt As String, updTxt As String
Dim splitTxt() As String

updTxt = Replace(txt, "-", "+")

splitTxt = Split(updTxt, "+")

或更复杂。下面返回拆分后的部分集合。如果需要，允许您更多地自定义返回数据:

Dim txt As String, outerTxt As Variant, innerTxt As Variant
Dim splitOuterTxt() As String
Dim allData As New Collection

    txt = "test + test - testing + ewfwefwef - fwefwefwf"

    splitOuterTxt = Split(txt, "+")

    For Each outerTxt In splitOuterTxt

        For Each innerTxt In Split(outerTxt, "-")

            allData.Add innerTxt

        Next innerTxt

    Next outerTxt