[Resolvido]Extrair Texto Copiado de Pagina da Internet e inserir valores em Novos Registros

Acesso uma certa Pagina de Internet, onde Copio (ctrl+c) Alguns Valores como no Exemplo:

ERASMO XXXXXXX DA SILVA (49)    (EVADIDO) RG: 00.0001 / SSPCPF: 000.000.000-00Data de nascimento: 15/06/1966    RGI: 21Registro da CNH: 123456 (AD)Data de emissão da CNH: 14/03/2008Mãe: EDISA XXXXXXXXX DA SILVAPai: ASTROGILDO AAAAAAAAAAAA DA SILVA 1 JOSE XXXXXXXXXXX DA COSTA (43)  Possui Digital Colhida    RG: 123.456 / SSPCPF: Data de nascimento: 06/01/1967    RGI: 1384Mãe: GUALTELINA SSSSSSSS DA COSTAPai: JOSE RAIMUNDO DA ZZZZZZZZZZ 2 ALTEMIR XXXXXX DE FREITAS (44)    (EVADIDO) RG: 123.456 / SSPCPF: 888.888.888-99Data de nascimento: 21/06/1971    RGI: 973Mãe: OCIANIADES DDDDDDDDD CARLOSPai: ALMIR DE XXXXXXXXX Outros 3

O que são isso: Na verade isso são dados Pessoais (nome, nome da mae, nome pai, RG, CPF, Situação) de 3 Pessoas Diferentes: ERASMO XXXXXXX DA SILVA, JOSE XXXXXXXXXXX DA COSTA e ALTEMIR XXXXXX DE FREITAS. O que eu Precisava e nao estou conseguindo na Perfeição:

*** Colar este Texto dessa Forma, e o Sistema (ao clique de botão ou em evento) Separasse os dados (em destaque) das Tres Pessoas, e Inserisse na Tabela tbForagido (ID,NomeForagido,RG,CPF,NomeMae,NomePai,DataNascimento,Situacao) os tres registros

Com um Exemplo do colega AhTeixeira aqui do Forum (separar texto do Xml com Delimitador) eu consigo fazer isso Individualmente, Copiando os dados da Primeira Pessoa, Inserindo Novo Registro, e Colando os dados Copiando (o Modulo extrai e preenche a tabela). Porem Travei, pois Nao tenho a Minima Ideia de como fazer para o sistema Fazer um Loop e ir Importando de Registro em Registro.

Vejam o Exemplo de como esta sendo Feito a extração dos dados Individualmente... Faltando apenas configurar uma forma de LOOP entre os Registros...

Grato pela Ajuda.

Obs:
*** Este são apenas Dados de Tres Pessoas, mas poderá haver Vários...
*** Os dados (inicio e Fim dos Campos) Independente da quantidade sempre estarão dessa Forma...

Olá Fabio,
Na minha opinião,  para fazer o que pretende temos que ter forma de identificar os "registos".
Tal como foi efetuado no tópico abaixo (que é de 30 em 30):
https://www.maximoaccess.com/t26035-resolvidoimportar-arquivo-txt-com-30-linhas-por-registo


Estive analisar o texto de exemplo e verifico que tem uma numeração (veja a vermelho):
ERASMO XXXXXXX DA SILVA (49) (EVADIDO) RG: 00.0001 / SSPCPF: 000.000.000-00Data de nascimento: 15/06/1966 RGI: 21Registro da CNH: 123456 (AD)Data de emissão da CNH: 14/03/2008Mãe: EDISA XXXXXXXXX DA SILVAPai: ASTROGILDO AAAAAAAAAAAA DA SILVA 1 JOSE XXXXXXXXXXX DA COSTA (43) Possui Digital Colhida RG: 123.456 / SSPCPF: Data de nascimento: 06/01/1967 RGI: 1384Mãe: GUALTELINA SSSSSSSS DA COSTAPai: JOSE RAIMUNDO DA ZZZZZZZZZZ 2 ALTEMIR XXXXXX DE FREITAS (44) (EVADIDO) RG: 123.456 / SSPCPF: 888.888.888-99Data de nascimento: 21/06/1971 RGI: 973Mãe: OCIANIADES DDDDDDDDD CARLOSPai: ALMIR DE XXXXXXXXX Outros 3

