Récupérer des données sur un site.Résolu

Question

Bonjour, 

mon problème est simple. je souhaite récupérer des données (Artiste et titre) sur la page d'une radio web via l'url par exemple afin de les afficher dans un gadget. Cela est il possible et si oui comment.

Merci d'avance.

cs_bultez · Accepted Answer

Function Artiste()
On Error Resume Next
    Artiste = ""
    Html = ChercherPage(Url)
    If Html = "" Then
        AfficherMessage("Error")
        Exit Function
    End If
    Artiste = Html.getElementById("artist").innerText
End Function

à remplacer par :

function Artiste()
{   return ChercherPage(Url); }

probablement.

voili, voilou.
il te reste à apprendre un peu le javascript et faire le reste.

<hr />                Cordialement             Bul         [mon Site]     [M'écrire]

cs_bultez · Answer

Bonjour,

je ne sais pas comment ça marche un "widget"

dans une page html, locale, avec le langage javascript ( par exemple)  :
un ch'tiot coup d'ajax ( par exemple ) , et on fait ce qu'on veut.

<hr />                Cordialement             Bul         [mon Site]     [M'écrire]

nicomilville · Answer

Salut,

Bultez ++

@bultez : un widget (ça dépend ce que l'on veut faire avec...) peut récupèrer un flux ou le résultat d'une page...

a++

PS : pour plus d'infos sur les widget, allez sur wikipédia...

Si la réponse vous convient, pensez : Réponse acceptée !

youdream · Answer

' Variables globales
Dim Url

Url = "http://radio.rtl2.fr/player.html"

Function Artiste()
On Error Resume Next
    
    Artiste = ""
    
    Html = ChercherPage(Url)
    If Html = "" Then
        AfficherMessage("Error")
        Exit Function
    End If
    
    Artiste = Html.getElementById("artist").innerText
        
End Function

'--------------------------------------------------------------------------

Function Titre()
On Error Resume Next
    
    Titre = ""
    
    Html = ChercherPage(Url)
    If Html = "" Then
        AfficherMessage("Error")
        Exit Function
    End If
    
    Titre = Html.getElementById("title").innerText
    
End Function

'--------------------------------------------------------------------------

Function AfficherMessage(ByVal txt)
On Error Resume Next

    document.getElementById("Message").style.visibility = "visible"
    document.getElementById("Message").innerText = txt
    
End Function

'--------------------------------------------------------------------------

Function ChercherPage(ByVal url)
    Dim HttpRequest
    
    ChercherPage = ""
    
    Set HttpRequest = CreateObject("Microsoft.XMLHTTP")
    HttpRequest.Open "GET", url, False
    HttpRequest.Send
    If HttpRequest.status = 200 Then ' OK
        ChercherPage = HttpRequest.responseText
    End If

End Function

(code en vbscript)
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Voici un bout de mon code. j'ai mis en rouge les parties qui pose problème. je pense que se n'est pas correcte mais je ne vois pas ce que je peux écrire d'autre. si quelqu'un pouvant éclairer ma lanterne, se serai très sympa.
merci...

nicomilville · Answer

Re,

Dans toncas tu aura du poster sur le forum de vb...

ça ne concerne pas trop le javascript...

a++

Si la réponse vous convient, pensez : Réponse acceptée !

youdream · Answer

Je sais. je demande une solution équivalente mais en javascript. désolé, je pensé que c'était évident...

youdream · Answer

Merci de ton aide bultez. je m'y suis mis. Je publierai ma source dès que j'aurai fini...

<hr size="2" width="100%" />

Google est pour les développeurs, ce

cs_bultez · Answer

très bien youdream.
js n'est pas si compliqué que cela ( au début ) quand on arrive de VB[Script]
de la syntaxe, c'est presque tout.
<hr />                Cordialement             Bul         [mon Site]     [M'écrire]

Récupérer des données sur un site.

8 réponses

Votre réponse