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

    Compartilhe
    avatar
    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 Ter 18 Nov 2014, 11: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...
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    Re: [Resolvido]Separar texto

    Mensagem  Assis em Ter 18 Nov 2014, 11:33

    Bom dia

    Será que vai ajudar ?

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


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    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 Ter 18 Nov 2014, 11: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.....
    avatar
    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 Ter 18 Nov 2014, 11: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 ....
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    Re: [Resolvido]Separar texto

    Mensagem  Assis em Ter 18 Nov 2014, 12:57

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



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

      Data/hora atual: Seg 23 Out 2017, 16:16