Função Mid, Instrução Mid

Devolve a parte especificada de uma expressão em caracteres (Função Mid), ou substitui a parte de uma expressão em caracteres com outra cadeia (Instrução Mid).

Sintaxe:


Mid (Text As String, Start As Long [, Length As Long])
Mid (Text As String, Start As Long, Length As Long, Text As String)

Valor de retorno:

Cadeia (só por função)

Parâmetros:

Texto: qualquer expressão em caracteres que pretenda modificar.

Start: Numeric expression that indicates the character position within the string where the string portion that you want to replace or to return begins. The minimum allowed value is 1. The maximum allowed value is 2,147,483,648.

Length: Numeric expression that returns the number of characters that you want to replace or return. The maximum allowed value is 2,147,483,648.

Se o parâmetro Comprimento na Função Mid estiver omitido, são devolvidos todos os caracteres na expressão desde o início até fim da cadeia.

Se o parâmetro Comprimento na Instrução Mid for menor do que o comprimento do texto a substituir, o texto é reduzido ao comprimento especificado.

Texto: a cadeia para substituir a expressão em caracteres (Instrução Mid).

Códigos de erro

5 Chamada de procedimento inválido

Exemplo:


Sub ExampleMid_Function_and_Statement
  original_text = "This is the original Text"
' Mid as function 
  msgbox Mid( original_text , 13, 8) ' returns the word original
  msgbox original_text               ' original_text not modified
' Mid as statement 
  Mid( original_text, 13, 8, "new" )
  msgbox original_text               ' returns This is the new Text
End Sub