[Resolvido] Script com XMLHTTP, Retornando a Bovespa, Nasdaq e Euro

[shumi 0]

Script com XMLHTTP. Retornando a Bovespa, Nasdaq e Euro.

<%'#################################################'#   Criado por: hargon'#   Data: 03/03/2007'#################################################	Set objXMLHTTP = CreateObject("Msxml2.XMLHTTP")	Url = "http://www.folha.uol.com.br/"'>http://www.folha.uol.com.br/"	objXMLHTTP.Open "GET", URL, FALSE	objXMLHTTP.send()	conteudo = objXMLHTTP.responseText	set objXMLHTTP = nothing'	set oHTTP = Server.Createobject("Dynu.HTTP")'	oHttp.SetURL "http://www.folha.uol.com.br/"'>http://www.folha.uol.com.br/"'	conteudo = lcase(oHttp.PostURL())'	set oHTTP = nothing		posicao = instr(conteudo,"trj-homepage-indicadores")	total = len(conteudo)	conteudo = mid(conteudo,posicao,total)			posicao = instr(conteudo,vbCrLf)	total = len(conteudo)	conteudo = mid(conteudo,posicao+1,total)			posicao = instr(conteudo,"<td class="&chr(34)&"financierDataKicker"&chr(34)&">")	total = len(conteudo)	conteudo = mid(conteudo,posicao+1,total)			posicao = instr(conteudo,">")	total = len(conteudo)	conteudo = mid(conteudo,posicao+1,total)	dim indicadores	redim indicadores(6,2)	indicadores(1,1) = "Bovespa"	indicadores(2,1) = "Nasdaq"	indicadores(3,1) = "Dólar comercial"	indicadores(4,1) = "Dólar paralelo"	indicadores(5,1) = "Dólar turismo"	indicadores(6,1) = "Euro"	xy = 0	for xy=1 to 6		posicao = instr(lcase(conteudo),lcase(indicadores(xy,1)))		if posicao > 0 then			total = len(conteudo)					conteudo = mid(conteudo,posicao,total)				posicao = instr(conteudo,chr(34)&">")			if posicao > 0 then				total = len(conteudo)				conteudo = mid(conteudo,posicao+2,total)				posicao = instr(conteudo,"</td>")				if posicao > 0 then					total = len(conteudo)					conteudo = mid(conteudo,posicao+5,total)					posicaofim = instr(conteudo,"</td>")					if posicaofim > 0 then						total = len(conteudo)							indicadores(xy,2) = left(conteudo,posicaofim-1)						if instr(indicadores(xy,2)," ") then							indicadores(xy,2) = replace(indicadores(xy,2)," ","")						end if					end if				end if			end if		end if	next	conteudo = empty		for xy=1 to 6		if len(indicadores(xy,2)) > 0 then			response.write indicadores(xy,1) & ": " & UCASE(indicadores(xy,2)) & "<br />"		end if	next%>

Autor: hargon

 

Abraços