MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

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

    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

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

    Mensagem  FabioPaes Seg 06 Jun 2016, 11:27

    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...
    Anexos
    [Resolvido]Extrair Texto Copiado de Pagina da Internet e inserir valores em Novos Registros AttachmentEXTRAIRTEXTO TexBox.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (31 Kb) Baixado 70 vez(es)


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7996
    Registrado : 15/03/2013

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

    Mensagem  Alvaro Teixeira Ter 07 Jun 2016, 06:38

    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
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

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

    Mensagem  FabioPaes Ter 07 Jun 2016, 09:13

    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....


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7996
    Registrado : 15/03/2013

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

    Mensagem  Alvaro Teixeira Ter 07 Jun 2016, 09:48

    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


    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

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

    Mensagem  FabioPaes Ter 07 Jun 2016, 11:26

    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!


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7996
    Registrado : 15/03/2013

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

    Mensagem  Alvaro Teixeira Ter 07 Jun 2016, 12:07

    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
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

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

    Mensagem  FabioPaes Ter 07 Jun 2016, 18:16

    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.


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7996
    Registrado : 15/03/2013

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

    Mensagem  Alvaro Teixeira Ter 07 Jun 2016, 18:22

    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
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

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

    Mensagem  FabioPaes Ter 07 Jun 2016, 19:47

    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...


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7996
    Registrado : 15/03/2013

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

    Mensagem  Alvaro Teixeira Qua 08 Jun 2016, 06:23

    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
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

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

    Mensagem  FabioPaes Qua 08 Jun 2016, 10:39

    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.


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

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

    Mensagem  FabioPaes Sáb 25 Jun 2016, 21:56

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

    A Duvida Continua, mas darei como encerrado!


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7996
    Registrado : 15/03/2013

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

    Mensagem  Alvaro Teixeira Sáb 25 Jun 2016, 22:20

    Olá, com tempo vai haver solução.
    Abraço
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7996
    Registrado : 15/03/2013

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

    Mensagem  Alvaro Teixeira Dom 26 Jun 2016, 20:29

    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
    Anexos
    [Resolvido]Extrair Texto Copiado de Pagina da Internet e inserir valores em Novos Registros AttachmentEXTRAIR_TEXTO_TexBox.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (32 Kb) Baixado 32 vez(es)
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

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

    Mensagem  FabioPaes Dom 26 Jun 2016, 21:46

    cheers cheers cheers cheers

    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!


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7996
    Registrado : 15/03/2013

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

    Mensagem  Alvaro Teixeira Seg 27 Jun 2016, 04:31

    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. Wink
    Abraço
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

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

    Mensagem  FabioPaes Seg 27 Jun 2016, 20:35

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


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7996
    Registrado : 15/03/2013

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

    Mensagem  Alvaro Teixeira Seg 27 Jun 2016, 21:06

    cheers

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Dom 24 Nov 2024, 23:20