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]Separar texto

    Compartilhe

    Roberto_1977
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 836
    Registrado : 01/10/2013

    [Resolvido]Separar texto

    Mensagem  Roberto_1977 em 18/11/2014, 06:25

    Bom dia,

    Gostaria de poder isolar um determinado valor num caminho e coloca-lo num campo.
    EX:
    D:\rob\PDF\301092998\000010\Excel - TC5388-R1-00002-301092998-KATE - 10000%.xls

    O valor que queria isolar era 00010 e ele situa-se sempre na mesma posição.

    Agradeço...

    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 2746
    Registrado : 06/11/2009

    Re: [Resolvido]Separar texto

    Mensagem  Assis em 18/11/2014, 06:33

    Bom dia

    Será que vai ajudar ?

    [Você precisa estar registrado e conectado para ver este link.]


    .................................................................................
    *** Só sei que nada sei ***

    Roberto_1977
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 836
    Registrado : 01/10/2013

    Re: [Resolvido]Separar texto

    Mensagem  Roberto_1977 em 18/11/2014, 06:44

    Bom dia grande Assis,

    Não estou conseguindo com código que me orientou.

    D:\rob\PDF\301092998\000010\ = caminho onde se encontra o ficheiro.
    Excel - TC5388-R1-00002-301092998-KATE - 10000%.xls = Nome ficheiro

    Só queria mesmo o valor que se encontra no caminho = "00010"

    Vou tentando.....

    Roberto_1977
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 836
    Registrado : 01/10/2013

    Re: [Resolvido]Separar texto

    Mensagem  Roberto_1977 em 18/11/2014, 06:59

    Bom dia,

    resolvido.... codigo um pouco confuso mas funcionou. Laughing Laughing Laughing Laughing

    Dim x as string
    Dim Separar2 As Variant

    x=D:\rob\PDF\301092998\000010\Excel - TC5388-R1-00002-301092998-KATE - 10000%.xls
    Separar2 = Split(x, "\")
    Text1001 = Separar2(4)

    Obrigado ....

    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 2746
    Registrado : 06/11/2009

    Re: [Resolvido]Separar texto

    Mensagem  Assis em 18/11/2014, 07:57

    Quando a gente precisa tudo se torna mais fácil
    Obrigado pelo retorno,
    Abraço



    .................................................................................
    *** Só sei que nada sei ***

      Data/hora atual: 3/12/2016, 14:42