a) Sempre que copia tem esta numeração?
b) Inicia sempre no 1
c) o último caracter do texto é o total de registos?

Abraço

Entao, sempre haverá essa Numeração, porem ela inicia  de 1.... ate xxx. Sendo que: Por pagina são 20 registros. Entao na Primeira Pagina vai de 1 a 20. Na segunda Pagina vai de 21 a 41, e assim por diante...
O ultimo Caracter é referente ao nome do Pai, porem pode mudar a quantidade... Pois alguns Nao tem RG ou CPF... Entao muda a quantidade...

O que podemos fazer é colocar uma caixa de Texto no Formulario, onde o Usuario Informa o Numero Iniciar do Registro... e o Lopp vade de X (o numero informado pelo Usuario) ate 20x... Assim quando o Usuario mudar pra proxima pagina ele informa que o Numero inicial é de 21...

So uma Idéia...

Outra Ideia que tive, foi de: Apos inserir o Primeiro Registro, o sistema Pegar o Vlor da Caixa de Texto e apagar os dados ja inseridos... E repetir ate que a caixa Texto fosse Nula....

Olá Fabio, sim poderá ser por aí para reconhecer os "registos".
Poderá ser a opção 1
No entanto podemos ter várias formas de abordagem para o mesmo problema.

Opção 2: Ainda pensando, veja a dica nº 8 do colega Avelino como ficaria o ficheiro txt
http://www.usandoaccess.com.br/dicas/dicas-praticas-de-access-parte-1.asp?id=1&idlista=153#inicio
Se possivel poste txt (claro que deve salvaguardar a informação sensivel, alterando mas mantendo estrutura)

Opção 3: Também poderemos ter outra solução, veja tópico abaixo:
https://www.maximoaccess.com/t21978-captura-dolar-web?highlight=cota%C3%A7%C3%A3o

Abraço

Então meu amigo, Eu ja te tinha tentado Obter os dados da Web pelo Excel... Porem Essa pagina da Web que acesso, na verdade é um Sistema de movimentações criminais, muito fechado que apos inserir o usuário e a senha eu tenho acesso a essa consulta que me retorna esses dados, para apenas visualização... E infelizmente o sistema não tem a ferramente pra exportar para alguma coisa... E quando eu acesso a tela de pesquisa, mesmo os dados estando na Tela o Excel não enxerga nada alem do Cabeçalho... Por isso eu acredito que o mesmo acontecerá com as dicas 2 e 3. Por isso eu parti para o Copiar e Colar...

Grato pela Atenção!

Olá Fabio, baixe exemplo do link abaixo:
https://www.maximoaccess.com/t26904-webbrowser-controle-navegador

E teste navegar no portal onde pretende obter a informação.
Abraço

Olha so, eu tive um problema para acessar o portal... Pois para fazer Login, eu preciso digitar um Unidade e Pressionar ENTER para o sistema fazer a busca da Unidade e preencher o campo... So depois disso e que eu consigo Logar... Infelizmente, so é possível preencher essa Unidade se For dessa Forma... O que Ocorre é que ao pressionar Enter, ele Move o Foco la para o Botão Ver.

Olá, gostaria de uma forma mais simples.
Mas vamos então focar na opção 1, com copy & paste e tratamento para integração.
Irei analisar melhor e dare retorno.
Abraço

Pois é amigo, eu também gostaria muitooo, mas já deu pra perceber que nosso sistema não é la nada Amigável... né...? rerererererere

