[Resolvido]Importar html sem tag

Boa tarde,

Eu preciso de uma rotina que importe uma página html, mas o problema é que sempre que mando importar os campos não saem, fica tudo misturado, os dados não ficam no campo correto, segue em anexo uma das paginas que quero importar.

Alguém sabe como capturar um campo do controle Webbrowser e trazer para o form?

Não entendi essa de capturar??? você quer inserir um controle web browser no seu form?

O controle web browser já inseri, eu quero pegar um valor do campo que tem na página que quero acessar e traze-lo para o form.

Seleccionar o conteúdo,Botão direito do rato, Copiar e Colar, nada que você não saiba já.

É que são muitos campos que tem na página e se eu for fazer isso iria levar muito tempo.

Altaír

Eu não vejo como você pode fazer de outra maneira. Você pode guardar a página como txt, mas isso vai guardar o que quer e o que não quer...Vamos deixar o tópico em aberto ainda, para ver se alguém tem uma ideia melhor...

Uma forma de se copiar dados de uma página html seria através de id de células de uma tabela, por exemplo, ou de campos de um formulário. Caso o que você precisa copiar estiver identificado por ids, você pode implementar uma rotina para fazer o trabalho.

Criquio na verdade seria isso mesmo, no anexo que tem na primeira mensagem que enviei tem a pagina que desejo importar. Se vc pudesse dar uma olhada nele e me ajudar como que posso criar essa rotina de impoção.

Obrigado

Vou baixar e dar uma olhada assim que possível, caso algum colega não poste a solução antes.

Uma parte do problema consegui resolver, estou usando o codigo abaixo:

Dim elem
Dim tbl
Dim tr

For Each elem In Me!WebBrowser0.Document.All
If elem.tagName = "table" Then
Set tbl = elem
If tbl.rows.Length >= 1 Then
Set tr = tbl.rows(0)
If tr.cells.Length >= 1 Then
'If Not InStr(tbl.rows(0).innertext, "REPÚBLICA FEDERATIVA DO BRASIL") > 0 Then
If InStr(tr.cells(0).innertext, "CFOP") > 0 Then
Me.cfop = SoNumero(tbl.rows(0).cells(0).innertext)
'tbl.rows(0).cells(2).innertext ' PEGA A DATA
End If
' If InStr(tr.cells(0).innertext, "Alíquota do ICMS Normal") > 0 Then
' Me.aliquota = tbl.rows(0).cells(0).innertext
End If
If InStr(tr.cells(0).innertext, "Num.") > 0 Then
Me.base_icms = SoNumero(tbl.rows(0).cells(0).innertext)
DoCmd.GoToRecord , , acNewRec
End If
' If InStr(tr.cells(0).innertext, "CFOP") > 0 Then
' Me.cfop = SoNumero(tbl.rows(0).cells(0).innertext)
' End If
' End If
End If
End If
' End If
Next



A linha que esta em negrito é que é o problema, alguns campos não tem a tag TABLE e por isso ele não separa os campos, eu precisava de algum jeito que ao invés dele pegar a tag ele pegar o nome do campo.

Ex: pegar o valor do campo CFOP, e não a tag cfop. dentro da tag CFOP existem vários outros campos que eu não quero pegar.

Obrigado

Alguem???

Eu não tenho nada preparado aqui nesse sentido. Você já fez uma pesquisa no google? Eu já vi uma explicação com o código para tal em um forum ou site, não me lembro bem aonde.

Migão, veja se consegue algo com o que me foi passado...

http://maximoaccess.forumeiros.com/t890-resolvidocontrole-de-navegacao-da-web-como-utiliza-lo

Qual a finalidade dessa leitura do site, desculpe-me a curiosidade...

Alguns links que encontrei:

http://www.expertaccess.com.br/forumnew/forum_posts.asp?TID=21915&KW=avelino&PN=1

http://comunidade.itlab.com.br/eve/forums/a/tpc/f/273606921/m/6001073382/p/1

Talvez possas ter uma ideia para adaptar ao que precisa.

Boa tarde,

