Filtrar função (Visual Basic)

Artigo
08/25/2010

Retorna uma matriz baseada em zero que contém um subconjunto de um String matriz com base nos critérios de filtro especificado.

Function Filter(
   ByVal Source() As { Object | String },
   ByVal Match As String,
   Optional ByVal Include As Boolean = True,
   Optional ByVal Compare As CompareMethod = CompareMethod.Binary
)  As String()

Parâmetros

Source
Obrigatório.Unidimensional matriz de seqüências de caracteres a serem pesquisados.
Match
Obrigatório.Seqüência de caracteres para pesquisar.
Include
Opcional.Boolean valor que indica se deve retornar substrings que incluem ou excluir Match. If Include é True, o Filter função retorna o subconjunto da matriz que contém Match sistema autônomo uma subseqüência de caracteres. If Include é False, o Filter função retorna o subconjunto da matriz que não contém Match sistema autônomo uma subseqüência de caracteres.
Compare
Opcional.Valor numérico indicando o tipo de comparação de cadeia de caracteres de caracteres para usar.Consulte "Configurações" para os valores.

Configurações

O argumento Compare pode ter os seguintes valores.

Constante	Descrição
CompareMethod.Binary	Executa uma comparação binária.
CompareMethod.Text	Executa uma comparação textual

Exceções

Tipo de exceção	Número de erro	Condição
ArgumentException	9	Source é Nothing ou não é uma matriz unidimensional.

Ver a coluna " número de erro " se você estiver atualizando aplicativos Visual Basic 6.0 que usam manipulação de erros não estruturada.(Você pode comparar o número do erro com a Propriedade do Número (Erro de objeto).) Entretanto, quando for possivel, você pode considerar substituir tal controle de erro por Visão Geral sobre a Manipulação Estruturada de Exceções para o Visual Basic.

Comentários

Se nenhuma correspondência de Match encontrado dentro Source, o Filter função retorna uma matriz vazia. Ocorre um erro se Source é definido como Nothing ou não é uma matriz unidimensional.

A matriz retornada pelo Filter função contém apenas suficiente elementos para conter o número de itens correspondentes.

Exemplo

Este exemplo demonstra o uso da função Filter.

Dim TestStrings(2) As String
TestStrings(0) = "This"
TestStrings(1) = "Is"
TestStrings(2) = "It"
Dim subStrings() As String
' Returns ["This", "Is"].
subStrings = Filter(TestStrings, "is", True, CompareMethod.Text)
' Returns ["This"].
subStrings = Filter(TestStrings, "is", True, CompareMethod.Binary)
' Returns ["Is", "It"].
subStrings = Filter(TestStrings, "is", False, CompareMethod.Binary)