Isso que faço e um quebra galho, pois o bendito nao gera esse bendito relatório, e nem exporta esses Dados... Então o que eu faça é Mensalmente Copiar uns 3mil Registros iguais ao do exemplo para o Access... E nele eu trabalho como quero! rererereree!

Da forma como Postei, ja me agiliza 75%, mas queria por questão não so de tempo mas de Aprendizado Automatizar...

Olá, voltando à mensagem 7 acho estranho, pois o componente webbrowser não deixa de ser do navegador IE.
Deveria dar. Já verificou as propriedades se tem alguma configuração.
Abraço

Meu amigo, eu removi todos os Botoes, Coloquei pra abrir direto a pagina que preciso... Porem mesmo assim nao deu certo...

Percebi que na verdade o problema não é no Formulário, e sim no SISTEMA, pois o Enter funciona Normalmente nos Campos: Usuário e Senha.

Senhores, como não houve resposta de mais ninguém acredito ser algo sem solução!

A Duvida Continua, mas darei como encerrado!

Olá, com tempo vai haver solução.
Abraço

Olá Fábio Paes,
Fiz umas alterações ao código e acho que faz o que pretende, veja:

Código:

Private Sub cmdProcessar_Click()
'Álvaro Teixeira (ahteixeira) 2016 para MaximoAccess
Dim tmpOrigem, tmpStr '  As String
Dim tmpNomeForagido, tmpNomeMae, tmpNomePai, tmpCPF, tmpRG, tmpDataNascimento, tmpSituacao
Dim x, contador, TotalRegistos As Double

'passa para variável de trabalho todo o texto
tmpOrigem = Me.txtOrigem

    If Nz(Len(tmpOrigem)) > 0 Then
        'inicializa e verifica contadores
        contador = 1
        TotalRegistos = Right(tmpOrigem, Len(tmpOrigem) - InStrRev(tmpOrigem, " "))

        'faz a passagem por todos os registos
        For x = 1 To TotalRegistos
            
            '--- inicio ler campos para variáveis
            tmpNomeForagido = Left(tmpOrigem, InStr(tmpOrigem, "(") - 2)
            tmpNomeMae = separaEntreDuasStringsXML("" & tmpOrigem, "Mãe: ", "Pai:")
            tmpCPF = separaEntreDuasStringsXML("" & tmpOrigem, "CPF:", "Data")
            tmpRG = separaEntreDuasStringsXML("" & tmpOrigem, "RG: ", "CP")
            tmpDataNascimento = separaEntreDuasStringsXML("" & tmpOrigem, "nascimento: ", " RGI")
            
            'usa tmpStr para ir buscar idade para construir limite para separar
            tmpStr = separaEntreDuasStringsXML("" & tmpOrigem, "(", ")")
            tmpSituacao = Trim(separaEntreDuasStringsXML("" & tmpOrigem, "(" & tmpStr & ")", " RG:"))
            
            'verifica se é o ultimo registo (que não tem espaço à direita)
            If contador = TotalRegistos Then
                tmpNomePai = Trim(separaEntreDuasStringsXML("" & tmpOrigem, "Pai:", " " & contador))
            Else
                tmpNomePai = Trim(separaEntreDuasStringsXML("" & tmpOrigem, "Pai:", " " & contador & " "))
            End If
            '--- fim ler campos
            
            'adiciona à tabela TB1
            DoCmd.RunSQL "INSERT INTO tb1 ( NomeForagido, NomeMae, CPF, RG , DataNascimento, Situacao, NomePai ) SELECT '" & _
                          tmpNomeForagido & "','" & tmpNomeMae & "','" & tmpCPF & "','" & tmpRG & "',#" & Format(tmpDataNascimento, "mm/dd/yyyy") & "#,'" & tmpSituacao & "','" & tmpNomePai & "';"
        
            tmpOrigem = Right(tmpOrigem, Len(tmpOrigem) - InStr(tmpOrigem, " " & contador & " ") - Len(contador) - 1)
            contador = contador + 1
            
            'limpa variaveis
            tmpNomeForagido = ""
            tmpNomeMae = ""
            tmpCPF = ""
            tmpRG = ""
            tmpDataNascimento = ""
            tmpStr = ""
            tmpSituacao = ""
            tmpNomePai = ""
        Next
        MsgBox "Feito, verifique a tabela TB1.", vbInformation, ""
    Else
        MsgBox "Não existe informação para porcessar.", vbInformation, ""
    End If

