Nth-Element aus VBA-String-Array abrufen

Question

Wie würde ich das n-te Element aus einem VBA-String-Array extrahieren?

Ich habe eine Zeichenfolge, wie: TEST - 2017/01/20 = Invoice

ich die 2. und 3. Elemente so knapp wie möglich extrahieren möchten. Ich habe versucht, etwas Javascripty wie diese, was nicht funktioniert, so muss es eine VBA Weg:

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

eine mögliche Lösung

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

ich verwendet habe, würde die Lösung von @ h2so4 mit Ersatz (vor allem, wenn es sich um eine berufsbezogene Aufgabe), aber wenn Sie ein Fan von „fancy“ Codierung sind, funktioniert dies auch:

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