Substituir

Devolve uma cadeia de caracteres na qual uma subcadeia especificada foi substituída por outra subcadeia um número especificado de vezes.

Estrutura

Substituir(expressão, encontrar, substituirpor[, início[, contagem[, comparar]]])

Parâmetros

expressão - Obrigatório. Expressão de cadeia de caracteres que contém a subcadeia a substituir.

find - Obrigatório. Subsequência a ser pesquisada.

replacewith - Obrigatório. Subsequência de substituição.

iniciar - Opcional. Posição na expressão onde deve começar a pesquisa da subcadeia. Se não for indicado, assume-se o valor 1. Deve ser utilizado em conjunto com a função count.

contagem - Opcional. Número de substituições de subcadeias a realizar. Se não for especificado, o valor padrão é -1, o que significa que devem ser efetuadas todas as substituições possíveis. Deve ser utilizado em conjunto com o comando «start».

comparar - Opcional. Valor numérico que indica o tipo de comparação a utilizar na avaliação de subcadeias. Consulte a secção «Definições» para ver os valores. Se omitido, o valor padrão é 0, o que significa que se deve realizar uma comparação binária.

Valores dos parâmetros

O argumento «compare» pode assumir os seguintes valores:

Descrição do valor constante

vbBinaryCompare 0 Realiza uma comparação binária.

vbTextCompare 1 Realizar uma comparação textual.

Valor de retorno

A função Replace devolve os seguintes valores:

Se a função Replace devolver uma expressão d

, esta terá comprimento zero: uma cadeia de caracteres de comprimento zero ('').

A expressão é nula. Ocorreu um erro.

O resultado é uma cópia da expressão com comprimento zero.

replacewith é uma cópia de comprimento zero da expressão, com todas as ocorrências de find removidas.

iniciar > Len(expressão) Cadeia de caracteres de comprimento zero.

O contador é 0. Cópia da expressão.

Descrição

O valor devolvido pela função Replace é uma cadeia de caracteres, com as substituições efetuadas, que começa na posição especificada por start e termina no final da cadeia de caracteres da expressão. Não é uma cópia da sequência original do início ao fim.

Exemplo

O exemplo seguinte utiliza a função Replace para devolver uma cadeia de caracteres:

Dim MyString

' Uma comparação binária que começa no início da cadeia de caracteres.

MyString = Replace("XXpXXPXXp", "p", "Y") ' Devolve 'XXYXXPXXY'.

' Uma comparação textual a partir da posição 3.

MyString = Replace("XXpXXPXXp", "p", "Y", 3, -1, 1) ' Devolve 'YXXYXXY'. |