Jump to content
  • 0

Recherche sur internet depuis FM [Résolu]


Question

Bonjour

J'ai une table Livre et une table Site_Internet.

Dans ma table Livre, j'entre le nom du livre recherché et j'ouvre des sites Internet dédiés à des livres d'occasion. Mon objectif et d'avoir une idée du prix moyen de ce livre et d'obtenir des infos.

Dans ma table Site_internet, j'ai des enregistrements de sites traitant des livres d'occasion.

J'ai un script qui m'ouvre les sites concernés. Jusque là pas de problème. 

Ma demande: est-il possible que sur chaque site ouvert, il me colle le titre dans la rubrique recherche du site et m'affiche les résultats? Cela me permet après de voir sur chaque site les résultats.


#copie le titre du livre dans la variable
Définir variable [ $titre; Valeur :Livre::Titre ]
#Ouvre les sites internet identifiés la la table Recherche_Internet
Activer modèle [ “Recherche_Internet” (Recherche_Internet) ]
Afficher tous les enreg.
Afficher enreg/requête/page
[ Premièr(e) ]
Boucle
Ouvrir URL [ Recherche_Internet::Site_internet ]
[ Sans fenêtre ]
#colle le titre du livre dans le champ Recherche du site internet
Afficher enreg/requête/page
[ Suivant(e); Sortie après dernière ]
Fin de boucle
Activer modèle [ “Détails du contenu” (Livre) ]

Merci par avance pour les réponses.

Cordialement. 

Gaston 

Capture d’écran 2019-06-09 à 14.00.13.png

Link to post
Share on other sites

3 answers to this question

Recommended Posts

  • 0

Bonjour,

Quand je fais une recherche de le gout du moyen age  sur amazon. J'obtiens  un ensemble de livre et la barre des tâche après la recherche indique :

https://www.amazon.fr/s?k=le+gout+du+moyen+age&i=stripbooks&__mk_fr_FR=ÅMÅŽÕÑ&ref=nb_sb_noss

si je remplace dans le https ci dessus     Le+gout+du+moyen+age      par  le+gout+du+vin

cela devient

https://www.amazon.fr/s?k=le+gout+du+moyen+age&i=stripbooks&__mk_fr_FR=ÅMÅŽÕÑ&ref=nb_sb_noss

et cela donne un résultat

il y a donc moyen de faire une instruction ouvrir url  avec le lien https.

Cela fonctionne bien

Mais 

* c'est long à faire si il existe bcp de site de recherche

* ce n'est pas très stable si les sites changent leur url de recherche

 

Claude

 

Link to post
Share on other sites
  • 0

Bonjour Claude

Merci pour ta suggestion. Le souci est que chaque site a une façon différente de recherche. 

https://www.chasse-aux-livres.fr/search?query=Le%2Bgoût%2Bdu%2Bmoyen%2Bâge%2Ben%2BFrance+au%2BXVIIIe%2Bsiècle&catalog=fr

https://www.livre-rare-book.com/search/results?q=Le%2Bgoût%2Bdu%2Bmoyen%2Bâge%2Ben%2BFrance+au%2BXVIIIe%2Bsiècle&resultsPerPage=25&sorting=RELEVANCE&l=en&ageFilter=ALL

https://www.amazon.fr/s?k=Le%2Bgoût%2Bdu%2Bmoyen%2Bâge%2Ben%2BFrance+au%2BXVIIIe%2Bsiècle&__mk_fr_FR=ÅMÅŽÕÑ&ref=nb_sb_noss

etc...

Dans mon script, je fais une boucle dans la table Recherche Internet, où il me prend chaque site et ouvre l'onglet.  Je me trouve en difficulté pour mettre la fonction de recherche de chaque site. 

Le fait d'utiliser une table Recherche Internet, me permet d'ajouter ou supprimer des sites, et il m'ouvre que les sites désirés.

Bonne journée. 

Avec mes cordiales salutations. 

Gaston 

Link to post
Share on other sites
  • 0

