Função StrComp

Retorna um valor que indica o resultado de uma comparação de strings

Sintaxe

StrComp(string1, string2[, compare])

Argumentos:

  • string1: Obrigatório. Qualquer expressão de string válida.
  • string2: Obrigatório. Qualquer expressão de string válida.
  • Compare: Opcional. Valor numérico que indica o tipo de comparação a ser usado ao avaliar strings. Se esse argumento for omitido, uma comparação binária será executada. Consulte a seção Configurações para ver os valores.
  • Configurações: O argumento compare pode ter os seguintes valores:

    Tabela 11-21 Constantes de Comparação e Descrições

    Constante Valor Descrição
    vbBinaryCompare 0 Executa uma comparação binária
    vbTextCompare 1 Executa uma comparação textual

Valor de Retorno

A função StrComp apresenta os seguintes valores de retorno:

Tabela 11-22 Valores de Retorno da Função StrComp

Se StrComp Retornará
a string1 for menor que a string2 -1
a string1 for igual à string2 0
a string1 for maior que a string2 1

Comentários

O exemplo a seguir usa a função StrComp para retornar os resultados de uma comparação de strings. Se o terceiro argumento for 1, uma comparação textual será executada; se o terceiro argumento for 0 ou omitido, uma comparação binária será executada. Se o terceiro argumento for omitido, a comparação padrão do sistema será executada.

O exemplo a seguir ilustra o uso da função StrComp:

Exemplo 1:

Dim MyStr1, MyStr2, MyComp
MyStr1 = "ABCD": MyStr2 = "abcd"   ' Define variables.
MyComp = StrComp(MyStr2, MyStr1)   
' Output: 1

MyComp = StrComp(MyStr1, MyStr2, 1)   
' Output: 0
MyComp = StrComp(MyStr1, MyStr2, 0)   
' Output: -1

Exemplo 2:

Dim MyStr1, MyStr2, MyComp
MyStr1 = "ABCD"
MyStr2 = "XYZ"
MyComp = StrComp(MyStr1, MyStr2)   
' Output: -1

Exemplo 3:

Dim MyStr1, MyStr2, MyComp
MyStr1 = "XYZ"
MyStr2 = "ABCD"
MyComp = StrComp(MyStr1, MyStr2)   
' Output: 1