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

Επισκόπηση προηγούμενης Θ.Ενότητας Επισκόπηση επόμενης Θ.Ενότητας Πήγαινε κάτω

Ανάγνωση λεξικού από το 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$


avatar
m2000
Admin

Posts : 26
Join date : 10/06/2016
Age : 51
Location : Kanallaki Greece

http://m2000.forumgreek.com

Επιστροφή στην κορυφή Πήγαινε κάτω

Επισκόπηση προηγούμενης Θ.Ενότητας Επισκόπηση επόμενης Θ.Ενότητας Επιστροφή στην κορυφή


 
Δικαιώματα σας στην κατηγορία αυτή
Δεν μπορείτε να απαντήσετε στα Θέματα αυτής της Δ.Συζήτησης