Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Consegui um script que pega dados de um site, porém esse script está em PHP, e quero transformá-lo em ASP. Esse é um script que pega o valor de determinada ação em um site. O script original pega previsão do tempo. Vou colocar o script em PHP inicialmente, e depois vou colocar o q consegui mudar para ASP
<?phpfunction retira_caracteres($name){$array1 = array("<br />" ,"<br>","<td>","</td>");$array2 = array(" "," ","","");return str_replace($array1, $array2, $name);}function pegadados($conteudo,$str1,$str2){$dados = explode($str1,$conteudo);$dados_m = explode($str2,$dados[1]);//return $this->retira_caracteres($dados_m[0]);return retira_caracteres($dados_m[0]);}$acao = "bbdc4";$conteudo = file_get_contents ("[http://www.bovespa.com.br/Cotacoes2000/CotacaoRapidaHome.Asp?PaginaReferente=PosicaoGeralPregao.Asp&txtCodigo="](http://www.bovespa.com.br/Cotacoes2000/CotacaoRapidaHome.Asp?PaginaReferente=PosicaoGeralPregao.Asp&txtCodigo=) . $acao);//echo $conteudo;$valor_acao = pegadados($conteudo,"<td width=\"380\" style=\"border-bottom: 1px inset rgb(183,0,0)\" height=\"15\"><font size=\"1\"face=\"Verdana\"><p align=\"right\">","</font></td>");echo $valor_acao . "<br>";?>
A única coisa que consegui transformar para asp com sucesso foi a função no PHP file_get_contents.
O código em ASP que estou transformando.
<%Dim vName, array1, array2Function retira_caracteres(vName)array1 = array("<br />","<br>","<td>","</td>")array2 = array(" "," "," "," ")retira_caracteres = replace(vName,array1, array2)End FunctionFunction pegadados(vConteudo,str1,str2)vDados = split(vConteudo,str1)vDados_m = split(vDados(1),str2)pegadados = retira_caracteres(vDados_m(0))End Functionacao = "bbdc4"url = "http://www.bovespa.com.br/Cotacoes2000/CotacaoRapidaHome.Asp?PaginaReferente=PosicaoGeralPregao.Asp&txtCodigo=" + acaoset xmlhttp = CreateObject("MSXML2.ServerXMLHTTP") xmlhttp.open "GET", url, false xmlhttp.send "" vConteudo = xmlhttp.responseText response.Write(vConteudo)'Escreve o conteudo do site'valor_acao = pegadados(vConteudo,"<td width='380' style='border-bottom: 1px inset rgb(183,0,0)' height='15'><font size='1'' face='Verdana'><p align='right'>","</font></td>")set xmlhttp = nothing 'response.Write(valor_acao)+ "<br>"%>
O meu maior problema é compreender a função split e replace, imagino que sejam as mesmas respectivamente explode e str_replace.
Outra questão que fiquei em dúvida, é que, no PHP o que ele substitui são as tags HTML, e no asp as ajudas que tinha obtido sempre no uso dessas funções replace e split, era sempre com resultado final.
Se alguém puder ajudar fico grato, caso não seja aqui q tenha q postar essa dúvida me avisem.
Muito Obrigado
Carregando comentários...