Source: site.view [edit]
Function name: ocrWebResults
Arguments:
Description: Returns ocr recognition results from streaming CNN site.
Page type: webl
Render function:   tableRender
Module: sandbox

Page source:

var P = GetURL("http://vocr.sri.com/english/English_ocr_frame.html",
   nil, [. "user-agent"="Mozilla/4.0 (compatible; MSIE 7.0b; Windows NT 6.0)" .]);
var res = [];

var HexConvert = fun(str)
   var res = "";
   every c in Str_Split(str, "&#;") do
      res = res + ToChar(ToInt(c));
   end;
   return res;
end;

every tr in Elem(P, "tr") do
   var tds = (Elem(P, "td") inside tr);
   if Size(tds) == 2 then
      res = res + [[. time=Str_Trim(Text(tds[0])), words=HexConvert(Str_Trim(Text(tds[1]))) .] ]
   end
end;
res;