Instrução MID

Artigo
08/25/2010

Substitui um número específico de caracter numa variável String com caracteres de outra string.

Mid( _
   ByRef Target As String, _
   ByVal Start As Integer, _
   Optional ByVal Length As Integer _
) = StringExpression

Partes

Target
Obrigatório.Nome da variável String a modificar.
Start
Obrigatório.Integer expressão. Posição do caractere na Target onde começa a substituição de texto. Start usa um índice com base em um.
Length
Opcional.Integer expressão. Número de caracteres a substituir.Se omitido, todos os caracteres de String são utilizados.
StringExpression
Obrigatório.String expressão substitui parte de Target.

Exceções

Tipo de exceção	Número de erro	Condição
ArgumentException	5	Start<=0 ou Length > .

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

O número de caracteres substituído é sempre menor ou igual ao número de caracteres no Target.

O Visual Basic possui uma Função Mid (Visual Basic) e uma declaração Mid.Os dois elementos operam num número especificado de caracteres de uma string, mas a função Mid retorna os caracteres enquanto a declaração Mid substitui os caracteres.Para obter mais informações, consulte Função Mid (Visual Basic).

Observação:
O MidB demonstrativo de versões anteriores do Visual Basic substitui uma subseqüência de caracteres em bytes, em vez de caracteres. Isso é usado primariamente para converter strings em aplicações com conjuntos de caracteres de byte duplo (DBCS).Todas strings do Visual Basico estão em Unicode, e MidB não é mais suportado.

Exemplo

Esse exemplo usa a declaração Mid para substituir um número especificado de caracteres numa variável string com caracteres de outra string.

Dim TestString As String
' Initializes string.
TestString = "The dog jumps"
' Returns "The fox jumps".
Mid(TestString, 5, 3) = "fox"
' Returns "The cow jumps".
Mid(TestString, 5) = "cow"
' Returns "The cow jumpe".
Mid(TestString, 5) = "cow jumped over"
' Returns "The duc jumpe".
Mid(TestString, 5, 3) = "duck"