how can i loop and parse a string?

[MXAlPhA]

Say i have this string:

search?Origin=&Width=0&Length=0&widthmeters=0&Lengthmeters=3&Price=0

How can i parse through each of these origins and width's and so forth and retrieve the name of it and the value? Like say i have that string and i want to retrieve:

origin = ""

But i don't know how many of these type of things there are and so forth. Does any get what i'm saying?

[JOHNY741]

Start with
Dim artStr() As String
aryStr = Split(strIN,"&")
then use Instr(1,aryStr(I),"=")
on each element.

[WorkHorse]

Here's a way to get all your parameter names and values.

Type FieldData
    Name As String
    Value As Variant
End Type
Dim Field() As FieldData
'The above goes in your declarations.
 
Sub MySrtingParser()
 
Dim x As String
Dim varFields As Variant
Dim i As Long
Dim PosOfEqualSign As Long
 
x = "search?Origin=&Width=0&Length=0&widthmeters=0&Lengthmeters=3&Price=0"
 
' Split field after 8th character ("search?") by the "&" sign.
varFields = Split(Mid$(x, 8), "&")
 
ReDim Field(UBound(varFields))
For i = 0 To UBound(varFields)
    ' Find position of "=" sign in field.
    PosOfEqualSign = InStr(varFields(i), "=")
    ' Set field name and value.
    Field(i).Name = Left$(varFields(i), PosOfEqualSign - 1)
    Field(i).Value = Mid$(varFields(i), PosOfEqualSign + 1)
Next
 
' Print results.
For i = 0 To UBound(Field)
    Debug.Print Field(i).Name & " = " & Field(i).Value
Next
 
End Sub