Parsing string in reverse order

[ReportDr00]

Hi
I have below incoming string and needs to be parsed and placed it in reverse order
Incoming String
labname1^labresults1^labname2^labresults2^labname3^labresults3

Output String
labname3^labresults3^labname2^labresults2^labname1^labresults1

Appreciate feedback

Regards

 

[Swi]

Your post was a bit misleading so I am glad you gave an illustration as this is not *technically* reverse order. If this was reverse order it would have been:

labresults3^labname3^labresults2^labname2^labresults1^labname1

Anyway, here you go.

Dim InputStr
Dim OutputStr
Dim aryTemp
Dim aryFinal

InputStr = "labname1^labresults1^labname2^labresults2^labname3^labresults3"
aryTemp = Split(InputStr, "^")
ReDim aryFinal(UBound(aryTemp))
For i = UBound(aryTemp) To LBound(aryTemp) Step -2
    OutputStr = OutputStr & aryTemp(i - 1) & "^" & aryTemp(i) & "^"
Next
MsgBox Left(OutputStr, Len(OutputStr) - 1)

Swi

 

[Swi]

Sorry, you can get rid of the following two lines of code:

Dim aryFinal
ReDim aryFinal(UBound(aryTemp))

They are unused.

Swi