MaximoAccess

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

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.
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3385
    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!

    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: Ter 22 Ago 2017, 04:36