Módulo de complemento do código, função separaEntreDuasStringsXML

Código:

'2014 Alvaro Teixeira
Function separaEntreDuasStringsXML(strTotal As String, strInicio As String, strFim As String)
On Error Resume Next
Dim i As Long, j As Long
    i = InStr(strTotal, strInicio)
    j = InStr(strTotal, strFim)
    separaEntreDuasStringsXML = Mid(strTotal, i + Len(strInicio), j - i - Len(strInicio))
End Function

Em anexo o meu teste.
Abraço

Meu amigo Alvaro... Ficou excelente... Parfeito mesmo!!!!

So houve alguns errinhos na extração da Situação e do NomePai, mas isso por falta de Padronização dos dados... Mas claro isso eu corrijo facilmente percorrendo os registros...

Meu amigo, muito grato mesmo por ter dedicado parte seu tempo pra quebrar esse galho pra mim o... Muito Obrigado mesmo!


Agora as Duvidas:

*** Gostaria que me explicasse essa Linha, pois ela pra mim era a parte dificil, Delimitar quantos registro....
TotalRegistos = Right(tmpOrigem, Len(tmpOrigem) - InStrRev(tmpOrigem, " "))

*** Gostaria também de saber quais as mudanças na sua Função, pois ela é de grande importância, ajuda muito... Diferença em funcionalidade da antiga para a atual...


Grato!

Olá Fabio Paes, obrigado pelo retorno.

Na sua primeira questão, repara nos dados que são para importar:
ERASMO XXXXXXX DA SILVA (49) (EVADIDO) RG: 00.0001 / SSPCPF: 000.000.000-00Data de nascimento: 15/06/1966 RGI: 21Registro da CNH: 123456 (AD)Data de emissão da CNH: 14/03/2008Mãe: EDISA XXXXXXXXX DA SILVAPai: ASTROGILDO AAAAAAAAAAAA DA SILVA 1 JOSE XXXXXXXXXXX DA COSTA (43) Possui Digital Colhida RG: 123.456 / SSPCPF: Data de nascimento: 06/01/1967 RGI: 1384Mãe: GUALTELINA SSSSSSSS DA COSTAPai: JOSE RAIMUNDO DA ZZZZZZZZZZ 2 ALTEMIR XXXXXX DE FREITAS (44) (EVADIDO) RG: 123.456 / SSPCPF: 888.888.888-99Data de nascimento: 21/06/1971 RGI: 973Mãe: OCIANIADES DDDDDDDDD CARLOSPai: ALMIR DE XXXXXXXXX Outros 3
Tem a numeração (veja a vermelho).
Com o seguinte código conseguimos ir buscar o ultimo numero, no caso do exemplo acima é o nº 3.
TotalRegistos = Right(tmpOrigem, Len(tmpOrigem) - InStrRev(tmpOrigem, " "))
Para isso está a procurar o primeiro espaço a partir do fim, sabendo onde está o espaço (que é o separador) foi só buscar a parte Direita.
Para isso usamos a função RIGHT do Access, pegando o tamanho do texto a importar menos a posição do separador (espaço).

Quanto à segunda questão, não foi efetuada nenhuma alteração, apenas postei diretamente no tópico por fazer parte do primeiro código.
Assim fica o código completo postado no tópico (se falhar o anexo por alguma razão) o necessário está no tópico.
Abraço

Meu amigo, grato pela Explicação! Excelente mesmo!!! Ate a próxima se Deus quiser!!!