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]Split com critério

    Compartilhe
    avatar
    janettepires
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 105
    Registrado : 14/03/2013

    [Resolvido]Split com critério

    Mensagem  janettepires em Qui 04 Maio 2017, 21:23

    Boa tarde

    Alguém sabe me informar como faço para pegar a coluna 2 com critério = 20?

    anArray = Split(linha, ";")
       rs.AddNew
       rs(0) = Trim(anArray(1))
       rs(1) = Trim(anArray(6))
       rs(2) = Trim(anArray(13))
       'rs(3) = Trim(anArray(3))
      ' rs(4) = Trim(anArray(4))
       rs.Update
    Loop


    Abs
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9703
    Registrado : 04/11/2009

    Re: [Resolvido]Split com critério

    Mensagem  JPaulo em Sex 05 Maio 2017, 13:56

    Ola Janette;

    Explique o que será a coluna 2, é o Trim(anArray(1)) ?

    Se for isso é o simples;

    Código:
    anArray = Split(linha, ";")
       If Trim(anArray(1)) = "20" Then
         RS.AddNew
         RS(0) = Trim(anArray(1))
         RS(1) = Trim(anArray(6))
         RS(2) = Trim(anArray(13))
         'rs(3) = Trim(anArray(3))
        ' rs(4) = Trim(anArray(4))
         RS.Update
       Else
       'não faz nada
       End If
    Loop


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

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

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    janettepires
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 105
    Registrado : 14/03/2013

    Re: [Resolvido]Split com critério

    Mensagem  janettepires em Sex 05 Maio 2017, 14:03

    Bom dia!

    isso mesmo

    RS(2) = Trim(anArray(13))

    quero pegar só com valor = 20
    avatar
    janettepires
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 105
    Registrado : 14/03/2013

    Re: [Resolvido]Split com critério

    Mensagem  janettepires em Sex 05 Maio 2017, 14:41

    E se possível importar apenas os 6 primeiros digitos da coluna

    RS(1) = Trim(anArray(6))


    Obrigada
    avatar
    janettepires
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 105
    Registrado : 14/03/2013

    Re: [Resolvido]Split com critério

    Mensagem  janettepires em Sex 05 Maio 2017, 15:06

    Querido JPaulo,

    Funcionou tudo perfeitamente!

    anArray = Split(linha, ";")

    If Trim(anArray(6)) = "20" Then

    rs.AddNew
    rs(0) = Trim(anArray(1))
    rs(1) = Trim(anArray(6))
    rs(2) = Left(Trim(anArray(13)), 6)
    rs(3) = Trim(anArray(5))
    ' rs(4) = Trim(anArray(4))
    rs.Update
    Else
    End If
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9703
    Registrado : 04/11/2009

    Re: [Resolvido]Split com critério

    Mensagem  JPaulo em Sex 05 Maio 2017, 16:06

    Obrigada pelo retorno o forum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

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

    Sucesso e Bons Estudos
    Success and Good Studies

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

      Data/hora atual: Ter 21 Nov 2017, 10:08