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]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, 20: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
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1017
    Registrado : 22/11/2016

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

    Mensagem  IvanJr. em 8/10/2019, 02: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, 11: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, 11:40

    se tiverem alguma dúvida reabram o tópico
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1017
    Registrado : 22/11/2016

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

    Mensagem  IvanJr. em 10/10/2019, 14: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.

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2019, 16:32