Instrução Mid Function, Mid

Retorna a porção especificada de uma expressão string (Função Mid), ou substitui a porção da expressão string com outra string (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:

String (somente por Function)

Parâmetros:

Text: qualquer expressão de cadeia de caracteres que você deseje modificar.

Start: Expressão numérica que indica a posição do caractere dentro da string onde começa a parte da string a substituir ou retornar. O valor mínimo permitido é 1. O valor máximo permitido é 2.147.483.648.

Length: Expressão numérica que retorna o número de caracteres a substituir ou retornar. O valor máximo permitido é 2.147.483.648.

Se o parâmetro Length da função Mid for omitido, serão retornados todos os caracteres da expressão de cadeia de caracteres, da posição inicial até a posição final.

Se o parâmetro Length da instrução Mid for menor que o tamanho do texto a ser substituído, o texto será reduzido até o tamanho especificado.

Text: a cadeia de caracteres que deverá substituir a expressão de cadeia de caracteres (instrução Mid).

Códigos de erro:

5 Chamada de procedimento inválida

Exemplo:


Sub ExampleMid_Function_and_Statement
  text = "This is the original Text"
func1:
  MsgBox Mid(text, 13, 8)   ' returns the word "original"
  MsgBox text               ' text is not modified
stmt1:
  Mid(text, 13, 8, "new")
  MsgBox text               ' returns "This is the new Text"
func2:
  MsgBox Mid(start:=10, string:="The quick brown fox ..") ' shows " brown fox .."
stmt2:
  Mid text, 9, 12, "a new Phrase"
  MsgBox text               ' returns "This is a new Phrase"
End Sub