function generateHTMLTableFromJSONArray as c (data as c )

if eval_mode_get() = "Sizeof" then
generateHTMLTableFromJSONArray = "sizing"
exit function
end if

dim css as c = <<%str%
<style>
.header {color: blue; font-size: 14pt; font-weight: bold;}
.data {color: green;}
</style>
%str%

dim p as p
p = json_parse(data)
dim i as n
dim count as n = p.size()
dim props as c = properties_enum(p[1])
dim data as c

data = ""
dim ph as p
for each pn in props
dotvarset(ph,pn.value,pn.value)
next
dim head as c = "<tr>" + getRowHTML(ph,props,"header") + "</tr>"
data = head
for i = 1 to count
data = data + "<tr>" + getRowHTML(p[i],props,"data") + "</tr>"
next i
data = "<table>" + data + "</table>"
generateHTMLTableFromJSONArray =  css +  "<div style=\"padding: 10px; margin-bottom: 20px;border: solid 1px red; border-radius: 10px;color:blue; font-family: courier new; font-size: 12pt;\">" + data + "</div>"
end function





function getRowHTML as c (data as p, props as c, className as c  )
dim html as c
for each pn in props
if className = "" then
html = html +  "<td style=\"white-space: nowrap;\">" + dotvarget(data,pn.value) + "</td>" + crlf()
else
html = html +  "<td style=\"white-space: nowrap;\" class="+quote(className)+">" + dotvarget(data,pn.value) + "</td>" + crlf()
end if
next
html = alltrim(html)
getRowHTMl = html

end function