pegar valores de texto

[interlokk 0]

Pessoal, é o seguinte, tenho uma api que me retorna os valores em plaintext da seguinte forma:

Country: BRAZIL (BR) City: Vitória (4) Latitude: -2.9 Longitude: -52.0167

Estou tentando pegar os valores de latitude e longitude usando a seguinte função:

function get_location(ip) dim result(1) Set xmlHttp = Server.CreateObject("MSXML2.XMLHTTP.3.0") xmlHttp.Open "Get", "http://api.hostip.info/get_html.php?ip=" & Replace(ip,"'","''") & "&position=true", false xmlHttp.Send() page = split(xmlHttp.ResponseText,":") latitude = trim(replace(page(3),"Longitude","")) result(0) = replace(latitude,vblf,"") longitude = trim(page(4)) longitude = replace(longitude,vblf,"") result(1) = replace(longitude," ","") get_location = result end function

O problema é que nada retorna. Alguem sabe dizer onde pode tá o erro? Valeu.

[Patrique 0]

Mano, fiz um exemplo simples aqui pra você ter uma idéia.

 

Testei e funfou.

 

<%
function get_location(ip)

   Set xmlHttp = Server.CreateObject("Microsoft.XMLHTTP")

   xmlHttp.Open "Get", "http://api.hostip.info/get_html.php?ip="& ip &"&position=true", false
   xmlHttp.Send()

   page      = split(xmlHttp.ResponseText,":")
   
   pais      = page(1)
   cidade    = page(2)
   latitude  = page(3)
   longitude = page(4)
   
   pais      = Replace(pais,"City","")
   cidade    = Replace(cidade,"Latitude","")
   latitude  = Replace(latitude,"Longitude","")


   get_location = "País:" & pais & "<br />Cidade:" & cidade & "<br />Latitude:" & latitude & "<br />Longitude:" & longitude

   response.write get_location


end function

call get_location("66.249.68.120")
%>

[xanburzum 169]

só lembrando k sempr existem exmplos no lab. de script, tb

[interlokk 0]

Valeu pessoal, o exemplo que postei também funciona, só que ele pega apenas valores de latitude e longitude padrões com 6 dígitos. Os valores genéricos de paíse e não de cidades que tem 4 dítitos ele não lê. Vou testar a sugestão de vcs. Abs.

[Patrique 0]

mais neste caso o "problema" é na api e não no code, e testei seu code e não tava funfando.