Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

tiagoborges.net

Split Array Microsoft.XMLHTTP ASP > Asp.NET (vb)

Recommended Posts

Tenho um código em ASP e to tentando migrar para Asp.NET (vb) mas nao to conseguindo resultado, alguem pode me dizer onde estou errando:

 

'EM ASP

 

'Faz a busca no Google 
vXMLHttpRequest = CreateObject("Microsoft.XMLHTTP") 
vXMLHttpRequest.Open("GET", "http://www.google.com.br/search?hl=pt-BR&num=100&filter=0&q=site%3Ag3formaturas.com.br++" & Request. QueryString("entradaPesquisa"), False) 
vXMLHttpRequest.send() 
vResultadoTemporario = vXMLHttpRequest.ResponseText 
vXMLHttpRequest = Nothing 

'Monta o resultado 
vResultadoSplitTemporario = Split(vResultadoTemporario, "<div class=g><h2 class=r>", -1, 1) 
vResultado = Empty 
For vXyz = 1 To UBound(vResultadoSplitTemporario) 
vResultado = vResultado & Right("00" & vXyz, 2) & ". " & vResultadoSplitTemporario(vXyz) 
vResultadoSplit = Split(vResultado, "<nobr>", -1, 1) 
vResultado = vResultadoSplit(0) 
vResultado = Replace(vResultado, "</h2><table border=0 cellpadding=0 cellspacing=0><tr><td class=""j"">", "<br/>") 
vResultado = Replace(vResultado, "<div class=sml>", Empty) 
vResultado = Replace(vResultado, "<div class=std>", Empty) 
vResultado = Replace(vResultado, "<br>", "<br/>") 
vResultadoSplit = Split(vResultado, """ class=l onmousedown=", -1, 1) 
vResultado = vResultadoSplit(0) 
vAbc = vResultadoSplit(1) 
vResultadoSplit = Split(vAbc, ",'')", -1, 1) 
vResultado = vResultado & vResultadoSplit(1) 
vResultado = Replace(vResultado, "class=a", "class=""linkResultado""") & "<br/><br/>" 
vResultado = Replace(vResultado, "<wbr>", Empty) 
Next
'EM ASP.NET (vb)

 

'Buscar o conteudo 
Dim vXMLHttpRequest = CreateObject("Microsoft.XMLHTTP") 
vXMLHttpRequest.Open("GET", "http://www.google.com.br/search?hl=pt-BR&num=100&filter=0&q=site%3Ag3formaturas.com.br++" & Request.QueryString("Questao"), False) 
vXMLHttpRequest.send() 
'Resultado da busca 
Dim vResultadoTemporario As String = vXMLHttpRequest.ResponseText 
vXMLHttpRequest = Nothing 

Dim vResultadoSplitTemporario As Array = Split(vResultadoTemporario, "<div class=g><h2 class=r>", -1, 1) 
Dim vResultadoSplit As Array 
Dim vAbc As String 
Dim vResultado As String = "" 
For vXyz = 1 To UBound(vResultadoSplitTemporario) 
vResultado &= Right("00" & vXyz, 2) & ". " & vResultadoSplitTemporario(vXyz) 
vResultadoSplit = Split(vResultado, "<nobr>", -1, 1) 
vResultado = vResultadoSplit(0) 
vResultado = vResultado.Replace("</h2><table border=0 cellpadding=0 cellspacing=0><tr><td class=""j"">", "<br/>") 
vResultado = vResultado.Replace("<div class=sml>", "") 
vResultado = vResultado.Replace("<div class=std>", "") 
vResultado = vResultado.Replace("<br>", "<br/>") 
vResultadoSplit = Split(vResultado, """ class=l onmousedown=", -1, 1) 
vResultado = vResultadoSplit(0) 
vAbc = vResultadoSplit(1) 
vResultadoSplit = Split(vAbc, ",'')", -1, 1) 
vResultado = vResultado & vResultadoSplit(1) 
vResultado = vResultado.Replace("class=a", "class=""linkResultado""") & "<br/><br/>" 
vResultado = vResultado.Replace("<wbr>", "") 
Next 
vConteudo &= vResultado

Compartilhar este post


Link para o post
Compartilhar em outros sites

Até aqui eu tenho resposta de conteudo:

 

'Buscar o conteudo 
Dim vXMLHttpRequest = CreateObject("Microsoft.XMLHTTP") 
vXMLHttpRequest.Open("GET", "http://www.google.com.br/search?hl=pt-BR&num=100&filter=0&q=site%3Ag3formaturas.com.br++" & Request.QueryString("Questao"), False) 
vXMLHttpRequest.send() 
'Resultado da busca 
Dim vResultadoTemporario As String = vXMLHttpRequest.ResponseText 
vXMLHttpRequest = Nothing

Depois, na hora de inserir o ARRAY (nem sei precisaria ser um array) e os SPLITs simplesmente o conteudo se perde em algum momento.

 

Se voltasse algum erro eu pelo menos teria uma ideia pra onde prosseguir.

 

A idéia é usar o GOOGLE como busca, mas o conteudo da resposta formatado dentro da pagina como se fosse o proprio site quem tivesse buscando.

Compartilhar este post


Link para o post
Compartilhar em outros sites

If Request.QueryString("Questao") <> "" Then

'Request

Dim vWebRequest As HttpWebRequest = CType(WebRequest.Create("http://www.google.com.br/search?hl=pt-BR&num=100&filter=0&q=site%3Ameformando.com.br++" & Request.QueryString("Questao")), HttpWebRequest)

Dim vWebResponse As HttpWebResponse = CType(vWebRequest.GetResponse(), HttpWebResponse)

Dim vStreamReader As New StreamReader(vWebResponse.GetResponseStream(), Encoding.Default)

Dim vResultadoTemporario As String = vStreamReader.ReadToEnd()

Dim vResultadoSplitTemporario As Array = Split(vResultadoTemporario, "<li class=g><h3 class=r>", -1, 1)

Dim vResultadoSplit As Array

Dim vResultado As String = vbCrLf & " <ol type=""1"">" & vbCrLf

For vXyz = 1 To UBound(vResultadoSplitTemporario)

vResultado &= " <li>" & vbCrLf

vResultado &= " " & vResultadoSplitTemporario(vXyz).ToString.Replace("</h3><div class=""s"">", "<br/>" & vbCrLf & " ").Replace("<br>", "<br/>" & vbCrLf & " ")

vResultadoSplit = Split(vResultado, "<span class=gl>", -1, 1)

vResultado = vResultadoSplit(0)

vResultado = vResultado.Replace(" - </cite>", "</cite>" & vbCrLf).Replace(" class=l", "")

vResultado &= " </li>" & vbCrLf

Next

If vResultado.Trim = "<ol type=""1"">" Then

vResultado = "<p>Sua pesquisa ""<b>" & Request.QueryString("Questao") & "</b>"" não encontrou nenhum documento correspondente.</p>Sugestões:<ul><li>Certifique-se de que todas as palavras estejam escritas corretamente.</li><li>Tente palavras-chave diferentes.</li><li>Tente palavras-chave mais genéricas.</li><li>Tente usar menos palavras-chave.</li></ul>"

Else

vResultado &= " </ol>" & vbCrLf

End If

vStreamReader.Close()

vConteudo &= vResultado

Else

vConteudo &= "<p>Nenhum conteúdo foi informado para busca!</p>"

End If

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.