xmlhttp

[Camf 0]

Oi pessoal, peguei um código na net que era pra pegar a cotação do dólar e tentei modificar para pegar o artista e o título de um HTML que mais parece um TXT. Tentei esse código:

<%' Função para a captura do dólar comercial diretamente do site do Banco Central.' Autor  : Adriano Dias' E-mail : adiasbr@yahoo.com.br' Data  : 03/Ago/2001' Use, altere, melhore a vontade, mas por favor, não esqueça os créditos.Response.Expires = 0Session.LCID    = 1046Err.ClearOn Error Resume NextSet obj = CreateObject("MSXML2.ServerXMLHTTP")obj.open "GET", "http://127.0.0.1:1080/x/query.cgi?q=status"obj.sendtextHTML = obj.ResponseTextdados    = LCase(textHTML)' Procura pela posição da string "Taxa de Venda"i = 1i = inStr(i,dados,"artist=")' Procura pela 1ª tag <tr> depois de "Taxa de Venda"i    = inStr(i,dados,"Title")f    = inStr(i,dados,"Playing")  ' Pega a 1ª tag </tr> depois de <tr>dados = Mid(dados,i,(f-i))    ' Retira somente linha da interessedados = Replace(dados,"</font>","|",1,2) ' Substitui </font> por "|" (2 vezes)dados = Trim(LimpaHTML(dados))          ' Retira todas as tagsdados = Split(dados,"|")                ' Separa criando a matrizset conn = Server.CreateObject("ADODB.Connection")conn.open Application("conn")' Mostra os dados capturadosinf = Array("Artista","Título")For i = lbound(dados) to ubound(dados)    Response.Write inf(i) & " : " & dados(i) & "<br>"NextFunction LimpaHTML(matriz)Do While True  ini    = InStr(1,matriz,"<")  If ini  = 0 Then Exit Do  fim    = InStr(ini,matriz,">")  parcial = Mid(matriz,ini,fim-ini+1)  matriz  = Replace(matriz,parcial,"")LoopLimpaHTML  = matrizEnd Function%>

Não está dando certo, ele pega tudo em vez de pegar só o artista e o título, alguém sabe o que está errado??

 

Cézar

[d.eleete 0]

Amigo você tem que alterar o script, não adianta somente trocar a url, você teria que utilizar os instr e mids pra achar os dados nesta string..