PureBasic Forums - English

Code: Select all

Teststr.s = "--------------1234567 Content-Disposition: form-Data; name="+Chr(34)+"val1"+Chr(34)+" test --------------1234567 Content-Disposition: form-Data; name="+Chr(34)+"val2"+Chr(34)+"--------------1234567 Content-Disposition: form-Data; name="+Chr(34)+"val3"+Chr(34)+"moredata --------------1234567 Content-Disposition: form-Data; name="+Chr(34)+"val4"+Chr(34)+" this is a test --------------1234567 Content-Disposition: form-Data; name="+Chr(34)+"val5"+Chr(34)+" hello --------------1234567 "

Procedure.s PrepareString(str.s)
  Protected temp.l
  Protected StrPosP.l   : StrPosP = 1
  Protected ActChar.s
  Protected FindStr1.s  : FindStr1 = "name="+Chr(34)
  Protected FindStr2.s  : FindStr2 = "--------------"
  Protected ResultStr.s : ResultStr = ""
  
  StrPosP = FindString(str, FindStr1, StrPosP)
 
  While StrPosP < Len(str) And StrPosP <> 0
    If Len(ResultStr) > 0
      ResultStr + "&"
    EndIf
    
    Debug ResultStr
    StrPosP + Len(FindStr1)
    ActChar = ""
    ; 1st: get the variable name
    temp = FindString(str, Chr(34), StrPosP)
    If temp = 0 ; if there's an error in syntax, (missing " ), then copy all the rest to the result and end
      ResultStr + Mid(str,StrPosP,Len(str)-StrPosP)
      Break
    Else
      ResultStr + Mid(str,StrPosP,temp-StrPosP)
    EndIf
    StrPosP = temp + 1
    
    ; 2nd: get the value
    temp = FindString(str, FindStr2, StrPosP)
    If temp = 0 ; if there's an error in syntax, (missing -------------- ), then copy all the rest to the result and end
      ResultStr + Mid(str,StrPosP,Len(str)-StrPosP)
      Break
    Else
      ResultStr + "="+Trim(Mid(str,StrPosP,temp-StrPosP))
    EndIf
    
    StrPosP = FindString(str, FindStr1, StrPosP)
  Wend
  ProcedureReturn ResultStr
EndProcedure
  
Debug PrepareString(Teststr)

Code: Select all

 and the [quote] - tags as often as senseful to ensure an lightly understandable messagetext.
(was THAT correct English ?)

 :wink: