MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Função Mid

    Compartilhe

    rodrigosky
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 77
    Registrado : 17/05/2013

    [Resolvido]Função Mid

    Mensagem  rodrigosky em Qua 02 Abr 2014, 13:19

    Bom dia Caros amigos do forum,

    Estou com a seguinte duvida, possuo um Banco de Dados que importa um arquivo txt,
    onde possuo o seguinte fraguimento de codigo, segue:

    ElseIf Mid$(Linha, 1, 12) = "Cancelamento" Then

    strcancelamento = Mid$(Linha, 15, 10)


    O fraguimento esta funcionando de forma correta sem erros, porem segue a minha nova duvida,
    por exemplo teria como eu localizar uma informação a partir de uma palavra especifica e não de
    uma posição fixa.explicando melhor seria assim MID$(LINHA, 'NOME DESEJADO',3), tipo localizar
    três posições a frente de um nome desejado.
    Desde já agradeço o espaço.

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3348
    Registrado : 04/04/2010

    Re: [Resolvido]Função Mid

    Mensagem  Avelino Sampaio em Qua 02 Abr 2014, 13:35

    Olá!

    Sim, utilize a função instr() que te informa a posição inicial de uma palavra ou frase.  exemplo:

    bla bla bla Avelino Sampaio ,CPF: ...

    mid(linha, instr(linha,"Avelino")+8,instr(linha,",CPF")-1)  :::> Sampaio

    Sucesso!


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    rodrigosky
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 77
    Registrado : 17/05/2013

    Re: [Resolvido]Função Mid

    Mensagem  rodrigosky em Qua 02 Abr 2014, 14:41

    Bom dia Avelino,

    Exato como sempre a função InStr() satifez e sanou a minha duvida, funcionou como desejado.

    Muito Obrigado!!!

    Valeu!!!

      Data/hora atual: Seg 05 Dez 2016, 04:24