SALVAR ARQUIVO XML

JORGESALES 05/02/2016 23:42:45
#457214
Pessoal como muitos de vocês já sabem estou em uma luta com
arquivos XML, graças a ajuda de vocês eu já consigo ler e passar para
textbox os campos que preciso, todavia os exemplos que achei trabalham
com arquivos que já estão no pc, preciso apenas baixar no formato .xml
o link é esse aqui:
http://www.xmls.com.br/cnpj/busca.php?cnpj=00000000000191&tipo=xml
Desde já agradeço a todos que possam ajudar.

Ah, e antes que alguém pergunte, sim eu pesquisei antes
de criar o tópico
KURTGU 05/02/2016 23:56:03
#457216
Citação:

:
Pessoal como muitos de vocês já sabem estou em uma luta com
arquivos XML, graças a ajuda de vocês eu já consigo ler e passar para
textbox os campos que preciso, todavia os exemplos que achei trabalham
com arquivos que já estão no pc, preciso apenas baixar no formato .xml
o link é esse aqui:
http://www.xmls.com.br/cnpj/busca.php?cnpj=00000000000191&tipo=xml
Desde já agradeço a todos que possam ajudar.

Ah, e antes que alguém pergunte, sim eu pesquisei antes
de criar o tópico




Voce conseguiu pegar os dados direto do xml no site?
JORGESALES 06/02/2016 00:05:47
#457217
Não, por isso mesmo é que preciso acessar o site, baixar
o arquivo (ou salvar o conteúdo do site) em um bloco de notas
que fique no formato .xml.
Isso é possível?
KURTGU 06/02/2016 00:15:34
#457218
Vc usa somente VB6?
JORGESALES 06/02/2016 00:25:05
#457219
Citação:

:
Vc usa somente VB6?


Sim
KURTGU 06/02/2016 00:32:26
#457220
Não manjo muito de vb6 mais estou tentando te ajudar, achei este link veja se te ajuda...
https://planetasource.wordpress.com/2011/06/07/baixar-arquivos-da-internet-e-exibir-o-progresso-com-vb6/
KERPLUNK 06/02/2016 01:01:12
#457221
Só com VB6 vai ser uma tarefa Hercúlea... Se quiser em VB.NET um exemplo seria:
1 - Nesse meu vídeo, faça a parte de converter o XML para classes
2 - Em um botão qualquer, use um webclient:

Dim client As New WebClient()
Dim tudo As String = client.DownloadString(New Uri([Ô]http://www.xmls.com.br/cnpj/busca.php?cnpj=00000000000191&tipo=xml[Ô]))
Dim ser As New XmlSerializer(GetType(Empresa))

Using reader As TextReader = New StringReader(tudo)
	Dim resultado As Empresa = DirectCast(ser.Deserialize(reader), Empresa)
        textBox1.Text = resultado.Abertura
        textBox2.Text = resultado.AtividadePrincipal
        [ô] E assim por diante
End Using



PS: Você precisa adicionar a referência de System.Net para que este exemplo funcione.
DS2T 06/02/2016 01:59:19
#457230
Você consegue fazer isso com o Winsock.
Conecte com o servidor do site.
Faça uma requisição HTTP para a página na munheca, ele vai te retornar o arquivo. Faz muitos anos, eu fiz um gerenciador de download assim. Funcionava tranquilo.

Senão me engano, o macoratti tinha um exemplo desse aí.
Achei aqui:


http://www.macoratti.net/winsock.htm


Caralho, passou minha vida de programador em frente aos meus olhos agora. hahahaha
Fiz isso, já deve ter uns 8 anos. Como o tempo passa rápido...
JORGESALES 06/02/2016 20:34:58
#457254
Citação:

:
Caralho, passou minha vida de programador em frente aos meus olhos agora. hahahaha
Fiz isso, já deve ter uns 8 anos. Como o tempo passa rápido...


Momento, nostalgia... quanto ao link vou dar uma olhada agora mesmo.

KURTGU, vou olhar seu link também, quanto ao KERPLUNK não tenho como
passar esse sistema para .NET pq já está pronto, só estou aperfeiçoando
a cada dia graças a ajuda de vocês.
JORGESALES 06/02/2016 21:37:31
#457256
DS2T,
segui o tutorial e está dando esse seguinte linha, eis o código completo:
Private Sub Command1_Click()
Winsock1.RemoteHost = [Ô]geocities.com[Ô]
Winsock1.RemotePort = 80
Winsock1.Connect
End Sub
[ô]Aqui definimos o nome do servidor e a porta para conexão
[ô]No evento Connect do controle Winsock digite o seguinte código:
Private Sub Winsock1_Connect()
 Dim strCommand As String
 Dim strWebPage As String

 strWebPage = [Ô]http://www.geocities.com/macoratti/index.html[Ô]
 strCommand = [Ô]GET [Ô] + strWebPage + [Ô] HTTP/1.0[Ô] + vbCrLf
 strCommand = strCommand + [Ô]Accept: */*[Ô] + vbCrLf
 strCommand = strCommand + [Ô]Accept: text/html[Ô] + vbCrLf
 strCommand = strCommand + vbCrLf

 Winsock1.SendData strCommand
End Sub
[ô]Aqui definimos o local da página
[ô]No evento DataArrival do controle Winsock forneça o seguinte código:
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
  Dim webData As String
  Winsock1.GetData webData, vbString
  txtwebpage.Text = txtwebpage.Text + webData
End Sub
JORGESALES 06/02/2016 22:04:08
#457258
Citação:

:
Não manjo muito de vb6 mais estou tentando te ajudar, achei este link veja se te ajuda...
https://planetasource.wordpress.com/2011/06/07/baixar-arquivos-da-internet-e-exibir-o-progresso-com-vb6/


Seu tópico não ajudou muito para o que preciso neste momento, mas
sem dúvida foi útil pois aprendi algo novo, obrigado por sua atenção e
ajuda
Página 1 de 2 [16 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar