提取字符串的4个部分

Question

我有以下字符串：

21||10/04/2017||34390136||SOME TEXT

在vba中，我如何提取四个值除以“维京”？(21，10/04/2017,34390136，一些文本)

我需要四个字符串，每一个值。

谢谢

Answer 1

使用SPLIT命令将其拆分为delimeter：

Sub Test()

    Dim MyString As String
    Dim MySplit As Variant
    Dim x As Long

    MyString = "21||10/04/2017||34390136||SOME TEXT"
    MySplit = Split(MyString, "||")

    For x = LBound(MySplit) To UBound(MySplit)
        MsgBox MySplit(x)
    Next x

End Sub

或者作为单行：

split("21||10/04/2017||34390136||SOME TEXT","||")(0)

split("21||10/04/2017||34390136||SOME TEXT","||")(1)

split("21||10/04/2017||34390136||SOME TEXT","||")(2)

split("21||10/04/2017||34390136||SOME TEXT","||")(3)