[Resolvido]Receber informação que esta entre duas palavras

Boa tarde amigos e o seguinte:

Quero que uma txtnome receba somente a informação que esta entre E-mail e Nome Completo, que será Matheus.davila@gov.gov.br
Alguma dica de como como fazer?


E-mail: Matheus.davila@gov.gov.br
Nome Completo: Matheus Maria d´ Ávila Cavalcanti

Olá,

Pode explicar melhor ou exemplificar a informação que tem e o que pretende obter.

Olá ahteixeira boa tarde.

Vamos lá.

Tenho um site de vendas que me retorna os dados de um novo cliente cadastrado assim:

E-mail: genilda.rodrigues@ibge.gov.br
Eu concordo com os Termos do Serviço: 1
Nome Completo: Genilda da Silva Rodrigues
Empresa/Condominio: IBGE
Endereço: Av.Republica do Chile - 500 - 11º Andar
Complemento: Edificio Metropolitan
Bairro: Centro
Ramal: 0249

Quando este cliente e cadastrado eu cadastro eles em um bd que crie aqui. Acontece que eu tenho que ir de um a um copiar e depois ir no bd e colcar. Mandei um modelo para vc que tem uma txt com a descrição cole aqui. Então quero copiar todos os dados od cliente de uma só vez do site e colar nesta txt que esta em meu bd com o nome cole aqui e criar uma função que ao clicar no botão ele separe os dados do cliente preenchendo as txt com os devidos nomes, e-mail.

Olá, o site retorna exatamente conforme exemplo acima?

Envia por email, gera txt ou amostra online?

Entretanto vou espreitar seu exemplo.

Olá Amigo obrigado pela força. E isso mesmo ele retorna desta forma que te mandei.

Ok, já percebi.

Independente dos dados o formato apresentado é sempre assim:

E-mail: xxxxxxxx
Eu concordo com os Termos do Serviço: x
Nome Completo: xxxxxxxxxxxxxxxxxxxxx
Empresa/Condominio: xxxxxxxxxxx
Endereço: xxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Complemento: xxxxxxxxxxxx
Bairro: xxxxxxxxxxx
Ramal: xxxxxxxxxxxx

Isso mesmo. Sempre sera assim

Era mais fácil se fosse um ficheiro txt o que estou a evitar de fazer (gerar temporario), assim seria feita a leitura linha a linha.
Tenho que sair, mas nao fica esquecido.

Abraço

Beleza meu amigo. Vou estar tentando aqui, e ficarei contando com sua ajuda. Abraço

Olá,

Coloque este código no formulário que disponibilizou


Private Sub btseparar_Click()
   txt1 = separaEntreDuasStrings(txt0, "E-mail: ", "Eu concordo com os Termos do Serviço: ")
   txt2 = separaEntreDuasStrings(txt0, "Nome Completo: ", "Empresa/Condominio: ")
   txt3 = separaEntreDuasStrings(txt0, "Endereço: ", "Complemento: ")
   txt4 = separaEntreDuasStrings(txt0, "Complemento: ", "Bairro: ")
   txt5 = separaEntreDuasStrings(txt0, "Bairro: ", "Ramal: ")
   txt7 = Right(txt0, Len(txt0) - InStr(txt0, "Ramal: ") - 6) 'final sem delimitador
End Sub

'AHTEIXEIRA 2014
Function separaEntreDuasStrings(strTotal As String, strInicio As String, strFim As String)
Dim i As Long, j As Long
   i = InStr(strTotal, strInicio)
   j = InStr(strTotal, strFim)
   separaEntreDuasStrings = Mid(strTotal, i + Len(strInicio), j - i - 1)
   separaEntreDuasStrings = Mid(strTotal, i + Len(strInicio), j - i - Len(strInicio) - 1)
End Function


Fico aguardar retorno.
Abraço

Olá Amigo ahteixeira bom dia. O seguimento e exatamente este só que falta alguns ajustes. Eu tentei aqui mais não consegui. ele esta retornando partes de outros registro. da uma olhada.[img][/img]

Teste o código na base de dados que disponibilizou e com o texto de exemplo postado.
Estou no telemóvel e de momento não posso ajudar.

Sem problemas meu amigo. Quando estiver tranquilo vc me da esta força. Sem pressa ok? Bom domingo ai. Vou tentando aqui. Abraço e fico no aguardo.

Olá, abaixo link do meu ficheiro de teste (actualizado).

Olá Amigo boa noite. Aumenta a altura das caixas de texto e olhe para vc ver. Eles estão exibindo uma parte de outros registros. Neste mesmo que vc me mandou.

Olá, Não tinha visto, actualiza assim a função:

Código:

Function separaEntreDuasStrings(strTotal As String, strInicio As String, strFim As String)
Dim i As Long, j As Long
    i = InStr(strTotal, strInicio)
    j = InStr(strTotal, strFim)
    separaEntreDuasStrings = Mid(strTotal, i + Len(strInicio), j - i - Len(strInicio) - 1)
End Function

O ficheiro para download da mensagem nº 14, foi atualizado.

Abraço

Obrigado meu amigo vc me ajudou muito, consegui meu abjetivo. Um grande abraço. Valeu

Obrigado pelo retorno, o forum agradece, Abraço.