Sub AppStart (Args() As String)
Dim s As String = $"
<body>
<table class="table-info">
<caption style="text-align: right;">
<span class="set-color-gray set-color-graylight">* CaptionText </span><br>
* Last Update 14/01/2022 09:58:03
</caption>
' *******
</table>
</body>"$
Dim HtmlParser As MiniHtmlParser
HtmlParser.Initialize
Dim root As HtmlNode = HtmlParser.Parse(s)
Dim Table As HtmlNode = HtmlParser.FindNode(root, "table", HtmlParser.CreateHtmlAttribute("class", "table-info"))
If Table.IsInitialized Then
Dim caption As HtmlNode = HtmlParser.FindNode(Table, "caption", Null)
For Each node As HtmlNode In caption.Children
Dim text As HtmlNode = HtmlParser.FindNode(node, "text", Null)
If text.IsInitialized Then
Log(HtmlParser.GetAttributeValue(text, "value", ""))
End If
Next
Else
Log("not found!!!")
End If
End Sub