how can i loop and parse a string?

Say i have this string:

Code:

---

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?

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

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

VB Code:

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