Code: Select all
EnableExplicit
If ReceiveHTTPFile("https://scintilla.org/ScintillaDoc.html", "SciDoc0.xml")
Define BufStr.s = ""
Define NS = 0
ReadFile (0, "SciDoc0.xml", #PB_UTF8)
CreateFile (1, "SciDoc1.xml", #PB_UTF8)
While Eof(0) = 0
BufStr = ReadString(0)
NS + 1
Select NS
Case 0279
; " Fully opaque uses an alpha of 255."
BufStr = ~" Fully opaque uses an alpha of 255.</td>"
Case 0523
; " <a class="seealso "href="#SCI_GETSTYLEDTEXT">SCI_GETSTYLEDTEXT</a>,"
BufStr = ~" <a class=\"seealso\" href=\"#SCI_GETSTYLEDTEXT\">SCI_GETSTYLEDTEXT</a>,"
Case 2436
; " <code class="parameter">subLine</code> of the <code class="parameter">docLine</code>, similar to<br>"
BufStr = ~" <code class=\"parameter\">subLine</code> of the <code class=\"parameter\">docLine</code>, similar To<br />"
Case 4376
; " overtype mode (bit 4), and curses mode (bit 5)."
BufStr = ~" overtype mode (bit 4), and curses mode (bit 5).</p>"
EndSelect
WriteStringN(1,BufStr)
Wend
CloseFile(0)
CloseFile(1)
Debug "Ok"
Else
Debug "ERR" : End
EndIf