First off, sorry if this has already been asked I missed it in my searching.
The back story:
I am working on becoming more OO vs Procedural along with learning the use of JSON vs Databases (when needed).
I am populating a class by parsing a JSON file. A few parameters of my class are of type date.
myPredefinedClass
item as string
status as string
created as date
updated as date
Dim myClass as new myPredefinedClass
myClass.status = jItem.Child("fields").Child("status").value("name")
myClass.created = jItem.Child("fields").value("created")
myClass.updated = jItem.Child("fields").value("updated")
Here’s the question:
When populating the data properties of the class, is there a more streamlined way of casting the string to a date inline? The following throws an “UnupportedFormatException”.
I am familiar with parsedate() and can create methods to fulfill. Again, I am still learning the OO way of doing things and need some guidance on best practices and syntax.
That’s a standard format, but not one that’s recognized natively by Xojo. It’s easy enough to parse though. Create a function out of this:
dim rx as new RegEx
rx.SearchPattern = "(?mi-Us)^(?'date'\\d{4}-\\d{2}-\\d{2})T(?'time'\\d{2}:\\d{2}:\\d{2})\\.\\d{3}(?'gmt'[-+]\\d+)$"
dim d as Date
dim match as RegExMatch = rx.Search(dateValue)
if match IsA RegExMatch then
d = new Date
d.GMTOffset = match.SubExpressionString(3).Val / 100
d.SQLDateTime = match.SubExpressionString(1) + " " + match.SubExpressionString(2)
end if
return d
I’ve had this one laying around since 2006 / 2007
ParseISO8601Date(dateString As String) as Date
// http://www.w3.org/TR/NOTE-datetime
Dim year, month, day, hour, minute, second, fractionOfASecond, gmtOffset As Integer
Dim stream As New BinaryStream( dateString )
year = stream.read( 4 ).val()
If stream.eof Then GoTo done
If stream.read( 1 ) <> "-" Then GoTo invalid
month = stream.read( 2 ).val()
If stream.eof Then GoTo done
If stream.read( 1 ) <> "-" Then GoTo invalid
day = stream.read( 2 ).val()
If stream.eof Then GoTo done
If stream.read( 1 ) <> "T" Then GoTo invalid
hour = stream.read( 2 ).val()
If stream.read( 1 ) <> ":" Or stream.eof Then GoTo invalid
minute = stream.read( 2 ).val()
If stream.read( 1 ) <> ":" Or stream.eof Then GoTo invalid
second = stream.read( 2 ).val()
If stream.eof Then GoTo invalid
If stream.read( 1 ) = "." Then
// we have a fraction of a second
Dim char As String = stream.read( 1 )
While char.asc >= 48 And char.asc <= 58
fractionOfASecond = fractionOfASecond * 10 + char.val()
char = stream.read( 1 )
Wend
End If
stream.position = stream.position - 1
If stream.read( 1 ) = "Z" Then
gmtOffset = 0
Else
// back up again
stream.position = stream.position -1
gmtOffset = stream.read( 3 ).val() * 100
If stream.read( 1 ) <> ":" Or stream.eof Then GoTo invalid
gmtOffset = gmtOffset + stream.read( 2 ).val()
End If
done:
Dim d As New Date()
d.year = year
d.month = month
d.day = day
d.hour = hour
d.minute = minute
d.second = second
d.GMTOffset = gmtOffset / 100
Return d
invalid:
Raise New UnsupportedFormatException
end sub
it a standard format that very people (or very few people I ran across) use. When I was reading stuff out of Jira for a client I wrote a date parser that would take the Jira date string in and return a date object with the various fields filled in. I also wrote a parse that took a date and created the jira date string.
either is not hard to do, just have to sit down and write it.
must set the date object to GMTOffset=0 before setting the values OR they will change.
