Microsoft.XMLHTTP

[smez]

pessoal estou com esse script aqui abaixo, mas estou tendo uma dificuldade, como que eu faço para trazer somente a tabela de bolsa do canto direto do site?

ele esta trazendo o site todo.

<%
Function BinaryToString(xBinary)

Dim Binary
Dim RS, LBinary

If VarType(xBinary)=8 Then Binary = MultiByteToBinary(xBinary) Else Binary = xBinary
Const adLongVarChar = 201
Set RS = CreateObject("ADODB.Recordset")
LBinary = LenB(Binary)

If LBinary>0 Then
RS.Fields.Append "mBinary", adLongVarChar, LBinary
RS.Open
RS.AddNew
RS("mBinary").AppendChunk Binary 
RS.Update
BinaryToString = RS("mBinary")
Else
BinaryToString = ""
End If

Set RS=Nothing

End Function
Function MultiByteToBinary(MultiByte)

Dim RS, LMultiByte, Binary
Const adLongVarBinary = 205

Set RS = CreateObject("ADODB.Recordset")
LMultiByte = LenB(MultiByte)

If LMultiByte>0 Then
RS.Fields.Append "mBinary", adLongVarBinary, LMultiByte
RS.Open
RS.AddNew
RS("mBinary").AppendChunk MultiByte & ChrB(0)
RS.Update
Binary = RS("mBinary").GetChunk(LMultiByte)
End If

Set RS = Nothing
MultiByteToBinary = Binary

End Function

dim objXMLHTTP
Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
Url = "http://www.gradualinvestimentos.com.br/portal/home.aspx"
objXMLHTTP.Open "GET", URL, FALSE
objXMLHTTP.Send
sai=objXMLHTTP.responsebody
set objXMLHTTP=nothing
response.write BinaryToString(sai)
%>

[Jonathan Queiroz]

Se a parte que você deseja estiver num frame, você pode trazer somente o conteúdo daquele frame. Do contrário, terá que baixar a página inteira e encontrar uma forma de descobrir os locais onde as informações começam e terminam.

[smez]

não esta em frame

não tem como pegar uma parte especifica do site?

[Jonathan Queiroz]

Não, você só pode baixar a página inteira. Nesse caso, o melhor a fazer é achar um padrão para limitar as informações recebidas do site.

Infelizmente o fato de baixar a página inteira vai deixar o processamento mais lento, mas não há outra opção.

[smez]

certo, mas tem como eu pegar somente uma parte especifica do site, tipo assim baixo o site todo em asp

veja o script abaixo, esse script traz o site todo, mas queria pegar somente uma parte do site, mesmo trazendo o site todo, teria como fazer um tratamento para esconder o que eu não quero de deixar a mostra somente o que eu quero.

Function BinaryToString(xBinary)

Dim Binary
Dim RS, LBinary

If VarType(xBinary)=8 Then Binary = MultiByteToBinary(xBinary) Else Binary = xBinary
Const adLongVarChar = 201
Set RS = CreateObject("ADODB.Recordset")
LBinary = LenB(Binary)

If LBinary>0 Then
RS.Fields.Append "mBinary", adLongVarChar, LBinary
RS.Open
RS.AddNew
RS("mBinary").AppendChunk Binary 
RS.Update
BinaryToString = RS("mBinary")
Else
BinaryToString = ""
End If

Set RS=Nothing

End Function
Function MultiByteToBinary(MultiByte)

Dim RS, LMultiByte, Binary
Const adLongVarBinary = 205

Set RS = CreateObject("ADODB.Recordset")
LMultiByte = LenB(MultiByte)

If LMultiByte>0 Then
RS.Fields.Append "mBinary", adLongVarBinary, LMultiByte
RS.Open
RS.AddNew
RS("mBinary").AppendChunk MultiByte & ChrB(0)
RS.Update
Binary = RS("mBinary").GetChunk(LMultiByte)
End If

Set RS = Nothing
MultiByteToBinary = Binary

End Function

dim objXMLHTTP
Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
Url = "http://www.gradualinvestimentos.com.br/portal/home.aspx"
objXMLHTTP.Open "GET", URL, FALSE
objXMLHTTP.Send
sai=objXMLHTTP.responsebody
set objXMLHTTP=nothing
response.write BinaryToString(sai)

Não, você só pode baixar a página inteira. Nesse caso, o melhor a fazer é achar um padrão para limitar as informações recebidas do site.

Infelizmente o fato de baixar a página inteira vai deixar o processamento mais lento, mas não há outra opção.

[bareta]

use mid e instr para pegar um local especifico...

de toda forma ele vai ler a página toda e retornar o trecho buscado.

[smez]

como que eu faria em expressão regular?

[Jonathan Queiroz]

Infelizmente não achei um tutorial bom sobre expressões regulares em ASP (praticamente só encontrei exemplos). Então vou tentar explicar de forma simples.

Se não souber trabalhar com expressões regulares, indico esse excelente guia: Guia de Expressões regulares

Você pode utilizar expressões regulares para procurar textos, verificar padrões, substituir strings seguindo esses padrões etc.

Em ASP, você pode utilizar expressões regulares da seguinte forma:

'Texto
texto = "Bom dia! Tudo bem?"
'Expressão regular
Set Regex = New RegExp  'Cria o objeto
Regex.IgnoreCase = True 'Indica se vai ser case sensitive ou não
Regex.Global = True 'Indica que deve substituir todas as ocorrências, e não somente a primeira
Regex.Pattern = "[a-z]" 'Expressão regular
'Substitui as ocorrências do texto pela expressão
texto=Regex.Replace(texto,"-") 'Substitui todos os caracteres de A a Z por hífens
'Resultado:
'--- ---! ---- ---?

Muitas vezes pode ser útil manter parte da expressão após a substituição. Em um bbcode, por exemplo, você precisará alterar parte do texto e manter o que está dentro das tags. Em ASP, você pode para se utilizar de grupos (parte de expressões delimitadas por parêntesis) para manter parte da expressão na função Replace. Os primeiros nove grupos podem ser referenciados utilizando-se $1 (primeiro grupo), $2 (segundo grupo) e assim por diante. Segue um exemplo que demonstra isso:

'Texto
texto = "[b]Bom dia[/b] a [i]todos[/i]!"
'Expressão regular
Set Regex = New RegExp  'Cria o objeto
Regex.IgnoreCase = True 'Indica se vai ser case sensitive ou não
Regex.Global = True 'Indica que deve substituir todas as ocorrências, e não somente a primeira
Regex.Pattern = "\[([a-z]+)\](.*?)\[/\1]" 'Expressão regular
'Substitui as ocorrências do texto pela expressão
texto=Regex.Replace(texto,"<$1>$2</$1>") 'Substitui qualquer valor do tipo [tag]texto[/tag] por <tag>texto</tag>
'Resultado:
'<b>Bom dia</b> a <i>todos</i>!

O $1 se refere ao conteúdo de ([a-z]+), e o $2, a (.*?)

Se funcionar poste aí!