asked on
Call xmlHttp2.open("GET", sContactURL, False)
xmlHttp2.setRequestHeader("Authorization:", " Basic " + EncodedShipStationID)
Call xmlHttp2.send()
'Get the server's response
sResponse = xmlHttp2.responseText
sResponse = Trim(sResponse)
'Save the response for later evaluation if needed
RtnVal = VarStringToTextFile(TempDataStorageFolder + "\ShipStationOrderResponse1.xml", sResponse)
Dim json As String = sResponse.ToString
Dim jsonObject As Newtonsoft.Json.Linq.JObject = Newtonsoft.Json.Linq.JObject.Parse(json)
'''Dim jsonArray As Newtonsoft.Json.Linq.JArray = jsonObject("items")
Dim jsonArray As Newtonsoft.Json.Linq.JArray = jsonObject("orders")
Dim CurrentSKU As String
Dim CurrentSKU Array() As String
CurrentSKU = ""
For Each item As Newtonsoft.Json.Linq.JObject In jsonArray
CurrentSKU = CurrentSKU + item.SelectToken("orderNumber").ToString + ","
Next
CurrentSKUArray = CurrentSKU .Split(",")
'################################################################
MsgBox("Done")
Cursor = Cursors.Default