#Region Project Attributes
#MainFormWidth: 600
#MainFormHeight: 600
#End Region
#AdditionalJar: jsoup-1.11.2
Sub Process_Globals
Private fx As JFX
Private MainForm As Form
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.RootPane.LoadLayout("1") 'Load the layout file.
MainForm.Show
Dim JS As JavaObject
JS.InitializeStatic("org.jsoup.parser.Parser")
Dim Test As String = "" RADOMSKO KNOWN AND UNKNOWN ""
Dim Result As String = JS.RunMethod("unescapeEntities",Array(Test,True))
Result = Result.Replace($"" "$,$"""$).Replace($" ""$,$"""$)
Log(Result)
End Sub