VBA文字列配列からn番目の要素を取得する

Question

VBA文字列配列からn番目の要素を抽出するにはどうすればよいですか？私はのように簡潔に可能な限り2番目と3番目の要素を抽出したいTEST - 2017/01/20 = Invoice

：よう

私は、文字列を持っています。私は動作しません。これは、このような何かJavascriptyをしようとしていたので、VBAの方法がなければならない：

Dim Report As String 
Dim CurrLine As String 
Dim CurrDate As String 
Dim CurrTask As String 

CurrLine = "TEST - 2017/01/20 = Invoice" 
CurrDate = Trim(Split(CurrLine, '-')[1]) 
CurrTask = Trim(Split(CurrLine, '=')[1]) 
Report = Report & CHR(34) & CurrDate & CHR(34) & "," & CHR(34) & CurrTask & CHR(34) 

//result: "2017/01/20","Invoice" 

Answer 1

私は交換と@ H2SO4の溶液を使用しているだろう

Dim Report As String 
Dim CurrLine As String 
Dim CurrDate As String 
Dim CurrTask As String, St 


CurrLine = "TEST - 2017/01/20 = Invoice" 
St=Split(replace(CurrLine, "=","-"),"-") 
CurrDate = St(1) 
CurrTask = St(2) 
Report = Report & CHR(34) & CurrDate & CHR(34) & "," & CHR(34) & CurrTask & CHR(34) //result: "2017/01/20","Invoice" 

Answer 2

可能な解決策（それが仕事関連のタスクである場合は特に）、しかし、あなたは「空想」は、コードのファンであれば、これは同様に動作します：かなり非効率的な方法のように思える

Option Explicit 

Public Sub Test() 

    Dim strtest As String 

    strtest = "Test - 2017/1/20 = Invoice" 

    Debug.Print Trim(Split(strtest, "-")(1)) 
    Debug.Print Trim(Split(strtest, "=")(1)) 
    Debug.Print Trim(Split(Trim(Split(strtest, "-")(1)), "=")(0)) 

End Sub