MaximoAccess

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

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

    [Resolvido]Converter cadeia de caracteres em array.

    avatar
    werlycorvo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 13/07/2011

    [Resolvido]Converter cadeia de caracteres em array. Empty [Resolvido]Converter cadeia de caracteres em array.

    Mensagem  werlycorvo em 7/10/2019, 16:30

    Saudações à todos os colegas do forum.

    Bom, hoje me deparei com um problema que pensei ser simples mas já me custou todo o dia e ainda não obtive um resultado satisfatório.

    Preciso validar determinados códigos que estão em um campo de uma tabela, tipo texto.

    Exemplo: 987654147456 ou seja todos com 12 dígitos, para fazer a validação preciso enviá-los para uma matriz.

    assim:

    varN(0) = 9
    varN(1) = 8
    varN(2) = 7
    varN(3) = 6
    varN(4) = 5
    varN(5) = 4

    e sucessivamente.

    já tentei todas as formas e funções que eu conheço e não obtive exito.
    Então pergunto aos nobres colegas se alguém já enfrentou este mesmo problema e se conseguiram uma solução?
    Desde já agradeço pela atenção
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2455
    Registrado : 21/11/2016

    [Resolvido]Converter cadeia de caracteres em array. Empty Re: [Resolvido]Converter cadeia de caracteres em array.

    Mensagem  DamascenoJr. em 7/10/2019, 22:45

    Código:
    dim arrMinhaMatriz() 'criando variável matriz
    dim bytContador as byte 'contador auxiliar

    redim arrMinhaMatriz(len(cstr(CampoTal)) - 1) 'definindo a quantidade de elementos da matriz de acordo com o tamanho do campo

    'contador vai do primeiro elemento da matriz até o último
    for bytContador = LBound(arrMinhaMatriz) to UBound(arrMinhaMatriz)

       'cada posição da matriz vai recebendo o valor do campo
       arrMinhaMatriz(bytContador) = mid(cstr(CampoTal), bytContador + 1, 1)

    'vai para a próxima unidade do contador
    next bytContador

    'tchã rã... a partir daqui sua matriz carregada


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    werlycorvo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 13/07/2011

    [Resolvido]Converter cadeia de caracteres em array. Empty Re: Converter cadeia de caracteres em array.

    Mensagem  werlycorvo em 8/10/2019, 07:37

    Ivam, muito obrigado! seu código funcionou perfeitamente.

    Fiquem bem e até mas.

    Sendo assim dou o tópico como resolvido
    avatar
    werlycorvo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 13/07/2011

    [Resolvido]Converter cadeia de caracteres em array. Empty Converter cadeia de caracteres em array.

    Mensagem  werlycorvo em 8/10/2019, 07:40

    se tiverem alguma dúvida reabram o tópico
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2455
    Registrado : 21/11/2016

    [Resolvido]Converter cadeia de caracteres em array. Empty Re: [Resolvido]Converter cadeia de caracteres em array.

    Mensagem  DamascenoJr. em 10/10/2019, 10:01

    O fórum agradece o retorno. Sucesso.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

      Data/hora atual: 3/12/2020, 08:37