MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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

2 participantes

    Função Excluir Item de Array

    thiagomcosta
    thiagomcosta
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 368
    Registrado : 23/01/2017

    Função Excluir Item de Array Empty Função Excluir Item de Array

    Mensagem  thiagomcosta Qua 07 Fev 2018, 10:36 am

    Procurei e não achei uma função para excluir um elemento de uma array (como sempre, se existir, por favor me indiquem).

    Colocando aqui a função que fiz para resolver o meu problema, pode ser adaptada a cada caso.

    A função retorna uma cópia do vetor excluindo os itens iguais ao elemento fornecido.
    Os paramentros são a array original e o elemento a ser procurado e excluido.

    Código:
    Function RetiraElementoArray(pArray, pElemento)
    Dim vElemento
    Dim vArrayFinal()

    vArray = pArray
    vElemento = pElemento
    k = 0

    For i = 0 To UBound(vArray)
        If vArray(i) <> pElemento Then
            ReDim Preserve vArrayFinal(k)
            vArrayFinal(k) = vArray(i)
            k = k + 1
        End If
    Next

    RetiraElementoArray = vArrayFinal

    End Function


    Teste:
    Código:
    Sub testefunc()
    Dim vA(), vB()
    vA = Array("A", "B", "C", "D", "A", "E")
    vB = RetiraElementoArray(vA, "A")
    For i = 0 To UBound(vB)
        MsgBox vB(i)
    Next
    End Sub

    Retorna a matriz {"B","C","D","E"}
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7285
    Registrado : 15/03/2013

    Função Excluir Item de Array Empty Re: Função Excluir Item de Array

    Mensagem  ahteixeira Seg 26 Mar 2018, 6:54 am

    Olá Thiago Costa,

    Obrigado pela partilha, o fórum agradece.

    Abraço

      Data/hora atual: Qua 04 Ago 2021, 8:53 am