Voilà, j'ai trouvé, merci de m'avoir mis sur la voie.

Pour chaque site, j'ai identifié le mode de recherche, et l'ai ajouté à la suite du nom du site dans la boucle de recherche. voir script, et ça fonctionne.

Evidemment, si je veux ajouter ou supprimer un site, je dois modifier le script, mais pour l'instant j'en suis là.

Recherche internet: Recherche_internet
Gestion erreurs [ Oui ]
Vider mémoire cache
Activer modèle [ “Détails_fiche_Pro” (TA_Livre) ]
Définir variable [ $titre; Valeur :TA_Livre::Titre_recherche_internet ]
#Ouvre les sites internet identifiés la la table Recherche_Internet
Activer modèle [ “TA_Recherche_Internet_Pro” (TA_Recherche_Internet) ]
Afficher tous les enreg.
Trier enregistrements [ Conserver l'ordre de tri; Ordre de tri défini : TA_Recherche_Internet::Nom_du_site; croissant ] [ Rétablir; Sans fenêtre ]
Afficher enreg/requête/page
[ Premièr(e) ]
Boucle
Ouvrir URL [ Cas(
TA_Recherche_Internet::Site_internet = "https://www.chasse-aux-livres.fr";
TA_Recherche_Internet::Site_internet & "/search?query=" & $titre;
Cas(
TA_Recherche_Internet::Site_internet ="https://www.edition-originale.com/fr/"; TA_Recherche_Internet::Site_internet & "recherche-rapide/resultats?recherche_rapide=" & $titre; Cas(
TA_Recherche_Internet::Site_internet = "https://www.livres-anciens.fr";TA_Recherche_Internet::Site_internet & "/cgi-bin/ss000001.pl?page=search&SS=" & $titre;
Cas(
TA_Recherche_Internet::Site_internet = "https://www.livre-rare-book.com/V4";TA_Recherche_Internet::Site_internet & "/search/results?q=" & $titre;
Cas(
TA_Recherche_Internet::Site_internet = "https://www.ebay.fr";TA_Recherche_Internet::Site_internet & "/sch/i.html?_from=R40&_trksid=m570.l1313&_nkw=" & $titre;
Cas(
TA_Recherche_Internet::Site_internet = "https://www.amazon.fr";TA_Recherche_Internet::Site_internet & "/s?k=" & $titre;
Cas(
TA_Recherche_Internet::Site_internet = "https://www.abebooks.fr";TA_Recherche_Internet::Site_internet & "/servlet/SearchResults?sts=t&cm_sp=SearchF-_-home-_- Results&an=&tn=" & $titre;
Cas(
TA_Recherche_Internet::Site_internet = "https://www.le-livre.fr";TA_Recherche_Internet::Site_internet & "/recherche-rapide.html?select_base=-1&RechercheRap=" & $titre; Cas(TA_Recherche_Internet::Site_internet = "http://librairieunivers.ch";TA_Recherche_Internet::Site_internet & "/?s=" & $titre;
Cas(
TA_Recherche_Internet::Site_internet = "https://www.lalibrairie.com";TA_Recherche_Internet::Site_internet & "/livres/recherche.html" & $titre; Cas(TA_Recherche_Internet::Site_internet = "http://www.marelibri.com";TA_Recherche_Internet::Site_internet & "/search/current.seam? maximumPrice=0.0&keywords=&firstResult=0&faceted=true&ISBN=&century=ALL&selectedDatasources=1005&quicksearch=" & $titre;
Cas(
TA_Recherche_Internet::Site_internet = "https://fr.shopping.rakuten.com";TA_Recherche_Internet::Site_internet & "/s/" & $titre)))))))))))) ]
[ Sans fenêtre ]
Afficher enreg/requête/page
[ Suivant(e); Sortie après dernière ]
Fin de boucle
Activer modèle [ “Détails_fiche_Pro” (TA_Livre) ]

Bonne soirée et  cordiales salutations. 

Gaston 

Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...