PureBasic

Code : Tout sélectionner

InitNetwork()


Procedure.s CatchDefinition(word.s)
    ; by Ar-S
    Protected BaseURL$ = "https://api.dictionaryapi.dev/api/v2/entries/fr/", urlinfo$, start
    ; 
    urlinfo$=BaseURL$+word.s
    ; 
    Request = HTTPRequest(#PB_HTTP_Get, urlinfo$)
    If Request
        If HTTPInfo(Request, #PB_HTTP_StatusCode) = "200"
            HTML$ = HTTPInfo(Request, #PB_HTTP_Response)
            
            ;             Debug HTML$
            ; Chargement du JSON
            
            N = CountString (HTML$, "definition"+Chr(34))
            start = 0
            
            If N = 1
                
                Start = FindString(HTML$,"definition"+Chr(34),0)
                Start+13
                Fin = FindString(HTML$,".",Start)
                
                def.s = Mid(HTML$,start,fin-start)
            Else

                For i = 1 To N
                    
                    Start = FindString(HTML$,"definition"+Chr(34),start)
                    Start+13
                    Fin = FindString(HTML$,".",Start)
                    def.s + Mid(HTML$,start,fin-start)+Chr(10)
                    start = Fin
                    
                Next
                
            EndIf    
            
        Else
            def = "Pas de données pour ce mot" 
        EndIf
        
    Else
        def = "La requête n'a pas aboutie"
    EndIf
    
    ProcedureReturn def

EndProcedure

; ----------EXAMPLE-----------

Debug CatchDefinition("programmation")
Debug CatchDefinition("cacao")
Debug CatchDefinition("chinois")
Debug CatchDefinition("serviette")

Code : Tout sélectionner

EnableExplicit
If InitNetwork()=0 : MessageRequester("Erreur", "InitNetwork() non initialisé !"):End:EndIf

Procedure.s definition_du_mot(mot.s)
  ; Modifiée par jak64 en prenant pour base le code de Ar-s
  Protected debut_url.s = "http://dictionnaire.sensagent.leparisien.fr/"
  Protected fin_url.s="/fr-fr/"
  Protected url.s
  Protected requete.q
  Protected resultat.s
  Protected debut.i
  Protected fin.i
  Protected chaine_recherchee_avant.s="</span><span class="+Chr(34)+"wording"+Chr(34)+">"
  Protected chaine_recherchee_apres.s="<"
  Protected nb_definitions.b
  Protected nu_definitions.b
  Protected definitions.s
  Protected nb_essais.b=0
  
  ;= Construction de l'url avec le mot dont on recherche la ou les définition(s)
  url=debut_url+mot.s+fin_url
  ;= Lancement de la requête
  While nb_essais<10
    requete = HTTPRequest(#PB_HTTP_Get, url)
    If requete
      If HTTPInfo(requete, #PB_HTTP_StatusCode) = "200" ; La requête s'est bien déroulée
        resultat = HTTPInfo(requete, #PB_HTTP_Response)
        nb_essais=10
        ;= Compter combien de définitions existent pour le mot passé en paramètre
        nb_definitions = CountString (resultat, chaine_recherchee_avant)
        definitions="----- Définitions de "+ mot + " -----" + Chr(10) + Chr(10)
        If nb_definitions>0
          debut=1
          ;= Boucle pour extraire chaque définition
          For nu_definitions=1 To nb_definitions
            ;= Rechercher la chaîne avant la définition
            Fin = FindString(resultat,chaine_recherchee_avant,debut)
            ;= Rechercher la chaîne après la définition
            debut=fin+29
            Fin = FindString(resultat,chaine_recherchee_apres,debut)
            ;= Stocker les définitions en ajoutant un retour à la ligne entre chacune d'elles
            definitions + Right("0"+Str(nu_definitions),2) + " - " + Mid(resultat,debut,fin-debut)+Chr(10)
          Next nu_definitions 
        Else
          definitions = "Pas de définition trouvée pour " + mot + Chr(10)
        EndIf
      Else
        nb_essais+1
      EndIf
    Else
      definitions = "La requête n'a pas aboutie"
    EndIf
  Wend
  ProcedureReturn definitions
EndProcedure

;= Exemples d'utilisation

Debug definition_du_mot("turlupinais")
Debug "***************************************************************************************************************"
Debug definition_du_mot("gâteau")
Debug "***************************************************************************************************************"
Debug definition_du_mot("IncAs")
Debug "***************************************************************************************************************"
Debug definition_du_mot("DEFINISSAIENT")
Debug "***************************************************************************************************************"
Debug definition_du_mot("empaquetées")
Debug "***************************************************************************************************************"
Debug definition_du_mot("AXENE")
Debug "***************************************************************************************************************"
Debug definition_du_mot("aller-retour")
Debug "***************************************************************************************************************"
Debug definition_du_mot("azertyuiop")
Debug "***************************************************************************************************************"
End