提取4个部分字符串

Question

的，我有以下字符串：

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

我如何可以提取，在VBA中，四个值除以“||” ？ （21，10/04/2017，34390136，Some Text）

我需要四个字符串与每个值。

由于

Answer 1

使用SPLIT命令由分隔符分割：

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)