Problème lecture XML

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 :ccool: , 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 :calim2: :
- 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 :

Code:

---

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>

---

Ah au fait ! Si sa intéresse quelqu'un je lâche ma fonction :D
(Besoin d'une Key, il suffit de s'inscrire sur le site).

Code:

---

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

---

Merci pour votre précieuse aide :mrgreen:

eu.... et que veux tu récupérer ?

Désolé :oops:

Le nom du livre : <Title> ou <TitleLong>
Le ou les auteurs : <AuthorsText>
L'éditeur : <PublisherText>

Tiens inspire toi de :

Code:

---

1 2 3 4 5 6 7

Set xmlDoc = CreateObject("Microsoft.XMLDOM") xmlDoc.Async = "false" if xmlDoc.LoadXml(RechercheLivre("MaClef","0596002068")) then Wscript.echo "Titre long = " & xmlDoc.selectSingleNode("/ISBNdb/BookList/BookData/TitleLong").text Wscript.echo "Titre = " & xmlDoc.selectSingleNode("/ISBNdb/BookList/BookData/Title").text Wscript.echo "Auteur = " & xmlDoc.selectSingleNode("/ISBNdb/BookList/BookData/AuthorsText").text end if

---

faudrait peu-être rajouter quelque tests ... par exemple pour ta requête :
ObJHTTP.Status (200 ), ObJHTTP.StatusText (Ok) ..

Merci ça marche nickel :ccool:

Juste une petit truc, pour éviter les bugs je veut récupérer
l'attribut total_results dans une variable.
J'ai essayé getAttribute mais il me sort qu'il ne connait pas
la méthode :cry:.

Comment je fait alors pour récupérer cette valeur ?

tu pourrai montrer le code qui ne fonctionne pas ;)

Code:

---

Wscript.echo "total_results = " & xmlDoc.selectSingleNode("/ISBNdb/BookList").getAttribute("total_results")

---

Ah ok, j'ai compris comment faire pour les
attributs ! Merci :zoubi:

J'ai même pris le temps d'adapter le code sur VB. :)

http://zepload.com/images/1262507879_imag.bmp