Je suis en train de faire un script pour récupérer des infos sur un livre
à partir de son ISBN. Pour cela j'utilise un service Web : ISBNdb.com
Jusqu'ici pas de problème, j'ai crée ma fonction
pour faire une requête et récupérer le résultat qui s'affiche sous
une structure XML.
Mais mon problème c'est d'y récupérer ces infos:
- Le nom du livre : <Title> ou <TitleLong>
- Le ou les auteurs : <AuthorsText>
- L'éditeur : <PublisherText>.
J'ai essayé le parseur XMLDOM de Microsoft, sans succès.
J'ai suivit le tuto de Baptiste Wicht, très bon tuto, mais j'ai du mal à l'appliquer pour mon propre code.
Je joint ici un exemple de structure revoyée :
Ah au fait ! Si sa intéresse quelqu'un je lâche ma fonction
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 <?xml version="1.0" encoding="UTF-8"?> <ISBNdb server_time="2010-01-01T18:04:11Z"> <BookList total_results="1" page_size="10" page_number="1" shown_results="1"> <BookData book_id="rhinoceros_a02" isbn="2070368165" isbn13="9782070368167"> <Title>Rhinoceros</Title> <TitleLong>Rhinoceros (French Edition)</TitleLong> <AuthorsText>Eugene Ionesco</AuthorsText> <PublisherText publisher_id="distribooks">Distribooks</PublisherText> </BookData> </BookList> </ISBNdb>
(Besoin d'une Key, il suffit de s'inscrire sur le site).
Merci pour votre précieuse aide
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 Function RechercheLivre(APIKey, BookISBN) Dim objHTTP Set objHTTP = CreateObject("Microsoft.XMLHTTP") objHTTP.open "POST", "http://isbndb.com/api/books.xml?", False objHTTP.send ("access_key=" & APIKey) + ("&index1=isbn&value1=" & BookISBN) RechercheLivre = objHTTP.responseText Set objHTTP = nothing End Function![]()
Partager