Sumário

# Função 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 (subroutina Mid).

### Sintaxe:

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

### Valor de retorno:

String (somente por Function)

### Parâmetros:

string: qualquer expressão de texto que deseja extrair (função Mid). Qualquer nome de variável de texto que deseja modificar (sub-rotina Mid).

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 sub-rotina Mid for menor que o tamanho do texto a ser substituído, o texto será reduzido até o tamanho especificado.

Text: o texto a substituir na expressão de texto (sub-rotina 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)   ' retorna a palavra "original"
      MsgBox text               ' o texto não é modificado
    stmt1:
      Mid(text, 13, 8, "new")
      MsgBox text               ' retorna "This is the new Text"
    func2:
      MsgBox Mid(start:=10, string:="The quick brown fox ..") ' mostra " brown fox .."
    stmt2:
      Mid text, 9, 12, "a new Phrase"
      MsgBox text               ' retorna "This is a new Phrase"
    End Sub

Tópicos relacionados

Funções de String