JSONParser parse to DateTime

[priitp]

My first program here.

Geting JSON data from server but can't parse to DateTime format.

Using JSONParser and do copy all objects to List.
Then copy item by item to a Map.
Problem accours when trying to parse a Map property to DateTime.

In JSON string it is as: ...,"PostDate":"\/Date(1333729060000)\/",....

Thanks
Priit

 

[Erel]

You will need to extract the time string from the complete string.

 

[priitp]

Thanks Erel,

Made it this way but wondering if it is the most elegant:

   If HttpUtils.IsSuccess(ServerUrl) Then
      Dim parser As JSONParser
      Dim response As String
      response = HttpUtils.GetString(ServerUrl)
      parser.Initialize(response)
      Dim uudised As List
      uudised.Initialize()
      Dim m As Map
      For i = 0 To 49
         m = parser.NextObject
         uudised.Add(m)
      Next
   End If
...............................
Dim uudis As Map
Dim astr As String
Dim aTime As Long
For i=0 To uudised.Size-1
   uudis = (uudised.Get(i))
   Try
      astr = uudis.Get("PostDate")
      astr = astr.Replace(")/","")
      astr = astr.Replace("/Date(","")
      aTime =  astr   
      If DateTime.GetDayOfMonth(aTime) = DateTime.GetDayOfMonth(today) Then
         LblKuup.Text=DateTime.Time(aTime)
      Else
         LblKuup.Text=WeekDaysStr(DateTime.GetDayOfWeek(aTime) + 1) & DateTime.Time(aTime)
      End If
   Catch
   End Try
Next

Priit

 

[Erel]

Catching an exception without doing anything with it is not elegant. You should at least log the error message.

Your parsing code looks fine.

 

[COBRASoft]

Your code is missing time zones... Mostly the JSon will also place +0100 or so.