Discussion :

[David_Geek]

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 :

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>

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

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

Merci pour votre précieuse aide

[SfJ5Rpw8]

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

[David_Geek]

Désolé

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

[SfJ5Rpw8]

Tiens inspire toi de :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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) ..

[David_Geek]

Merci ça marche nickel

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 .

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

[SfJ5Rpw8]

tu pourrai montrer le code qui ne fonctionne pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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