HTML table parsing - need demo

Sub Process_Globals
   'These global variables will be declared once when the application starts.
   'These variables can be accessed from all modules.

End Sub

Sub Globals
   'These global variables will be redeclared each time the activity is created.
   'These variables can only be accessed from this module.

End Sub

Sub Activity_Create(FirstTime As Boolean)

   Dim XOMBuilder1 As XOMBuilder
   XOMBuilder1.Initialize("XOMBuilder1")
   
   Dim XmlString As String=File.GetText(File.DirAssets, "letovi.php.htm")
   XOMBuilder1.BuildFromString(XmlString, "", Null)

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub XOMBuilder1_BuildDone(XOMDocument1 As XOMDocument, Tag As Object)
   If XOMDocument1=Null Then
      '   XOMDocument1 will be Null if an error has occurred
      Log("An error has occured and the XOMDocument has NOT been created")
   Else
      Log("XOMDocument is NOT Null")
      Dim RootElement As XOMElement
      RootElement=XOMDocument1.RootElement
      
   End If
End Sub

Sub Process_Globals

End Sub

Sub Globals
   Dim GoButton As Button
   Dim WebView1 As WebView
   Dim WebViewExtras1 As WebViewExtras
End Sub

Sub Activity_Create(FirstTime As Boolean)
   Activity.LoadLayout("Main")
   
   WebViewExtras1.addJavascriptInterface(WebView1, "B4A")
   WebViewExtras1.addWebChromeClient(WebView1, "WebViewExtras1")
   
   WebView1.LoadUrl("file:///android_asset/letovi.php.htm")
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub GoButton_Click
    Dim Javascript As String
    Javascript="B4A.CallSub('ParseHtml', true, document.getElementById('desnomenu').innerHTML)"
   WebViewExtras1.executeJavascript(WebView1, Javascript)
End Sub

Sub ParseHtml(Html As String)
   Log(Html)
   Dim XOMBuilder1 As XOMBuilder
   XOMBuilder1.Initialize("XOMBuilder1")
   XOMBuilder1.BuildFromString(Html, "", Null)
End Sub

Sub WebView1_PageFinished (Url As String)
   Log("WebView1_PageFinished: "&Url)
   GoButton.Enabled=True
End Sub

Sub XOMBuilder1_BuildDone(XOMDocument1 As XOMDocument, Tag As Object)
   If XOMDocument1=Null Then
      '   XOMDocument1 will be Null if an error has occurred
      Log("An error has occured and the XOMDocument has NOT been created")
   Else
      Log("XOMDocument is NOT Null")
      Dim RootElement As XOMElement
      RootElement=XOMDocument1.RootElement
      
   End If
End Sub

Sub GoButton_Click
    Dim Javascript As String
      
   Javascript="B4A.CallSub('ParseHtml', true, var mybody = document.getElementsByTagName('body')[0];var mytable = mybody.getElementsByTagName('table')[0];var mytablebody = mytable.getElementsByTagName('tbody')[0];var cities = [];for (var n = 0; n < mytablebody.rows.length;n++) {var myrow = mytablebody.getElementsByTagName('tr')[n];cities[n] = myrow.getElementsByTagName('a')[0].innerHTML;} return cities;)"
   WebViewExtras1.executeJavascript(WebView1, Javascript)
End Sub

Uncaught SyntaxError: Unexpected token var in null (Line: 1)

Sub Process_Globals

End Sub

Sub Globals
   Dim WebView1 As WebView
   Dim WebViewExtras1 As WebViewExtras
End Sub

Sub Activity_Create(FirstTime As Boolean)
   Activity.LoadLayout("Main")
   
   WebViewExtras1.addJavascriptInterface(WebView1, "B4A")
   
   WebView1.LoadUrl("file:///android_asset/letovi.php.htm")
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub DoSomething(JSONString As String)
   Log(JSONString)
   '   now use the JSON library to turn JSONString into an Array or List etc so you can process it
End Sub

Sub WebView1_PageFinished (Url As String)
   Log("WebView1_PageFinished: "&Url)
   
   AddJQuery
   
End Sub

Sub AddJQuery
   Dim Javascript As StringBuilder
   Javascript.Initialize
   Javascript.Append("var scriptTag=document.createElement('script');")
   Javascript.Append("scriptTag.setAttribute('type','text/javascript');")
   Javascript.Append("scriptTag.setAttribute('src', 'http://code.jquery.com/jquery-1.9.1.min.js');")
   
   Javascript.Append("scriptTag.setAttribute('onload',"&QUOTE)
   
   Javascript.Append("var cities=[];")
   Javascript.Append("var tds=$('#desnomenu td a').each(function(index, elem){cities[index]=elem.innerHTML;});")
   Javascript.Append("B4A.CallSub('DoSomething', true, JSON.stringify(cities));")
   Javascript.Append("")
   Javascript.Append(QUOTE&");")
   
   Javascript.Append("document.getElementsByTagName('head')[0].appendChild(scriptTag);")
   
   WebViewExtras1.executeJavascript(WebView1, Javascript.ToString)
End Sub

["Ancona","Beograd","Copenhagen","Istanbul","Ljubljana","Munich","Vienna","Zagreb"]