Pablo na verdade é para dar entrada nas NF-e já no meu sistema, quero que seja importado o que agilizaria o meu trabalho, quanto aos tópicos que já me enviaram já tentei de tudo e mesmo assim não consegui nada, inclusive o fórum que nosso amigo Criquio mandou ai o ExpertAccess, o código que mandei anteriormente foi retirado desse tópico, mas infelizmente ocorre o problema que descrevi, anteriormente. Agora estou tentando fazer em VB6 achei um material muito interessante no VBMANIA e estou estudando para ver se consigo o que pretento. Muito obrigado ao Pablo e a Criquio que tentaram me ajudar. Obrigado.

Bom agora eu estou carregando um xml no webbrowser e eu preciso capturar os dados do xml. Tentei importa-lo como tabela pelo access mas ele fica em tabelas separadas e sem identificação, por isso que tenho a necessidade de capturar os dados do webbrowser. Em anexo tem o xml para que possam dar uma olhada e entender melhor minha necessidade.
Obrigado.

Bom dia Altair,

Vc vai conseguir esse feito usando a Classe

Microsoft VbScript Regular Expressions

Usando Expressoes Regulares

Sds,

chsestrem,

Dei uma olhada nesse link que você me mandou, pelo que entendi ele retorna apenas o valor e a posição que se encontra, o problema é que os valores no XML eles sempre podem variar.

Obrigado

Altair,

pelo que eu entendi vc quer extrair os dados que

estão entre as Tags, eu importo E-mails html diretamente

para arquivo texto usando esta classe e funciona muito bem.

Vou verificar se tenho um exemplo aqui. Se tiver posto

pra vc

Sds,

Dá uma olhada nesta função:

Aqui

Sds,

Bom, a parte de extrair funciona muito bem, o problema maior é identificar os valores e grava-los em seus respectivos campos.
Ex.
Pegar o valor que esta no campo CFOP( isso no xml). Depois pegar essa valor e gravar no form no campo CFOP.

Obrigado pelo exemplo.

Agora é o simples Amigo,

A estrutura do html não muda, então

se vc importou o html para um txt delimitado,

basta fazer a importação deste txt com os campos

correspondentes para uma tabela temporaria por exemplo e

usar estes dados como quiser.

Sds,

mas como que eu faço para identificar os campos?

Obrigado

Importe o XML pelo assistente de importação do Access,

e verá quantas tabelas e quantos campos existem no arquivo

Sds,

Eu fiz essa importação, o problema é que ele cria várias tabelas, eu preciso centralizar tudo em uma única tabela.

Obrigado

Abra uma consulta Criar tabela, e use o assistente.

Jogue todas as tabelas para a consulta e selecione os campos que vc quer.

Depois se quiser fazer isso via codigo é só pegar a

string SQL da Consulta valeu?

Sds,

Olha dessa forma até pensei mesmo em fazer, mas infelizmente tbm não tem como, se eu fizer assim, ai ele vai criar uma tabela separada com os produtos, só que a tabela que estiver com esses produtos ela vem sem identificação dos produtos, ou seja, o que eu preciso é que os produtos sejam identificados pelo numero da NF-e.
Se eu conseguisse capturar os dados do xml e gravar em um form ai resolvia tudo.

Obrigado

Amigão,

Observe todas as tabelas que o XML gerou.

Algum campo na tblProdutos tem que ter o id correspondente em outra tabela.

Imprima a estrutura delas se puder e identifique quais os

relacionamentos entre elas.

Depois de identificar as chaves será facil montar a consulta.

Sds,

Por incrível que pareça não tem nenhum valor nas tabelas que as relacionem. Acima tem um anexo que mandei por último que é do XML, tente importar ele que você verá.

Obrigado.

Já que não tem um id, vc vai ter que criar um.

Os produtos, qtde e preço unitario são itens do corpo da NF

Vc tem que pelo menos criar duas tabelas

Uma com os dados da NF, gerar um id e depois ligar este id

aos produtos constantes na mesma.

Procure um topico chamado "importar OFX de extrato bancario",

que vc vai entender como funciona a dinamica.

Sds,

Peço desculpa pois já percebi que a solução está neste fórum mas não percebi nada

É assim, eu quero ir buscar um valor a uma página da internet http://pt17.tribalwars.com.pt/public_report/7cd425cff49ef1e9d5f69810adfebd10

que é o numero de baixas dos espadachins para um campo do formulário

Ex:Queria que quando muda-se a o endereço da página o access fosse buscar o valor das baixas dos espadachins e o introduzi-se na caixa de texto da form

Portanto pedia que alguém me escreve-se o cod vba para o comando