Ανάγνωση λεξικού από το github με XMLHTTP

από **m2000** Παρ Ιουλ 01, 2016 9:05 pm

Το λεξικό θα πάει στο πρόχειρο! (έχει περίπου 575138 λέξεις)

Declare xml "Microsoft.XMLHTTP"
testUrl$ = "https://raw.githubusercontent.com/titoBouzout/Dictionaries/master/Greek.dic"
With xml, "readyState" as readystate
Method xml "open","GET", testUrl$, true \\ true for async operation
Method xml "send"
While readystate<>4 {
      Print readystate
      if mouse then exit
      wait 1 \\ give some time to system
}
      Print readystate
      Refresh
document bb$
If readystate=4 Then {
      Print "Ok"
      refresh
      With xml, "responseText" as responseText$
      BB$=responseText$
}
Declare xml Nothing
Rem 1 : Clipboard bb$
Rem 2 : Edit.Doc bb$
\\ use Esc to exit is a very long list
Report bb$