M2000 Γλώσσα Προγραμματισμού
Θέλετε να αντιδράσετε στο μήνυμα; Φτιάξτε έναν λογαριασμό και συνδεθείτε για να συνεχίσετε.

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

Πήγαινε κάτω

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


m2000
m2000
Admin

Posts : 27
Join date : 10/06/2016
Age : 55
Location : Kanallaki Greece

https://m2000.forumgreek.com

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

Επιστροφή στην κορυφή


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