1. Bonjour tout le monde ! Veillez consulter la Politique de forum pour comprendre nos règles, Merci a vous !
    Rejeter la notice

AIDE Base de données médicaments pharmaceutiques

Discussion dans 'Base de donnés & HFSQL' créé par Lhadj, Mar 11, 2018.

Tags:
  1. Lhadj

    Lhadj Member

    Inscrit:
    Mar 6, 2018
    Messages:
    52
    J'aime reçus:
    32
    Salut à tous , je cherche une base complète de médicaments pharmaceutiques(nom, posologie, thérapeutique, dosage) pour l'intégrer dans une application de gestion médicale
     
    #1 Lhadj, Mar 11, 2018
    Tags:
  2. joker

    joker New Member
    MEMBRE WX

    Inscrit:
    Jan 30, 2018
    Messages:
    0
    J'aime reçus:
    14

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    Salut à tous , je cherche une base complète de médicaments pharmaceutiques(nom, posologie, thérapeutique, dosage) pour l'intégrer dans une application de gestion médicale
    Cliquez pour agrandir...
    Héllo

    En France, il y a :

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!



    En principe, tous les toubibs l'ont, tu peux tenter de te faire prêter 1 CD ou demander sur le site
     
    #2 joker, Mar 11, 2018
  • Lhadj

    Lhadj Member

    Inscrit:
    Mar 6, 2018
    Messages:
    52
    J'aime reçus:
    32

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    Héllo

    En France, il y a :

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!



    En principe, tous les toubibs l'ont, tu peux tenter de te faire prêter 1 CD ou demander sur le site
    Cliquez pour agrandir...
    La demande et l'obtention sont gratuites ?
     
    #3 Lhadj, Mar 11, 2018
  • joker

    joker New Member
    MEMBRE WX

    Inscrit:
    Jan 30, 2018
    Messages:
    0
    J'aime reçus:
    14
    Aucune idée, tu peux toujours leur poser la question mais je pense que ça craint si tu passes pas par un truc "officiel" si tu compte commercialiser ton prog ;)

    PS : il y a le Vidal 2017 ici :

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!



    EDIT pour PS :
    C'est payant :

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!



    l'aapli pour les pro serait gratos :

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!



    & là, je sais pas :

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

     
    #4 joker, Mar 11, 2018
    Dernière édition: Sept 3, 2018
    Lhadj apprécie ceci.
  • WX1331

    WX1331 Well-Known Member
    MEMBRE WX DUMP TEAM

    Inscrit:
    Jan 1, 2018
    Messages:
    619
    J'aime reçus:
    682
    Voila je vous partage une Base de données de médicaments en excel (compressé).

    salutations
     

    Fichiers attachés:

    #5 WX1331, Mar 11, 2018
    Amariaeh, bigfun, Kill3rbko et 7 autres personnes aiment ça.
  • WX1331

    WX1331 Well-Known Member
    MEMBRE WX DUMP TEAM

    Inscrit:
    Jan 1, 2018
    Messages:
    619
    J'aime reçus:
    682
    Voila une procédure pour télécharger la liste des médicaments de Vidal.

    PROCEDURE Transfert_Medicament()
    listealpha est une chaîne="ABCDEFGHIJKLMNOPQRSTUVWXYZ "
    i est un entier
    s est un caractère
    POUR i =1 A 26
    s=Milieu(listealpha,i,1)
    ResLancement est un booléen=HTTPRequête("

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    "+s+".htm","")
    SI ResLancement ALORS
    SAI_Saisie1=HTTPDonneRésultat(httpRésultat)
    SINON
    Info("impossible de se conencté à l'adresse indiqué")
    FinProgramme()
    FIN

    NumChaine est un entier
    Numchaine2 est un entier
    SousChaîne est une chaîne = ExtraitChaîne(SAI_Saisie1, rangPremier, "<a href=")

    NomFiche est une chaîne
    sChaineGuill est un chaîne
    NumFiche1,nNumfiche2 est un entier

    TANTQUE SousChaîne <> EOT
    NomFiche=Milieu(SousChaîne,13,Taille(SousChaîne))
    NumFiche1=Position(NomFiche,">",1)
    NomFiche=SansEspace(NomFiche[[A NumFiche1-2]])
    NumChaine=Position(SousChaîne,">",1)
    SousChaîne=Milieu(SousChaîne,NumChaine+1,Taille(SousChaîne))
    Numchaine2=Position(SousChaîne,"<",2)
    SousChaîne=Milieu(SousChaîne,1,Numchaine2-1)
    SI SousChaîne<>"" ALORS
    SI Taille(SousChaîne)>3 ALORS
    HLitRecherchePremier(Medicament,LIbelle_Medicament,SansEspace(SousChaîne))
    SI PAS HTrouve()
    Medicament.LIbelle_Medicament=SousChaîne
    Medicament.Nom_Fichier=NomFiche
    HAjoute(Medicament)
    FIN
    FIN
    FIN
    SousChaîne = ExtraitChaîne(SAI_Saisie1, rangSuivant, "<a href=")
    FIN
    FIN
    POUR i=1 A 30
    HSupprime(Medicament,i)
    FIN
    Info("Terminé")


    Salutations
     
    #6 WX1331, Mar 12, 2018
    elhacene, bigfun et joker aiment ça.
  • krm

    krm Member

    Inscrit:
    Jan 3, 2018
    Messages:
    31
    J'aime reçus:
    35
    Cette procédure contient des erreurs.
     
    #7 krm, Mar 13, 2018
  • JHDSoft

    JHDSoft Member

    Inscrit:
    Mar 4, 2018
    Messages:
    41
    J'aime reçus:
    25

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    Cette procédure contient des erreurs.
    Cliquez pour agrandir...
    oui

    et la premier c SAI_Saisie1+=HTTPDonneRésultat(httpRésultat)
    au lieu de SAI_Saisie1=HTTPDonneRésultat(httpRésultat)

    salam
     
    #8 JHDSoft, Mar 14, 2018
  • krm

    krm Member

    Inscrit:
    Jan 3, 2018
    Messages:
    31
    J'aime reçus:
    35

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!


    as tu réellement testé cette procédure ? A mon niveau il est "impossible de se connecter à l'adresse indiqué"

    HTTPRequête("

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    "+s+".htm","")
     
    #9 krm, Mar 15, 2018
  • JHDSoft

    JHDSoft Member

    Inscrit:
    Mar 4, 2018
    Messages:
    41
    J'aime reçus:
    25

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!


    as tu réellement testé cette procédure ? A mon niveau il est "impossible de se connecter à l'adresse indiqué"

    ("

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    "+s+".htm","")
    Cliquez pour agrandir...
    non
    mais il y a pas mal des erreurs meme c il y a une connection
     
    #10 JHDSoft, Mar 15, 2018
  • WX1331

    WX1331 Well-Known Member
    MEMBRE WX DUMP TEAM

    Inscrit:
    Jan 1, 2018
    Messages:
    619
    J'aime reçus:
    682
    Cette procédure je l'ai utilisé ça fait une belle lurette (trois ans), je vais voir comment y remédié

    C'est Bon il y avait une erreur sur le lien

    juste : -ResLancement est un booléen=HTTPRequête("

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    "+s+".htm","")

    Faux : ResLancement est un booléen=HTTPRequête("

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    "+s+".htm","")
     
    #11 WX1331, Mar 15, 2018
    Dernière édition: Mar 15, 2018
    elhacene apprécie ceci.
  • JHDSoft

    JHDSoft Member

    Inscrit:
    Mar 4, 2018
    Messages:
    41
    J'aime reçus:
    25
    Salam
    meme si ca marche c ne pas logique de declarer des variable dans un boucle
    Vous pouver declarer les variable avant les boucles et vous pouver le videe apre au boucle ...
    Merci
    Salam
     
    #12 JHDSoft, Mar 15, 2018
    elhacene apprécie ceci.
  • WX1331

    WX1331 Well-Known Member
    MEMBRE WX DUMP TEAM

    Inscrit:
    Jan 1, 2018
    Messages:
    619
    J'aime reçus:
    682
    La tu as totalement raison, il fallait déclaré les variables avant la 1er boucle puis les initialisés juste apres
     
    #13 WX1331, Mar 15, 2018
  • elhacene

    elhacene Active Member
    MEMBRE WX

    Inscrit:
    Jan 14, 2018
    Messages:
    299
    J'aime reçus:
    150
    sa serai plus intéressant si on arrive a extraire la liste par classification !!:( avec forme et dosage
     
    #14 elhacene, Mar 15, 2018
  • joker

    joker New Member
    MEMBRE WX

    Inscrit:
    Jan 30, 2018
    Messages:
    0
    J'aime reçus:
    14
    Héllo

    Une autre liste si ça peut aider :

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!



    Source :

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!



    PS :
    en fouillant :

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!


    Aucune idée de ce que ça vaut Vidal étant assez commercial ....

    PS2 :

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

     
    #15 joker, Mar 15, 2018
    Dernière édition: Sept 3, 2018
    PoloLeFou et elhacene aiment ça.
  • elhacene

    elhacene Active Member
    MEMBRE WX

    Inscrit:
    Jan 14, 2018
    Messages:
    299
    J'aime reçus:
    150
    avec les corrections mentionné en haut
    PROCEDURE Transfert_Medicament()

    listealpha est une chaîne="ABCDEFGHIJKLMNOPQRSTUVWXYZ "
    i est un entier
    s est un caractère


    Code (Windev):

    POUR i =1 A 26
       s=

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (listealpha,i,1)
       //ResLancement est un booléen=HTTPRequête("[URL]http://www.vidal.fr/Sommaires/Medicaments-[/URL]"+s+".htm","")
       ResLancement est un booléen=

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    ("[URL]https://www.vidal.fr/Sommaires/Medicaments-[/URL]"+s+".htm","")
       SI ResLancement ALORS
           //SAI_Saisie1=HTTPDonneRésultat(httpRésultat)
           SAI_Saisie1+=

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (httpRésultat)
       SINON
           

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    ("impossible de se conencté à l'adresse indiqué")
           

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    ()
       FIN
       NumChaine est un entier
       Numchaine2 est un entier
     
       SousChaîne est une chaîne =

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (SAI_Saisie1, rangPremier, "<a href=")
     
       NomFiche est une chaîne
       sChaineGuill est un chaîne
       NumFiche1,nNumfiche2 est un entier
     
       TANTQUE SousChaîne <> EOT
           NomFiche=

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (SousChaîne,13,

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (SousChaîne))
           NumFiche1=

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (NomFiche,">",1)
           NomFiche=

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (NomFiche[[A NumFiche1-2]])
           NumChaine=

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (SousChaîne,">",1)
           SousChaîne=

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (SousChaîne,NumChaine+1,

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (SousChaîne))
           Numchaine2=

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (SousChaîne,"<",2)
           SousChaîne=

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (SousChaîne,1,Numchaine2-1)
           SI SousChaîne<>"" ALORS
               SI

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (SousChaîne)>3 ALORS
                   

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (Medicament,LIbelle_Medicament,

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (SousChaîne))
                   SI PAS

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    ()
                       Medicament.LIbelle_Medicament=SousChaîne
                       Medicament.Nom_Fichier=NomFiche
                       

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (Medicament)
                   FIN
               FIN
           FIN
           SousChaîne =

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (SAI_Saisie1, rangSuivant, "<a href=")
       FIN
    FIN
    POUR i=1 A 30
       

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (Medicament,i)
    FIN

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    ("Terminé")
     
     
    #16 elhacene, Mar 15, 2018
    WX1331, Fakirato, omasabik et 1 autre personne aiment ça.
  • nougrirane

    nougrirane Active Member

    Inscrit:
    Juin 4, 2018
    Messages:
    105
    J'aime reçus:
    68

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    Voila je vous partage une Base de données de médicaments en excel (compressé).

    salutations
    Cliquez pour agrandir...
    C'est une base de données ancienne :( j'ai beau chercher la nouvelle base (2017 ou 18) en vin.

    :) Bonjour @Tous,

    Est ce que quelqu'un a pus utiliser les API REST de Vidal ??

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!



    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!



    Best
     
    #17 nougrirane, Juin 17, 2018
    Dernière édition par un modérateur: Sept 3, 2018
    • (Vous devez vous identifier ou vous inscrire pour poster ici.)

    Partager cette page

    Chargement...