PureBasic Forums - English

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