VB6 NOTICIAS DE SITES

RICOCARDOZO 27/05/2011 10:19:10
#375125
Olá a todos bom dia
é possivel isto:
No site da receita federal tem um canal de noticias certo
http://www.receita.fazenda.gov.br/AutomaticoSRFsinot/noticia_ant.asp

Teria como no meu sistema em um text ou richtext ou label eu baixar estas noticias direto do site
KURTGU 27/05/2011 11:08:20
#375130
o tecla fez um sisteam de Feeds em vb 6 da um procurada no youtube tem um video aula dele....
GUTOTEC 27/05/2011 11:17:45
#375132
As vezes sim as vezes não ,
coloca um componente que abre um Corpo HTML e chama a pagina dentro de um frame

cola isso num HTML pra voce ter uma melhor idéia

Citação:

<iframe ok src=http://whiplash.net/news_iframe.html?corFundo=900000&corTexto=FFFFFF&corDestaque=FFF685 width=400 height=200 frameborder=0></iframe>
RICOCARDOZO 27/05/2011 16:38:44
#375178
Criei um projeto exemplo
Um fom um controle inet e um text e codigo abaixo ,
deu certo ele carrega a pagina de noticias da receita federal , mais traz tudo com espaço em branco e tabulação.
Só to tentando acertar isto e deixar bonitinho mais ta dificil.

Private Sub carreganoticia()
Dim ret As String
If Inet1.StillExecuting Then Inet1.Cancel
ret = Inet1.OpenURL([Ô]http://www.receita.fazenda.gov.br/AutomaticoSRFsinot/noticia_ant.asp[Ô])
If Inet1.StillExecuting Then Inet1.Cancel
Text1.Text = ret
End Sub
Private Sub Converte_Texto()
On Error Resume Next
Dim strContent As String, mString As String
Dim mStartPos As Long, mEndPos As Long
Dim i, J
strContent = Text1.Text

mStartPos = InStr(strContent, [Ô]<[Ô])
mEndPos = InStr(strContent, [Ô]>[Ô])
Do While mStartPos <> 0 And mEndPos <> 0 And mEndPos > mStartPos
mString = Mid(strContent, mStartPos, mEndPos - mStartPos + 1)
strContent = Replace(strContent, mString, [Ô][Ô])
mStartPos = InStr(strContent, [Ô]<[Ô])
mEndPos = InStr(strContent, [Ô]>[Ô])
Loop

strContent = Replace(strContent, [Ô] [Ô], [Ô] [Ô])
strContent = Replace(strContent, [Ô]&[Ô], [Ô]&[Ô])
strContent = Replace(strContent, [Ô]"[Ô], [Ô][ô][Ô])
strContent = Replace(strContent, [Ô]&#[Ô], [Ô]#[Ô])
strContent = Replace(strContent, [Ô]<[Ô], [Ô]<[Ô])
strContent = Replace(strContent, [Ô]>[Ô], [Ô]>[Ô])
strContent = Replace(strContent, [Ô]%20[Ô], [Ô] [Ô])
strContent = LTrim(Trim(strContent))
Do While Left(strContent, 1) = Chr$(13) Or Left(strContent, 1) = Chr$(10)
strContent = Mid(strContent, 2)
Loop
Text1.Text = strContent

i = InStr(Text1.Text, [Ô]<[Ô])
J = InStr(Text1.Text, [Ô]>[Ô])
If J < i And J > 0 Then i = J
If i > 0 Then
Text1.SelStart = i - 1
Text1.SelLength = 1
ElseIf J > 0 Then
Text1.SelStart = J - 1
Text1.SelLength = 1
End If
End Sub
Private Sub Form_Load()
carreganoticia
Converte_Texto
End Sub
RICOCARDOZO 28/05/2011 12:13:25
#375210
Valeu Tecla
Mais eu percebi q teu exemplo trabalha com xml
E o q eu estou precisando é abir pagina em asp
Tópico encerrado , respostas não são mais permitidas
Voltar